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.
- Follow us on Twitter, or subscribe to the rizqtech RSS Feed for more daily web development and articles.
Enjoy this Post!
