|
Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
Turbo Delphi für Win32
|
Re: Repeat-Schleife zu einem Beispiel
1. Dez 2005, 15:59
Wieso nehmt ihr nicht while? Egal.
Delphi-Quellcode:
procedure Zinsrechnung;
var guthaben: Extended;
jahre: Cardinal;
begin
guthaben:=2000;
jahre:=0;
repeat
inc(jahre);
guthaben:=1.04*guthaben;
until guthaben>=4000;
showmessage('Nach '+inttostr(jahre)+' Jahren verdoppelt sich das Guthaben.');
end;
EDIT: Delphi-Tag korrigiert.
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
|