Zinsberechnung mit For Do Schleife

[jfheins]

Zitat von Jumpy:

mMn kann man die Prüfungen ganz weglassen.
Negativen Zinssatz nennt man Inflation und negatives Startkapital entspricht dem Inhalt meines Bankkontos.

Da das erst mein 4. oder 5. Post hier ist und ich die Sitten noch nicht so kenne, hoffe ich das gelegntlich etwas Humor mal erlaubt ist

Negativen Zinssatz gibt es nicht (Inflation ist die Vergrößerung der Geldmenge, es gibt auch Deflation aber das hat nicht direkt etwas mit den Zinsen zu tun) da niemand (gewerblich) Geld verleiht wenn er weis dass er weniger zurückbekommt.

Negatives Startkapital OK - das ist dann halt keine Geldanlage sondern ein Kredit.

Um noch etwas herumzuoptimieren:

Delphi-Quellcode:

  for i := 1 to Jahre do
  begin
    Startkapital := Result;
    Result := Result*(Zins/100)+StartKapital;
  end;
// ist gleich
  for i := 1 to Jahre do
  begin
    Result := Result*(Zins/100)+Result;
  end;
// ist gleich
  for i := 1 to Jahre do
  begin
    Result := Result * (Zins/100 + 1);
  end;
// ist gleich
Result := Result * Power(1 + Zins/100, Jahre);

[Jumpy]

@Matze:
4. oder 5. Post: gemeint waren Hilfsversuche meinerseits.
Die wo ich die Newbie-Fragen gestellt habe, hab ich nicht mitgezählt.

@jfheins:
Du hast natürlich recht, was die Optimierung angeht, aber es sollte ja mit For-Schleife gelöst werden, daher passt der letzte nicht so gut. Der dritte ist daher mMn der optimalste, obwohl man didaktisch im ersten oder zweiten noch mehr sieht was passiert (Ausklammern ist schon nicht mehr jedermanns Sache).

Oft ist es ja auch gewünscht die Kapitalentwicklung zwischendurch auszugeben, dann muss es ja denk ich 'ne Schleife sein, wobei man natürlich auch die letzte Variante zu Ausgabezwecken in ne Schleife packen kann...

Gute Nacht,
Jumpy