Registriert seit: 4. Mär 2015
4 Beiträge
|
AW: Projektaufgabe
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;
|
|
Zitat
|