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);