Zinsberechnung mit For Do Schleife

[Luckie]

Ja schon, nur rechnest du immer mit dem gleichen Startkapital. Das erhöhte Kapital pro Jahr fließt ja gar nicht mit ein. Deswegen auch die Meldung vom Compiler, dass i nie benutzt wird.

Es müsste so aussehen:

Delphi-Quellcode:

function EndKapital(StartKapital, Zins: Double; Jahre: Integer): Double;
var
  i: Integer;
  EndKapital: Double;
begin
  if Zins <= 0 then
    Raise ERangeError.Create('Zins ist kleiner/ gleich Null');
  if StartKapital <= 0 then
    Raise ERangeError.Create('Startkapital ist kleiner/gleich Null');
  if Jahre < 0 then
    Raise ERangeError.Create('Jahre ist kleiner Null');
  EndKapital := 0.0;
  for i := 1 to Jahre do
    EndKapital := EndKapital*(Zins/100)+StartKapital;
  Result := EndKapital;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    ShowMessage(FloatToStr(EndKapital(100, 2.3, -5)));
    // 101,120413075641343
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
end;

Wobei ich mir bei der Formel nicht sicher bin, denn mit der Formel aus der Wikipedia bekomme ich den auskommentierten Wert raus.

Und was deine Fehler angeht, das sind einfache Syntaxfehler. Guck deinen Quelltext einfach noch mal genau an.

Und die Delphi-Tags bewirken, dass der Quelltext formatiert und somit leserlicher dargestellt wird.

[Hansa]

Ersetze den letzten ; durch : . Ob die Rechnung so stimmt ?? Nachrechnen.

[Matze]

Zitat von Luckie:

Ja schon, nur rechnest du immer mit dem gleichen Startkapital. Das erhöhte Kapital pro Jahr fließt ja gar nicht mit ein. Deswegen auch die Meldung vom Compiler, dass i nie benutzt wird.

Nö, die kommt sicher daher, dass i mit 0 initialisiert wird:

Delphi-Quellcode:

i:=0;
 for i:= 1 to jahre do

Das ist überflüssig und wieso grad 0 ist mir auch schleierhaft. Dieser Wert Null wird jedenfalls nie benutzt. Ob i in der Schleife verwendet wird oder nicht, wird meines Wissens nicht angezeigt. Es ist ja lediglich eine Laufvariable, die man nicht zwingend innerhalb der Schleife nutzen muss.

[Luckie]

OK, aber trotzdem ändert sich der Endwert in der Schleife nicht.

[Matze]

Jo, das stimmt.
Es ist übrigens auch überflüssig, den Edit-Text innerhalb der Schleife zuzuweisen. Es steht am Ende sowieso nur der Wert des letzten Schleifendurchlaufs drin. Das würde ich daher außerhalb der Schleife zuweisen.

[Luckie]

Wer lesen kann, ist klar im Vorteil:

Zitat:

Wobei ich mir bei der Formel nicht sicher bin, denn mit der Formel aus der Wikipedia bekomme ich den auskommentierten Wert raus.

Was sind denn noch für Fehler übrige, nach dem du die Hinweise hier in den Beiträgen befolgt hast?

[JuPi2904]

Zitat von Luckie:

// 101,120413075641343

ok leute danke erstmal für eure hilfe, nur was heißt diese zahl???

[Matze]

Zitat von JuPi2904:

nur was heißt diese zahl???

Das ist vermutlich das Endkapital, das Luckies "ShowMessage" in seinem Beispiel ausgibt.

[JuPi2904]

entschuldigt die antwort aber der quelltext ist mir n bisschen zu schwer, dafür fehlt mir einfach das wissen, könnt ihr vlt. mein so bearbeiten das er stimmt?? danke

[Jumpy]

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