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;