PROGRAM KOPKAR PT BIL DENGAN DELPHI

Kopkar bil dengan Delphi

Dobel klik botton close

Close;

Dobel klik button bersih

enama.Text:='';

ejumlah.Text:='';

ebunga.Text:='';

elama.Text:='';

ekembali.Text:='';

ecicilan.Text:='';

Dobel kiik button total

var

a,b,c,d,e :real;

begin

a:=StrToFloat(ejumlah .Text );

b:=StrToFloat(ebunga .Text );

c:=StrToFloat(elama .Text );

d:=bunga(a,b,c);

ekembali.Text:=floattostr(d);

ekembali.Text:=formatfloat('#.###,0',d);

e:=d/c;

ecicilan.Text:=floattostr(e);

ecicilan.Text:=formatfloat('#.###,0',e);

 

end;

jgn lupa comen dibah y