Repeat-Schleife zu einem Beispiel

[ibp]

Zitat von 3_of_8:

Delphi-Quellcode:

procedure Zinsrechnung;
var guthaben: Extended;
    monate: Cardinal;
begin
guthaben:=2000;
monate:=0;
repeat
inc(monate);
guthaben:=1.04*guthaben;
until guthaben>=4000;
showmessage('Nach '+inttostr(jahre)+' Monaten verdoppelt sich das Guthaben.');
end;

Ändert sich ja nicht viel.

entspricht immer noch nicht der aufgabenstellung! wo kommen denn nun die jahre her?

[Sidorion]

Die sind ein Überbleibsel aus der ersten Antwort.

showmessage('Nach '+inttostr(monate Div 12)+' Jahren verdoppelt sich das Guthaben.');

[ibp]

showmessage('Nach '+inttostr((monate Div 12)+1)+' Jahren verdoppelt sich das Guthaben.'); so wirds was!

[tigerman33]

Das ist aber zumindest unsauber. Ich habs zwar nicht nachgerechnet, aber wenn der Verdopplungszeitpunkt zufällig auf ein "volles" Jahr fallen sollte, ist dein Ergebnis falsch! Besser so:
showmessage('Nach '+inttostr(ceil(monate / 12))+' Jahren verdoppelt sich das Guthaben.');