Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Einzahlung,zv,Zinssatz,AnzahlJahre,Kapital:Integer;
begin
Einzahlung:=strtoint(Startkapital.Text);
Zinssatz:=strtoint(Zinsen.Text);
AnzahlJahre:=strtoint(Jahre.Text);
for zv:= 1 to AnzahlJahre do
Kapital:=Kapital*(1+Zinssatz/100);
Nur eine kleine Anmerkung, solltest Du den Zinssatz nicht als
Float deklarieren? Denn so kann Dein Programm nur ganze Zahlen
als Zinssatz.
Und noch ein Link zu ZinsesZinsBerechnung ->
http://de.wikipedia.org/wiki/Zinseszins
Geht dann ohne Schleife:
Kapital:=Kapital*power((1+Zinssatz/100),AnzahlJahre);
Grüße
Klaus