Wie berechne ich alle Summen, Mittelwerte von 1 bis "Zahl"

[rollstuhlfahrer]

Zitat:

Zitat von FAlter

Warum man die einzelnenen Zahlen selbst nochmal darstellen soll, versteh ich nicht. [...]Und warum es doppelt angezeigt werden soll, kapier ich überhaupt gar nicht.

Das hängt wohl damit zusammen, dass der Schüler erstens mit TStrings / TStringList in Kontakt kommt (TMemo) und auch mit Grids, bei denen man eben nicht mal schnell noch ne Zahl mit xxx.Add(Zahl) einfügen kann. Was anderes kann ich mir auch (noch) nicht vorstellen.


rollstuhlfahrer

PS: wenn man die Gaußsche Formel noch etwas erweitert dann gehen auch alle Zahlen von x bis y
(y*(y + 1)-x*(x-1))/2 (nur posive Zahlen)

[FAlter]

Hi,

doch, man kann auch dort Add nehmen:

Delphi-Quellcode:

Memo1.Lines.Add(S2 + ': ' + S1);
StringGrid1.Cols[1].Add(S1);
StringGrid1.Cols[0].Add(S2);

So hab ichs in meiner Lösung gemacht. Im StringGrid je in eine Zeile, im Memo durch Doppelpunkt getrennt.

Da ich hier niemanden benachteiligen möchte, indem ich dessen Hausaufgaben mache und ihn um die Übung bringe, gibts das aber erstmal ohnne Source.

Mfg
FAlter

[edit]Jetzt mit BeginUpdate und EndUpdate![/edit]

[Die Muhkuh]

Ein BeginUpdate und EndUpdate würde dem ganzen noch gut tun ;)

[FAlter]

Hi,

wenn du meinst...

Mfg
FAlter