unit Kapitalwertberechnung;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, math;
type
TForm1 =
class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
self.memo1.Text:=('
');
end;
procedure TForm1.Button1Click(Sender: TObject);
var summe, zinssatz, z, zahlungen: real;
i, n: integer;
begin
if edit1.text=('
')
then
begin
showmessage ('
Bitte Zinssatz eingeben.');
exit
end;
if memo1.lines.strings[0]=('
')
then
begin
showmessage ('
Bitte Zahlung eingeben.');
exit;
end;
i:=0;
zahlungen:=0;
summe:=0;
zinssatz:=strtofloat(edit1.text);
while (memo1.lines.strings[i]<>('
'))
do
begin
i:=i+1;
end;
n:=i;
z:=1+zinssatz/100;
z:=z*power(1/z,i);
while n>0
do
begin
zahlungen:=zahlungen+strtofloat(memo1.Lines.Strings[n]);
n:=n-1;
end;
summe:=zahlungen*z;
self.edit2.text:=floattostr(summe);
end;
end.