CONTOH PROGRAM SYSTEM GAJI

program Gaji;

uses crt;

var gp,gb,pjk,js,tis,ta,tjb:real;

nik:string[10];

nk:string[27];

sts:string[9];

jb:string[15];

ja:byte;

begin

clrscr;

write('Nomor Induk Karyawan=');

readln(nik);

write('Nama Karyawan=');

readln(nk);

write('Status=');

readln(sts);

write('Jumlah Anak=');

readln(ja);

write('Jabatan=');

readln(jb);

write('Gaji Pokok=');

read(gp);

if sts='menikah' then begin

tis:=0.1*gp;

end

else begin

tis:=0;

end;

if ja<=3 then begin ta:=0.05*gp*ja; end else if ja>3 then begin

ta:=0.05*gp*3;

end

else begin

ta:=0;

end;

if jb='manager' then begin

tjb:=2000000;

end

else

if jb='supervisor' then begin

tjb:=1500000;

end

else

if jb='mandor' then begin

tjb:=1000000;

end

else begin

tjb:=0;

end;

pjk:=0.025*gp;

js:=0.01*gp;

gb:=(gp+tis+ta+tjb)-(pjk+js);

writeln('Tunjangan Istri=', tis:3:2);

writeln('Tunjangan Anak=', ta:3:2);

writeln('Tunjangan Jabatan=', tjb:3:2);

Writeln('Pajak=', pjk:3:2);

writeln('Jamsostek=', js:3:2);

writeln('Gaji Bersih=', gb:3:2);

readkey;

end.suprapto-com.blogspot.com