Zinsberechnung mit For Do Schleife

[Luckie]

Der Denkfehler stammt aber nicht von mir. Ich habe einfach nur den Code übernommen.

Damit kommt jetzt auch was sinnvolles raus:

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 := StartKapital;
  for i := 1 to Jahre do
  begin
    Startkapital:=Endkapital;
    EndKapital := EndKapital*(Zins/100)+StartKapital;
  end;
  Result := EndKapital;
end;

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