Zinseszins-Berechnung

[Sir Rufo]

Einen Mehrwert würde es aber bringen, wenn du deinen Code in eine Funktion auslagern würdest:

Delphi-Quellcode:

function ZinsesZinsBerechnungLaufzeit( const StartKapital, ZinsSatz, ZielKapital: Currency ) : Integer;
var
  AktuellesKapital: Currency;
  Laufzeit: Integer;
begin
  AktuellesKapital := StartKapital;
  Laufzeit := 0;
  while AktuellesKapital < ZielKapital do
  begin
    AktuellesKapital := AktuellesKapital + ( AktuellesKapital * Zinssatz ) / 100;
    Inc( Laufzeit );
  end;
  Result := Laufzeit;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  LaufzeitLabel.Caption := IntToStr( 
    ZinsesZinsBerechnungLaufzeit( 
      StrToCurr( StartKapitalEdit.Text ),
      StrToCurr( ZinsSatzEdit.Text ),
      StrToCurr( ZielKapitalEdit.Text ) ) );
end;

Im Übrigen macht dieser Code exakt das, was in der Aufgabe steht. Denn dort sehe ich nichts von der Ausgabe der Zwischenschritte

Ein Umbau auf repeat sollte problemlos möglich sein. Allerdings musst du auf die Kopf-Bedingung achten

[timbou]

Habe im Internet davon auch schon gelesen. Allerdings sind wir wegen ständigen Ausfällen wegen "Krankheit" des Lehrers noch nicht so weit gekommen, wodurch dies auch nicht verlangt ist.

Aber natürlich wäre es verdammt souverän, nach paar Stunden Unterricht solche Codes rauszuhauen

[Sir Rufo]

Zitat von timbou:

Habe im Internet davon auch schon gelesen. Allerdings sind wir wegen ständigen Ausfällen wegen "Krankheit" des Lehrers noch nicht so weit gekommen, wodurch dies auch nicht verlangt ist.

Aber natürlich wäre es verdammt souverän, nach paar Stunden Unterricht solche Codes rauszuhauen

Verlangt ist das bestimmt nicht, aber wie du siehst ist alles auf einmal viel übersichtlicher und handlicher

Und für eine vernünftige Namesgebung sollte eigentlich kein Unterricht nötig sein

[timbou]

Ist wirklich viel übersichtlicher Ich mache es dann in der Kursarbeit nach den vom Lehrer gegebenen Methoden. Sollte ich noch Zeit haben, kann ich ja nach etwas nach dieser Methode schreiben. Extrapunkte sind immer gut

[Amateurprofi]

Zitat von Sir Rufo:

Einen Mehrwert würde es aber bringen, wenn du deinen Code in eine Funktion auslagern würdest:

Delphi-Quellcode:

function ZinsesZinsBerechnungLaufzeit( const StartKapital, ZinsSatz, ZielKapital: Currency ) : Integer;
var
  AktuellesKapital: Currency;
  Laufzeit: Integer;
begin
  AktuellesKapital := StartKapital;
  Laufzeit := 0;
  while AktuellesKapital < ZielKapital do
  begin
    AktuellesKapital := AktuellesKapital + ( AktuellesKapital * Zinssatz ) / 100;
    Inc( Laufzeit );
  end;
  Result := Laufzeit;
end;

Probier das mal mit StartKapital = 0.01 und Zinssatz=0.1;
Beides Werte die durchaus vorkommen können.

Um eine Endlosschleife zu vermeiden, sollte geprüft werden, ob die Zinsen = 0 sind.
Weiterhin sollten die angefallenen Zinsen auf 2 Stellen gerundet werden, denn Banken schreiben keine Zinsen gut, wenn der (gerundete) Zinsertrag < 1 Cent ist.

[Sir Rufo]

Ich muss die Aufgabe nicht abgeben