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?