Werte zwischen zwei Variablen "zusammenfassen"

[scurrrr]

Hi,

ich habe zwei Variablen (x & y) und von x bis y will ich alle zahlen durch eine dritte zahl dividieren, aber wie fasse ich diese Zahlen von x bis y für eine Rechnung zusammen?

[Helmi]

Hallo,

wenn ich es richtig verstanden habe, dann willst du die Ergebnisse der Division der Zahlen zwischen x und y zwischenspeichern bzw. ausgeben.

Mal schnell runtergetippt:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  i: Integer;
  x: Integer;
  y: Integer;
  z: Integer;
  erg: Real;

begin
  x := 20;
  y := 30;
  z := 5;

  erg := 0;

  for i := x to y do
    erg := erg + (i / z);

  ShowMessage(FloatToStr(erg));
end;

Wobei das nur für Integer funktioniert.
Ansonsten müsstest mal mehr Infos über die Variablen geben

[scurrrr]

ja, ich will die Werte von x bis y durch z teilen und daraus eine Summe bilden

[Sherlock]

Was Du suchst ist die Summe zwischen n aufeinander folgenden natürlichen Zahlen. Und die teilst Du dann am Ende durch eine weitere natürliche Zahl.

Ersteres ist in Anlehnung an den kleinen Gauß schnell erledigt, und letzteres dürfte auch kein Problem sein.

Erg := ((y-x)*(x +((y-x+1)/2)))/z
Die Klammern sind zum Teil überflüssig, sollen aber den einen oder anderen logischen Zusammenhang verdeutlichen.

Sherlock

[sakura]

Zitat von Sherlock:

Erg := ((y-x)*(x +((y-x+1)/2)))/z

Und die Formel dann noch schnell dem Lehrer erklären, welcher doch eigentlich Schleifen üben wollte

......

[Sherlock]

Zitat von Sherlock:

Ersteres ist in Anlehnung an den kleinen Gauß schnell erledigt, und letzteres dürfte auch kein Problem sein.

Sherlock

[himitsu]

Zitat von Sherlock:

und letzteres dürfte auch kein Problem sein.

Es könnte nur passieren, dass diese Aufgabe dann mit 0 Punkten gewertet wird, wenn sie am Thema vorbeiginge.

[Sherlock]

Ist die Lösung falsch? Hab das nur mal schnell hingehuddelt. Ich wußte außerdem nicht, daß es sich um eine Schulaufgabe handelt. Das entsprechende Kennzeichen fehlt. Sonst wird doch auch um jeden Taktzyklus gefeilscht, und die kleine Formel da dürfte so ziemlich das Performance-Maximum darstellen.

Sherlock