![]() |
Bedingung für Schleife nach einem Durchgang erfüllt!?????
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: ![]() {* 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:
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".
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; |
Re: Bedingung für Schleife nach einem Durchgang erfüllt!????
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). |
Re: Bedingung für Schleife nach einem Durchgang erfüllt!????
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. ![]() Muss man vllt Kapital - StrToFloat (EditKapital.Text) um Zinsen anzugeben ? |
Re: Bedingung für Schleife nach einem Durchgang erfüllt!????
Hi!
Hmm? Ich verstehe deine Frage leider nicht so ganz. Allerdings bitte ich dich nochmals, die Bilder anzuhängen statt einzubinden! Grüße, Frederic |
Re: Bedingung für Schleife nach einem Durchgang erfüllt!????
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:
[edit=SirThornberry]Beiträge zusammengeführt - Mfg, SirThornberry[/edit]
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; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:23 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz