Als die Zinseszins Berechnung in der Schule dran war, warst du bestimmt krank oder so. Da gibt es nämlich eine fertige Formel dafür:
K=K0 * (1+p/100)^n
K0 - Startkapital
p - Prozentsatz
n - Laufzeit
Du sollst es zwar mit einer while do-schleife machen, aber mit der Formel könnte man ja mal das Ergebnis überprüfen.
Ich hab dir das jetzt mal richtig gemacht:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
gut:=strtofloat(edit1.text);
zins:=strtofloat(edit2.Text);
dauer:=strtoint(edit3.text);
mind:=strtoint(edit4.text);
zaehler:=1;
jahre:=dauer/12;
monate:=dauer mod 12;
if dauer>=mind then
begin
erg:=gut;
while zaehler<=jahre do
begin
erg:=erg*(1+(zins/100));
zaehler:=zaehler+1;
end;
zaehler:=1;
while zaehler<=monate do
begin
erg:=erg*power(1+zins/100,1/12);
zaehler:=zaehler+1;
end;
label4.Caption:='Sie erhalten insgesamt ' + floattostrf(erg,ffCurrency,18,2);
end
else
begin
label4.caption:='Sie erhalten leider keine Zinsen.';
end;
end;
Ach ja und nochwas gewöhn dir mal an, den Code ein wenig zu struckturieren, du wirst es mir einen Tages mal noch danken.