Script untuk mencari data dan menghitung Gaji.

Script untuk mencari data dan menghitung Gaji.

uses wincrt;

var
nik,nama,jabatan:string;
intens:real;
gj_pkk,tunj,tunj_jab,ttl_gj,iuran_jamsos,sub_ttl,pph,gj_bersih:real;

begin
writeln(‘******************************’);
writeln(‘* SLIP GAJI BULAN APRIL 2007 *’);
writeln(‘* PT. SABAR MENANTI *’);
writeln(‘******************************’);
writeln;
writeln;
write(‘NIK :’);
readln(nik);
write(‘NAMA :’);
readln(nama);
write(‘Jabatan :’);
readln(jabatan);

writeln;
writeln;

write(‘Gaji Pokok Rp ‘);
readln(gj_pkk);
writeln;
intens:=(gj_pkk/72)*15;
writeln(‘Intensive 15 jam Rp’,intens:10:2);

tunj:=intens*15/100;
writeln(‘Tunjangan 15% Rp’,tunj:10:2);

tunj_jab:=intens*20/100;
writeln(‘Tunjangan Jab. 20% Rp’,tunj_jab:10:2);
writeln(‘ _____________’);

ttl_gj:=gj_pkk+intens+tunj+tunj_jab;
writeln(‘ Total Gaji Rp’,ttl_gj:10:2);

iuran_jamsos:=ttl_gj*5/100;
writeln(‘Iuran Jamsostekt 5% Rp’,iuran_jamsos:10:2);
writeln(‘ ____________’);

sub_ttl:=ttl_gj-iuran_jamsos;
writeln(‘Sub Total Rp’,sub_ttl:10:2);
pph:=5/100*sub_ttl;
writeln(‘PPH 5% Rp’,pph:10:2);
writeln(‘ ____________’);
gj_bersih:=pph+sub_ttl;
writeln(‘Gaji Bersih Rp’,gj_bersih:10:2);
end.