Program Gaji
Program Gaji ;
uses wincrt;
var Nama,Nip : char ;
gaji_pokok,gaji_kotor,tunjangan,pajak,gaji_bersih :real;
begin
writeln (‘ Gaji Pegawai ‘) ;
write ( ‘ Nama : ‘ ) ; readln ( Nama ) ;
write ( ‘ Nip : ‘) ; readln (Nip) ;
write ( ‘ Gaji Pokok : ‘ ) ; readln ( gaji_pokok ) ;
write ( ‘ Tunjangan : ‘ ) ; readln ( tunjangan ) ;
writeln;
pajak := 0.1 * gaji_pokok ;
writeln ( ‘ Pajak : ‘ , pajak : 2 : 0 ) ;
gaji_kotor := gaji_pokok + tunjangan ;
writeln ( ‘ Gaji Kotor : ‘ , gaji_kotor: 2 : 0 ) ;
gaji_bersih := gaji_kotor + pajak ;
writeln ( ‘ Gaji Bersih: ‘ , gaji_bersih : 2 : 0 ) ;
readln ;
end.
Kata Kunci
program gaji pegawai pascal function procedure, pascal program gaji, program gaji pascal, program gaji, program pascal gaji, program gaji karyawan dengan array pada pascal, program pascal array menghitung pajak, contoh program pascal penghitungan gaji karyawan, contoh program pascal gaji, program pascal menghitung gaji karyawan dengan menggunakan procedure.
Related posts:
