Bedingung für Schleife nach einem Durchgang erfüllt!?????

[GW1nner]

Hallo,
kurze Info am Rande, in der Schule programmieren wir mit Delphi. Da ich Wirtschaftinformatik habe programmieren wir Fachgerechte Programme.


Beim Folgenden Programm möchte ich gerne bei einem Konto Betrag(Kapital: siehe Code), auf welches jährlich Zinsen in Prozent(Zinssatz: siehe Code) berechnet werden wissen, wie lange es dauerd bis ein Wunschbetrag, den ich definiere erreicht ist.

Beispiel:

Bild


{* Die Ausgabe wäre so als Frage zu stellen:
Wie lange dauerd es bis ein Betrag von mindestens oder der nächst höherer betrag "120" erreicht ist?
Wie viel betragen die Zinsen, die Anfallen?
Welcher Betrag kommt da raus?
*}

Delphi-Quellcode:

procedure TFormZinsrechnung.ButtonRechnenClick(Sender: TObject);
var Kapital, Zinsen, Wunschbetrag:double;
    Jahre, Zinssatz: integer;
begin
    TRY   if StrToFloat (EditKapital.Text)< StrToFloat (EditWunschbetrag.Text)
          then begin
                    Kapital := StrToFloat (EditKapital.Text);
                    Wunschbetrag  := StrToFloat (EditKapital.Text);
                    Zinssatz      := StrToInt   (EditZinssatz.Text);
                    Jahre         :=  0;
                        REPEAT
                          Zinsen := Kapital/100*Zinssatz;
                          Jahre := Jahre+1;
                          Kapital := Zinsen+Kapital;
                        UNTIL Kapital>=Wunschbetrag;
                    EditNKapital.Text := FloatToStr (Kapital);
                    EditJahre.Text    := IntToStr (Jahre);
                    EditZinsen.Text   := FLoatToStr (Zinsen);
             end
             else
             MessageDlg('Custom dialog',mtCustom,
                              [mbYes,mbAll,mbCancel], 0);

    EXCEPT  ShowMessage('Custom dialog');
    END;
end;

Ich verstehe einfach nicht wieso für ihn die Bedingung nach einem Mal schon erfüllt ist? Denn Until sagt ja aus: "Sobald Kapital größer gleich dem Wunschbetrag ist, dann stoppe".

[fkerber]

Hi!

Herzlich Willkommen in der DP!

Schau mal diese beiden Zeilen - fällt dir da was auf?

Delphi-Quellcode:

Kapital := StrToFloat (EditKapital.Text);
Wunschbetrag  := StrToFloat (EditKapital.Text)

Grüße, Frederic


P.S.:
Bitte hänge das Bild an, anstatt es einzubinden, damit der Thread schneller lädt und das Bild auch erhalten bleibt, wenn der externe Server mal nicht erreichbar ist. Dazu kannst du einfach deinen Beitrag editieren (Button oben rechts).

[GW1nner]

Ja vielen Dank, dachte schon, dass ich meine Logik komplett überdenken muss....


Merkwürdig ist, dass die Zinsen im Ausgabefeld als eine Deximalzahl immer erscheinen. Er soll ja alle Zinsen die gerechnet wurden zusammenzählen und Ausgaben.


Bild

Muss man vllt Kapital - StrToFloat (EditKapital.Text) um Zinsen anzugeben ?

[fkerber]

Hi!

Hmm?
Ich verstehe deine Frage leider nicht so ganz.

Allerdings bitte ich dich nochmals, die Bilder anzuhängen statt einzubinden!


Grüße, Frederic

[GW1nner]

Ok, habs gelöst. Vielen Dank nochmal fkerber, so schnell wie du schrieb mir bis jetzt noch in keinem Forum jmd.



Die Lösung wäre (für die Intressenten) eine zweite Variable Anzulegen mit dem man nach der Schleife den Neuen Kapital - Kapital am Anfang schreibt.

Zinsen2 := Kapital - StrTOFloat (EditKapital.Text);
EditZinsen.Text := FLoatToStr (Zinsen2);

Fertiger Delphi Code

Delphi-Quellcode:

procedure TFormZinsrechnung.ButtonRechnenClick(Sender: TObject);
var Kapital, Zinsen,Zinsen2 Wunschbetrag:double;
    Jahre, Zinssatz: integer;
begin
    TRY   if StrToFloat (EditKapital.Text)< StrToFloat (EditWunschbetrag.Text)
          then begin
                    Kapital := StrToFloat (EditKapital.Text);
                    Wunschbetrag  := StrToFloat (EditWunschbetrag.Text);
                    Zinssatz      := StrToInt   (EditZinssatz.Text);
                    Jahre         :=  0;
                        REPEAT
                          Zinsen := Kapital/100*Zinssatz;
                          Jahre := Jahre+1;
                          Kapital := Zinsen+Kapital;
                        UNTIL Kapital>Wunschbetrag;
                    EditNKapital.Text := FloatToStr (Kapital);
                    EditJahre.Text    := IntToStr (Jahre);
                    Zinsen2           := Kapital - StrTOFloat (EditKapital.Text);
                    EditZinsen.Text   := FLoatToStr (Zinsen2);

             end
             else
             MessageDlg('Custom dialog',mtCustom,
                              [mbYes,mbAll,mbCancel], 0);

    EXCEPT  ShowMessage('Custom dialog');
    END;
end;

[edit=SirThornberry]Beiträge zusammengeführt - Mfg, SirThornberry[/edit]