Schulaufgabe, Problem mit Variablen

[hugo1990]

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.