Zinsberechnung

[Kladios]

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.

[Klaus01]

Zitat von Kladios:

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. :-(

Habe die fehlerhafte Stelle mal auskommentiert.

Grüße
Klaus

[Kladios]

Daran lags nicht...

Fehler war Kapital:=Kapital:=Einzahlung*power((1+Zinssatz/100),AnzahlJahre)

Danke für eure Hilfe!!!