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.

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]

[mkinzler]

Wie wäre es, wenn du anstatt eine nicht berechnete Summe, in der Schleife diese berechnen würdest?

Delphi-Quellcode:

for i := 1 to zahl1 do
begin
    Summe1 := Summe1 + i;
end;

[DP-Maintenance]

Dieses Thema wurde von "SirThornberry" von "Programmieren allgemein" nach "VCL / WinForms / Controls" verschoben.

[sirius]

Wir könnten auch mal wieder bei endlichen Reihen nachsehen. (Aber dieser Hinweis geht wohl eher an den Ersteller der oben genannten Aufgabenstellung)

[Muddy]

Kannst du mir das näher erklären?
Es sollen in einem StrinGrid und im Memofeld jeweils Summe und Mittelwert angzeigt werden.

procedure TForm1.Button1Click(Sender: TObject);
var zahl1, Summe1, Summe2, i: integer;
Mittelwert: real;
begin
try
zahl1 := strtoint (edit1.text);
for i := 1 to zahl1 do
begin
Summe1 := Summe1 + i;
end;
end;
end;

[Muddy]

Kannst du mir das näher erklären?
Es sollen in einem StrinGrid und im Memofeld jeweils Summe und Mittelwert angzeigt werden.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var zahl1, Summe1, Summe2, i: integer;
Mittelwert: real;
begin
  try
    zahl1 := strtoint (edit1.text);
      for i := 1 to zahl1 do
       begin
         Summe1 := Summe1 + i;
       end;
     end;
end;

[mkinzler]

Delphi-Quellcode:

      for i := 1 to zahl1 do
       begin
         Summe1 := Summe1 + i;
         inc(anz);
       end;
     end; 
     mittelwert := summe1/anz;

[Muddy]

Was darf ich mir denn unter 'anz' vorstellen?
Meinst du damit die Menge/Anzahl der Ziffern?
Wo liegt mein Fehler?

[mkinzler]

Nein Anzahl der Zahlen, den Mittelwert berechnet sich ja Summe/Anzahl
Mein Code war auch nicht als musterlösung, sondern als Hinweis gedacht? Sollen wirklich die fortlaufenden Zahlen addiert werden? dann ist anz = i

[FAlter]

Hi,

Zitat:

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: ...

die Aufgabenstellung ist echt klasse. Hab ich das richtig verstanden? Das Programm soll in einem Memo UND in einem Stringgrid folgendes anzeigen (n=3):

Code:

1. Zahl: 1
2. Zahl: 2
3. Zahl: 3

Summe: 6
Mittelwert: 2

LOL :lol:

Wenn die Eingegebene Zahl n ist, lässt sich die Summe per n*(n+1)/2 berechnen. Der Mittelwert ist dann das ganze nochmal durch n geteilt, oder einfach (n+1)/2 - dann könnte man die Summe als n*Mittelwert berechnen.

Warum man die einzelnenen Zahlen selbst nochmal darstellen soll, versteh ich nicht. Wahrscheinlich, damit der Schüler lernt, mit einer Schleife umzugehen. Und warum es doppelt angezeigt werden soll, kapier ich überhaupt gar nicht.

Mfg
FAlter