Program Gaji Karywan

Sabtu, September 10, 2011 andrytech.co.cc No comments

Program Gaji Karyawan . Dalam hal ini seseorang mendapatkan gaji di tambah tunjangan sebesar 50 % bila bekerja lebih dari 5 tahun, dan mendapatkan tunjangan 20 % bila kurang dari 5 tahun lama kerjanya. Oke langsung saja begini scriptnya.

Program Gaji_Karyawan;

uses wincrt;

var

gapok,lb,ket,totalgaji : real;

begin

writeln(‘Program Gaji Karyawan’);

writeln(‘---------------------------------------------------------’);

write(‘Masukkan Gaji Pokok/Bulan : ’);readln(gapok);

write(‘Lama Bekerja : [tahun] ke- ’);readln(lb);

if lb > 5 then

ket:= gapok * 0.5

else

ket:= gapok* 0.2;

totalgaji:=ket+gapok;

write(‘Total Gaji : ’,totalgaji:0:0);

end.

Posted in: Turbo Pascal