Zinsberechnung

[Kladios]

Hallo...

ich möchte gerne ein Programm über die Zinsrechnung schreiben!

Hier mein Ansatz

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Startkapital: TEdit;
    Kontoauszug: TMemo;
    Jahre: TEdit;
    Zinsen: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var Einzahlung,zv,Zinssatz,AnzahlJahre,Kapital:Integer;
begin
        Einzahlung:=strtoint(Startkapital.Text);
        Zinssatz:=strtoint(Zinsen.Text);
        AnzahlJahre:=strtoint(Jahre.Text);
        for zv:= 1 to AnzahlJahre do
        Kapital:=Kapital*(1+Zinssatz/100);
        Kontoauszug.Text:=inttostr


end;

end.

http://www.250kb.de/u/061013/j/t/66bbc266.jpg http://www.250kb.de/u/061013/j/t/b725a3dc.jpg

http://www.file-upload.net/download_...pywv8.rar.html
Die Projektdatei als RAR.
Ab Kapital weiß ich nicht mehr weiter HILfeeee
Danke

[edit=Sharky]Delphi-Tags eingefügt. Mfg, Sharky[/edit]

[hanselmansel]

Delphi-Quellcode:

For zv := 1 to AnzahlJahre do
  Begin
  Kapital := Kapital*(1+Zinssatz/100);
  Kontoauszug.Lines.Add(FloatToStr(Kapital));
  End;

MfG,

hanselmansel

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Einzahlung,zv,Zinssatz,AnzahlJahre,Kapital:Integer;
begin
  Einzahlung:=strtoint(Startkapital.Text);
  Zinssatz:=strtoint(Zinsen.Text);
  AnzahlJahre:=strtoint(Jahre.Text);
  for zv:= 1 to AnzahlJahre do
    Kapital:=Kapital*(1+Zinssatz/100);

Nur eine kleine Anmerkung, solltest Du den Zinssatz nicht als
Float deklarieren? Denn so kann Dein Programm nur ganze Zahlen
als Zinssatz.

Und noch ein Link zu ZinsesZinsBerechnung -> http://de.wikipedia.org/wiki/Zinseszins
Geht dann ohne Schleife:
Kapital:=Kapital*power((1+Zinssatz/100),AnzahlJahre); Grüße
Klaus

[Kladios]

hmmm...

Code:

procedure TForm1.Button1Click(Sender: TObject);
var Einzahlung,zv,Zinssatz,AnzahlJahre,Kapital:Integer;
begin
        Einzahlung:=strtoint(Startkapital.Text);
        Zinssatz:=strtoint(Zinsen.Text);
        AnzahlJahre:=strtoint(Jahre.Text);
        Kapital:=Kapital*power((1+Zinssatz/100),AnzahlJahre);

end;

end.

power ist nicht definiert...

[Klaus01]

ich glaube, Du mußt die Math Unit noch einbinden.
Dort ist power meines Wissens deklariert.

Grüße
Klaus

[Kladios]

wenn ich math bei uses noch hinzufüge, dann kommt beim staren hinter Kapital:=Kapital*power((1+Zinssatz/100),AnzahlJahre); die fehlermeldung: Inkompatible Typen Integer und Extended

[Cöster]

Das liegt daran, dass du Kapital als Integer (=Ganzzahl) deklariert hast. Es kann aber ja 2 Nachkommastellen haben. Außerdem musst du dann einige deiner IntToStrs und StrToInts in FloatToStr bzw. StrToFloat ändern.

[mkinzler]

Statt StrToInt bzw. StrToFloat worde ich TryStrToInt bzw. TryStrToFloat

[Kladios]

Welche wären das denn bitte? Und als was muss Kapital anstatt Integer sein?
Danke

[Klaus01]

Zitat von Kladios:

Welche wären das denn bitte? Und als was muss Kapital anstatt Integer sein?
Danke

Kapital sollte ein FloatType sein. z.B. Extended ( da kann Dein Kapital auch sehr groß sein)
Um den Wert in einen String zu wandeln kannst Du TryStrToFloat verwenden.
Eventuell solltest Du den FloatWert noch runden (round, roundx).

Grüße
Klaus