Zinsberechnung mit For Do Schleife

[DeddyH]

Wenn man für "Jahre" einen vorzeichenlosen Typ nimmt, spart man eine Prüfung ein. Und die Variable EndKapital ist überflüssig, da sie genauso wie die Funktion heißt und somit als Result fungiert (wie in seligen TP-Zeiten).

[Luckie]

Oh, ist mir gar nicht aufgefallen mit dem Funktionsnamen. Und mit dem vorzeichenlosen Integer ist das so eine Sache. Denn was passiert, wenn der Benutzer einen negativen Wert eingibt?

Delphi-Quellcode:

function ZinsesZins(StartKapital, Zins: Double; Jahre: Integer): Double;
var
  i: Integer;
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');
  Result := StartKapital;
  for i := 1 to Jahre do
  begin
    Startkapital := Result;
    Result := Result*(Zins/100)+StartKapital;
  end;
end;

[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

[Matze]

Zitat von Jumpy:

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

OT: Natürlich ist gelegentlicher Humor gestattet, keine Angst.

[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