Forum: Object-Pascal / Delphi-Language
Delphi
by 3_of_8,
1. Dez 2005
Es geht auch leichter, aber halt ohne repeat:
showmessage('Nach '+floattostr(logn(1.04,2))+' Jahren/Monaten verdoppelt sich das Guthaben.');
Stinknormaler Logarithmus.
Forum: Object-Pascal / Delphi-Language
Delphi
by 3_of_8,
1. Dez 2005
procedure Zinsrechnung;
var guthaben: Extended;
monate: Cardinal;
begin
guthaben:=2000;
monate:=0;
repeat
inc(monate);
guthaben:=1.04*guthaben;
until guthaben>=4000;
Forum: Object-Pascal / Delphi-Language
Delphi
by 3_of_8,
1. Dez 2005
Extended: Ist der Fließkommatyp mit der höchsten Genauigkeit, also z.B. 3.62432
Cardinal: Wie Integer, aber nur Positiv, also von 0-~4 Milliarden.
Aber das ist doch eigentlich nicht so schwer, oder? Also ein besonders komplexer Algorithmus ist es ja wirklich nicht. (Bitte nicht falsch verstehen)
Forum: Object-Pascal / Delphi-Language
Delphi
by 3_of_8,
1. Dez 2005
Wieso nehmt ihr nicht while? Egal.
procedure Zinsrechnung;
var guthaben: Extended;
jahre: Cardinal;
begin
guthaben:=2000;
jahre:=0;
repeat