program penghitungan gaji karyawan

Hello, Hari ini saya akan membagikan beberapa buah coding program tentang menghitung gaji sederhana dengan menggunakan pascal. Sebenarnya untuk membuat program menghitung gaji karywan dengan pascal tersebut sangatlah tidak sesulit yang kita bayangkan, asalkan kita mau fokus untuk mengerjakannya. Tetapi saat ini saya hanya memberikan coding tentang menghitung gaji karyawan menurut jabatan di suatu perusahaan tertentu. Nah dari pada saya banyak ngomong ngelantur kesana kesini nggak jelas (eaaa kaaan :D), langsung di lihat saja deh Coding tentang menghitung gaji karyawan di suatu perusahaan tertentu dengan menggunakan pascal yeah.

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.

program hitung_gaji;
uses wincrt;
var
gaji:longint;
jabatan:string;
g_bersih,pajak,gaji_l,lembur,g_kotor:real;
begin
clrscr;
Write('Masukkan Jabatan : '); readln(jabatan);
If (jabatan='Manager') or (jabatan='manager') then
Begin
Gaji:=3000000;
End
Else If (jabatan='Supervisor') or (jabatan='supervisor') then
begin
gaji:=2000000;
end
Else If (jabatan='Operator') or (jabatan='operator') then
begin
gaji:=1420000;
end;
Writeln('Gaji Pokok : Rp.',gaji);


writeln('Jumlah Lembur'); readln(lembur);
gaji_l:=10000*lembur;

Writeln('Gaji Lembur : Rp.',gaji_l:0:2);
         g_kotor:=gaji+gaji_l;
            Pajak:=05*g_kotor;
            g_bersih:=gaji+gaji_l-pajak ;
           Writeln('Pajak : Rp.',pajak:0:2);
         Writeln('Gaji kotor : Rp.',g_kotor:0:2);
         Writeln('Gaji Bersih : Rp.',g_bersih:0:2);
       


 end.

Demikianlah listing program penghitungan gaji karyawan, semoga bermanfaat ya. Baca juga program input nilai mahasiswa.