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

**Muddy**

Hier ist mein Delphiecode!!
Die genaue Aufgabenstellung ist auch enthalten.
Ich weiß nicht, wie ich das PRogramm erstellen soll.

zusammenfalten · markieren

Delphi-Quellcode:

			{In einem delphieprogramm soll Summe und der Mittelwert, aller Zahlen von 1 bis

 vom Benutzer eingegebenen Zahl einschließlich bestimmt werden.

Die einzelnen Zahlen erscheinen untereinander in einem Memofeld und in einem Stringgrid.

1. Zahl: ...

2. Zahl: ...

Summe: ...

Mittelwert: ...}

procedure TForm1.Button1Click(Sender: TObject);

var zahl1, Summe1, Summe2, i: integer;

    Mittelwert: real;

begin

try

  zahl1 := strtoint (edit1.text);

  for 1 to zahl1 do

     begin

       Memo1.text := intostr (Summe1);

     end;

  end;

end;

[edit=SirThornberry]Delphi-tag ergänzt - Mfg, SirThornberry[/edit]

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

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

Forumregeln