Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Einzahlung,zv,AnzahlJahre:Integer;
var Kapital, Zinssatz:Extended;
begin
Einzahlung:=strtoint(Startkapital.Text);
Zinssatz:=strtofloat(Zinsen.Text);
AnzahlJahre:=strtoint(Jahre.Text);
for zv:= 1 to AnzahlJahre do
Kapital:=Kapital*power((1+Zinssatz/100),AnzahlJahre);
Kontoauszug.Text:=FloatToStr(Kapital);
end;
end.
Die Anwendung startet jetzt zwar, lediglich das Ergebnis der Rechnung stimmt nicht.
