Tugas Kelompok Nomor 2

Flowchart Gaji Karyawan

Listing Program Gaji Karyawan

Procedure Tform3cjabatanclick(sender:TObject)

Bagin

If cjabatan text = “direktur” then

epokok.text=”5000.000”

If cjabatan text = “manager” then

epokok.text=”2000.000”

else

if cjabatan text = “karyawan” then

epokok.text= “1000.000”

else

epokok.text= “0”

end.

Interface Gaji Karyawan