Zinsrechnung
Was ich machen will:
Ein Programm, bei dem ich die Jahresanzahl, den zinssatz und das kapital eingeben kann und das mir dann dieses in ein endkapital berechnet, was mir dann am ende zur verfügung stehen würde. Mein Problem ist nun, dass das Prog bei mir hängenbleibt... bitte um hilfe:
Code:
procedure TForm1.RechnenButtonClick(Sender: TObject);
var AJahre,EJahre,n: integer; Zins,AKapital,EKapital: real; begin AJahre:=StrToInt(Jahreedit.text); Zins:=StrToInt(Zinssatzedit.text); AKapital:=StrToInt(Anfangskapitaledit.text); n:=0; repeat EKapital:=AKapital*(zins/100)+AKapital; Until n=AJahre; EJahre:=AJahre; Endkapitaledit.text:=FloatToStr(EKapital); Jahre2edit.text:=IntToStr(EJahre); end; end. |
Re: Zinsrechnung
Hallo,
wo bleibt denn dein Programm hängen? Unsere Glaskugeln sind meistens in der Reparatur und deshalb können wir nicht hellsehen. aber ich vermute mal, dass du in der Schleife hängen bleibst:
Delphi-Quellcode:
Wann soll n denn gleich AJahre werden? - Du erhöhst in der Schleife nirgends n.
n:=0;
repeat EKapital:=AKapital*(zins/100)+AKapital; Until n=AJahre; Deshalb ist das eine Endlosschleife. Deshalb hängt sich das Programm auf. |
Re: Zinsrechnung
es bleibt hängen, sobald ich den Rechnen Button klicke...
wie kann man "n" in die schleife einbauen? |
Re: Zinsrechnung
probiers mal so:
Delphi-Quellcode:
n:=0;
repeat EKapital := AKapital * (zins / 100) + AKapital; inc(n); Until n = AJahre; |
Re: Zinsrechnung
Also nun ist der Hänger weg...
Hab aber nun folgendes Problem: Ich will immer die Zinsen des aktuellen Betrages benutzen, heißt also, dass wenn ich z.b. 100 Euro auf 10% Zinsen und 2 Jahre anlege zuerst die 10% von den 100 € haben will, also 110€ und von dem Betrag gleich wieder die 10% Formel habe ich grad nicht in der Umgebung XD Es müsste aber eigentlich die stimmen, die im Quellcode verwendet wurde... |
Re: Zinsrechnung
vielleicht so:
Delphi-Quellcode:
n:=0;
repeat AKapital := AKapital * (zins / 100) + AKapital; inc(n); Until n = AJahre; EKapital := AKapital; |
Re: Zinsrechnung
danke es geht^^
War schon voll verzweifelt :). Wir haben des in der Schule angefangen gehabt...ich wollte es auf einen leicht anderen Weg zustande bringen und bin dann hängen geblieben XD |
Re: Zinsrechnung
Zitat:
|
Re: Zinsrechnung
Er wiederholt den Vorgang sooft mit den aktuellen werten, bis n die Jahreanzahl erreicht hat. Dann bricht es ab und behält den akutellen Wert und setzt ihn für die Ausgabe des Betrages ein...
Denke ich mal^^ Des inc(n) scheint eine Art Zähler zu sein... |
Re: Zinsrechnung
oder so ganz ohne Schleife:
Delphi-Quellcode:
für power solltest Du die Math unit einbinden
EKapital:= AKaptital*power((1+zins/100),AJahre);
Infos zu Zinseszinsberechnung findest Du hier. Grüße Klaus |
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:06 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz