Zinseszins

[Matze]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
function Power (Base,Exponent:Extended):Extended;
var  eintritt,austritt,rate,
Anzahl,Abzug,Abzug2,gesamtabzug,Beitrag,KApital:real;
hoch:extended;
begin
  Edit1.Text:=FloatToStr(eintritt);
  Edit2.Text:=FloatToStr(Rate);
  Edit3.Text:=FloatToStr(Austritt);

  Anzahl:=Austritt-Eintritt;
  Abzug:= (Rate*4)/100;
  Abzug2:=(Rate*10)/100;
  gesamtabzug:=Abzug+Abzug2;
  Beitrag:=rate-Abzug;
  hoch:=power(1.05,Anzahl);
  Kapital:=Beitrag*hoch-1/(hoch*(hoch-1));
  Edit4.Text:=FloatToStr(Kapital);
end;