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

[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