Brauche Hilfe Rechenprogramm mit while schleife

[Uwe Raabe]

Entweder ist deine Aufgabenstellung falsch oder dein Code. Die Folge konvergiert so ungefähr gegen 10.

Zitat:

erster durchgang z.B. 10+0/1
zweiter 10+10/2
dritter 10+15/3

1: 10 + 0/1 = 10
2: 10 + 10/2 = 15
3: 10 + 15/3 = 15
4: 10 + 15/4 = 13,75
5: 10 + 13,75/5 = 12,75
6: 10 + 12,75/6 = 12,125
...

Kann es sein, daß die Endbedingung vielmehr die Anzahl der Iterationen angibt? Dann würde man das nämlich besser in einer for-Schleife lösen.

(Code nicht getestet! Meine Frau ruft zum Essen...)

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var     
  Eingabe: Real;
  Ergebnis: Real;
  Zaehler: Integer;
  Endbedingung: Integer;
begin
  Eingabe := StrToFloat(edt1.Text);
  Endbedingung := StrToInt(edt2.Text);
  Ergebnis := 0;
  for zaehler := 1 to Endbedingung do begin
    Ergebnis := Eingabe + (Ergebnis/Zaehler);
    mem1.Lines.Add(InttoStr(Zaehler) +'        '+ Floattostr(Ergebnis));
  end;
end;