Program Menghitung Gaji Karyawan pada Bahasa Pemrograman Pascal

Assalamu’alaikum Wr Wb

Selamat datang di sibukngoding.com. Pada kesempatan kali ini saya akan membagikan contoh program menghitung gaji karyawan pada pascal. Program ini dibuat menggunakan fungsi if yang merupakan salah satu fungsi percabangan. Program ini saya ambil sepenuhnya dari blog saya yang lama annur24.wordpress.com. Teman-teman bisa melihat contoh program bahasa pemrograman Pascal lainnya disini.

Untuk soal dari yang akan di aplikasikan dalam program adalah sebagai berikut:

Suatu perusahaan membutuhkan program untuk menentukan perhitungan gaji setiap karyawannya sesuai dengan posisi dan jabatan.

* Input : Nama Pegawai/ karyawan, posisi/ Jabatan

* Output        : Total Gaji yang diterima.

NO	Jabatan	Gaji	Tunjangan
1.	Direktur	5.000.000	10 % Gaji
2.	Manager	3.000.000	5 % Gaji
3.	Karyawan	1.500.000	2 % Gaji
4.	OB	1.000.000	1 % Gaji

Ketentuan:

* Dikenakan PPN 10 % dari gaji Awal

* Gaji Bersih didapat dari : gaji  + tunjangan – PPn

Untuk Source codenya sebagai berikut:

PROGRAM Gajikaryawan;

USES crt;

CONST G_Direktur=5000000;

      G_Manager=3000000;

      G_Karyawan=1500000;

      G_OB=1000000;

Var  nama:string[20];

     jabatan:string[10];

     tunjangan,ppn,gajiawal,gajibersih:real;

Begin

writeln('PROGRAM MENENTUKAN GAJI KARYAWAN');

writeln('**************************');

//Inpt Data

write('Nama Pegawai / Karyawan : ');readln(nama);

write('Jabatan                 : ');readln(jabatan);

writeln('RINCIAN GAJI');

writeln('*************************************');

//Seleksi Jabatan

if jabatan='DIREKTUR' then

   begin

   //Rumus mencari tunjangan dan gaji awal jika jabatannya Direktur

   tunjangan:=0.10* G_Direktur;//Tunjangan Direktur 10%

   gajiawal:= G_Direktur+tunjangan;

   Writeln('Gaji Pokok      : ',G_Direktur);

   end

else if jabatan='MANAGER' then

   begin

    //Rumus mencari tunjangan dan gaji awal jika jabatannya Manager

   tunjangan:=0.05* G_Manager;//Tunjangan Manager 5%

   gajiawal:= G_Manager+tunjangan;

   Writeln('Gaji Pokok       : ',G_Manager);

   end

else if jabatan='KARYAWAN' then

   begin

   //Rumus mencari tunjangan dan gaji awal jika jabatannya Karyawan

   tunjangan:=0.02* G_Karyawan;//Tunjangan Karyawan 2%

   gajiawal:= G_Karyawan+tunjangan;

   Writeln('Gaji Pokok       : ',G_Karyawan);

   end

else if jabatan='OB' then

   begin

    //Rumus mencari tunjangan dan gaji awal jika jabatannya OB

   tunjangan:=0.01* G_ob;//Tunjangan OB 1%

   gajiawal:= G_ob+tunjangan;

   Writeln('Gaji Pokok       : ',G_ob);

   end

else

   writeln('Maaf, Jabatan tersebut tidak ada...');

ppn:=0.1*gajiawal;//PPn 10 %

gajibersih:=gajiawal-ppn;//Menghitung Gaji Bersih

//Output Program

writeln('Tunjangan        : ',tunjangan:0:0);

writeln('Gaji Awal        : ',gajiawal:0:0);

writeln('PPn              : ',ppn:0:0);

writeln('Gaji Bersih      : ',gajibersih:0:0);

readKey;

End.

Jika di Run, nanti kita masukkan nama dan jabatan sebagai contoh saya mengetikkan jabatan “DIREKTUR” maka akan tampil seperti berikut:

Untuk input jabatan, kita harus inputkan sesuai yang ada di program bagian If. Jika tidak sama, secara otomatis akan tampil tulisan “Ma’af, Jabatan tersebut tidak ada.....” seperti tampilan di bawah ini.

Demikian tadi contoh program perhitungan gaji karyawan pada bahasa pemrograman pascalmenggunakan fungsi if. Teman-teman juga bisa mengunakan fungsi case dalam program ini. Silahkan diperlajari lagi dan jika ada pertanyaan, bisa ditanyakan lewat kolom komentar. Jangan lupa untuk berkunjung di web sibukngoding.com untuk mendapatkan contoh program lainnya.

Terimakasih atas kunjungannya, Selamat Belajar dan jangan mudah menyerah.

Wassalamu’alaikum Wr Wb