Summe, Mittelwert, min und max ermitteln...

[sqrt 9]

ah ok!!!!!

wie muss ich jetzt i festlegen? jetzt zeigt er mir immer nur die letzte Zahl im Memo an

i:=zahl+???

[Mikender]

Zitat von sqrt 9:

[delphi]

procedure TForm1.Button1Click(Sender: TObject);
var summe, mitte, max, min:double;
i, zahl: integer;
begin

for i := 0 to Memo1.Lines.Count - 1 do
zahl:=strtoint (memo1.lines.text);
i:=???;
edit1.Text:=floattostr(i);

end;

falls ihr mich fragt was ich mir dabei gedacht hab....keine Ahnung

Mal ne Frage gibst du auch Komma-Zahlen ein dann müsstest du FloatToStr benutzen
und i ist Integer also nimm am besten intToStr (wegen der Form )
an i solltest du gar nichts ändern
und für die summe mach doch einfach Summe:=summe+ Memo1.Lines
für den Durchschnitt teile dies durch den Count+1

und min und max sind am leichtesten die kannst du dir selber überlegen
(TIPP: nimm ne if-Abfrage(nicht Schleife ))

[EDIT]Rechtschreibfehelr verbessert [/EDIT]

[Die Muhkuh]

Zitat von Mikender:

für den Durchschnitt teile dies durch den Count+1

Durch Count teilen, nicht durch Count + 1, sonst mogelst Du noch ein Eintrag hinzu.

[DeddyH]

Zitat von Mikender:

für den Durchschnitt teile dies durch den Count+1

Sicher?

[sqrt 9]

OK DANKE vielmals!!!!!!

Ich glaube jetzt hab ichs!!!!!!!!!!

geht wirklich schnell bei euch!!! ;]

[Mikender]

Zitat von Die Muhkuh:

Zitat von Mikender:

für den Durchschnitt teile dies durch den Count+1

Durch Count teilen, nicht durch Count + 1, sonst mogelst Du noch ein Eintrag hinzu.

Ups da hab ich mich schwer verdacht

[inherited]

Zitat von sqrt 9:

[delphi]

procedure TForm1.Button1Click(Sender: TObject);
var summe, mitte, max, min:double;
i, zahl: integer;
begin

for i := 0 to Memo1.Lines.Count - 1 do
zahl:=strtoint (memo1.lines.text);
i:=???;
edit1.Text:=floattostr(i);

end;

falls ihr mich fragt was ich mir dabei gedacht hab....keine Ahnung

Kurz noch zur Erklärung, weshalb du an I nichts ändern musst:
Die For-schleife setzt i auf 0 (for i := 0) und zählt dieses I dann bei jedem Durchlauf um eins hoch bis es "Memo1.Lines.Count -1" ist und führt für jedes i den Inhalt der Schleife aus

[sqrt 9]

eigentlich habe ich mit i die summe gemeint...denkfehler!!!

[sqrt 9]

Hallo nochmals

ich habe es jtzt ungefähr 10 000 000 versucht aber irgendetws scheint nicht zu klappen!!!
[quote="Mikender"]
und für die summe mach doch einfach Summe:=summe+ Memo1.Lines
quote]

dieser Vorschlag ergibt folgende Fehlermeldung:
incompitable files...

tschuldigung wenn ich mich blöd anstelle!?!

[DeddyH]

Also gut, für die Summe:

Delphi-Quellcode:

Summe := 0;
for i := 0 to Memo.Lines.Count - 1 do
  inc(Summe,StrToInt(Memo.Lines[i]));

Wobei Du eine Fehlerbehandlung selbst implementieren musst, das nehm ich Dir nicht auch noch ab