Aplikasi Aritmatika: Menghitung Besar Angsuran

Langsung saja desain seperti berikut ini.

Pada tombol “Hitung” ketikkan scribs berikut.

Var Mo,p,n,Mt,Pk,B,T,S:real;

begin

e4.Clear;

Mo:=strtofloat(e1.Text);

p:=strtofloat(e2.Text);

n:=strtofloat(e3.Text);

Pk:=Mo/n;

B:=(n/12)*(p/100)*Mo;

Mt:=Pk+B;

T:=n*Mt;

S:=T-Mo;

e4.Items.Add('Angsuran Pokok = '+floattostr(Pk));

e4.Items.Add('Bunga = '+floattostr(B));

e4.Items.Add('Angsuran Bulanan = '+floattostr(Mt));

e4.Items.Add('Total Pengembalian = '+floattostr(T));

e4.Items.Add('Untung Perusahaan = '+floattostr(S));

Pada tombol “Hapus” ketikkan scribs berikut.

e1.Clear;

e2.Clear;

e3.Clear;

e4.Clear;

e1.SetFocus;