Membuat program penghitungan gaji karyawan di dalam pascal
Hai semua, Hari ini saya akan membagikan satu buah coding program tentang menghitung gaji sederhana dengan menggunakan pascal, sebetulnya untuk membuat program menghitung gaji karywan dengan pascal tersebut sangat lah gampang kalo kita focus untuk mengerjakannya, tetapi saat ini saya hanya memberikan coding tentang menghitung gaji karyawan menurut jabatan di suatu perusahaan. Nah dari pada saya banyak ngomong, langsung di lihat saja deh Coding tentang menghitung gaji karyawan di suatu perusahaan dengan menggunakan pascal yah.
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. |
Sekian dan TerimaKasih, Silahkan Kunjungi Artikel Saya yang Lain yah.