Thema: Delphi Projektaufgabe

Einzelnen Beitrag anzeigen

champ100

Registriert seit: 4. Mär 2015
4 Beiträge
 
#19

AW: Projektaufgabe

  Alt 31. Mär 2015, 19:02
hey jo, ich bin jetzt ein bisschen vorran gekommen... nur habe ich gerade das problem das meine zinsen nicht richtig berechnet werden seht ihr den fehler??


Delphi-Quellcode:
function zinsen(anl,zins:real;zeit:integer):real;
begin
 if zeit=0 then zinsen:=anl
           else zinsen:=zinsen(anl,zins,zeit-1)*(1+zins);
end;

procedure TForm1.Button1Click(Sender: TObject);
var anl,zins:real;
    zeit,i:integer;
begin
memo1.Clear;
memo2.Clear;
memo3.Clear;
for i:= 1 to strtoint(edit2.Text) do
begin
anl:=strtofloat(edit1.text);
zins:=strtofloat(edit2.text)/100;
Memo1.Lines.Add(inttostr(i));
Memo2.Lines.Add(floattostrf(zinsen(anl,zins,i),fffixed,10,2));
Memo3.Lines.Add(floattostrf(zinsen(anl,zins,i)-zinsen(anl,zins,i-1),fffixed,10,2));
end;
end;
  Mit Zitat antworten Zitat