Einzelnen Beitrag anzeigen

Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.733 Beiträge
 
Delphi 6 Enterprise
 
#25

AW: Zinsberechnung mit For Do Schleife

  Alt 10. Jan 2011, 13:20
In Luckies Code ist mMn ein Denkfehler (mathem. gesehen):
Das Endkapital im nullten Jahr ist das Startkapital. Somit die Zeile

  EndKapital := 0.0; ändern in

  EndKapital := Startkapital;

Anschließend ist in jedem Jahr das (neue) Startkapital das Endkapital des Vorjahres, somit:

Delphi-Quellcode:
for i := 1 to Jahre do
    EndKapital := EndKapital*(Zins/100)+StartKapital;
ändern zu:
Delphi-Quellcode:
for i := 1 to Jahre do
  begin
  Startkapital:=Endkapital;
  EndKapital := EndKapital*(Zins/100)+StartKapital;
  end;
dann sollte es doch stimmen??? Zinsrechnung ist schon so lange her...
Ralph

Geändert von Jumpy (10. Jan 2011 um 13:25 Uhr)
  Mit Zitat antworten Zitat