Program Penggajian Menggunakan Delphi

var

Nama :String;

BanyakAnak, GajiPokok, TunjanganIstri,TunjanganAnak, TotalTunjangan, GajiKotor, Pajak, GajiBersih :Currency;

begin

Nama :=ENama.Text;

BanyakAnak :=StrToCurr(EBanyakAnak.Text);

GajiPokok :=StrToCurr(EGajiPokok.Text);

TunjanganIstri :=0.2*GajiPokok;

ETunjanganIstri.Text :=CurrToStr(TunjanganIstri);

TunjanganAnak :=0.05*GajiPokok*BanyakAnak;

ETunjanganAnak.Text :=CurrToStr(TunjanganAnak);

TotalTunjangan := TunjanganAnak+TunjanganIstri;

ETotalTunjangan.Text :=CurrToStr(TotalTunjangan);

GajiKotor:=GajiPokok+TotalTunjangan;

EGajiKotor.Text :=CurrToStr(GajiKotor);

Pajak :=0.1*GajiKotor;

EPajak.Text :=CurrToStr(Pajak);

GajiBersih :=GajiKotor-Pajak;

EGajiBersih.Text :=CurrToStr(GajiBersih);

end;

ADS HERE !!!