Zinsberechnung mit For Do Schleife

[JuPi2904]

meine fehler codes:

• [Hinweis] Unit1.pas(46): Auf 'i' zugewiesener Wert wird niemals benutzt
• [Fehler] Unit1.pas(55): Deklaration erwartet, aber Dateiende gefunden
• [Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

[JuPi2904]

was verändern eigentlich die delphi tags???

[Luckie]

Kann es sein, dass auch die Formel nicht stimmt?

Weil das ist ja Unsinn:

Delphi-Quellcode:

var
  i: Integer;
  EndKapital: Double;
begin
  EndKapital := 0.0;
  for i := 1 to Jahre do
    EndKapital := StartKapital*(Zins/1000)+StartKapital;
  Result := EndKapital;

end;

Dann hätte ich in fünf Jahren bei 2,3 Prozent Zinsen und einen Startkapital von 100 Euro nur 23 Cent Zinsen bekommen. Und wo Fließen bei dir da die Jahre ein?

[JuPi2904]

möglich, das problem ist ja aber mehr das er das programm gar nicht startet, auch wenn die formel nicht stimmt müsste das programm gestartet werden...das werde ich dann später noch mal überprüfen.

Ich wüsste zur zeithalt nurgern wie ich die fehler behebn kann???

[JuPi2904]

die jahre sind dazu da wie oft die schleife durchlaufen soll..das 1000 müsste natürlich durch 100 ersetzt werden(schreibfehler)

[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

Delphi-Quellcode:

;

durch :

Delphi-Quellcode:

.

Ob die Rechnung so stimmt ?? Nachrechnen.

[Matze]

Zitat:

Zitat von Luckie (Beitrag 1073360)

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.