Program sederhana menghitung gaji (Turbo Pascal)

Post Comment


        Semangat pagi !!! pagi hari alangkah baiknya jika diawali dengan semangat. kali ini saya akan membahas tentang cara membuat program sederhana menghitung gaji. Setiap perusahaan pasti membutuhka program sederhana seperti ini untuk menghitung gaji karyawannya, tidak mungkin jika dihitung secara manual.
        Baik tidak usah berlama-lama lagi, mari kita mulai,  Check it out.
    1.    Langkah pertama adalah siapkan dan jalankan aplikasi TPW.exe nya, anda bisa download disini.

    2.   Copykan Code berikut ke aplikasi pascalnya :
Program gaji_pegawai;
uses wincrt;

var
Nim: string;
Nama: string;
Tempat_lahir: string;
Tgl_lahir: string;
Jabatan: string;
Status_Menikah: string;
Tunjangan_menikah: real;
Jumlah_anak: real;
Tunjangan_anak: real;
Tunjangan_jabatan: real;
Target_terpenuhi: string;
Bonus_Target_terpenuhi: real;
Bonus_absen_full: real;
Absen_Full: string;
Jumlah_hari_kerja: string;
Uang_Transport: real;
Uang_makan: real;
Berapa_kali_Makan: real;
Berapa_kali_naik_Transport: real;
Potongan_jamsostek: real;
Ikut_jamsostek: string;
Potongan_pajak: real;
THR: real;
Bayar_pajak: string;
Uang_lembur: real;
Berapa_Jam_Lembur: real;
Potongan_liburan: real;
Potongan_biaya_peralatan: real;
Mengambil_peralatan: string;
Gaji_pokok: real;
Gaji_bersih: real;
Uang_Tes_kesehatan: real;
Pemasukan: real;
Pengeluaran: real;
Jumlah_Bonus: real;

procedure dir;
begin
     if Status_Menikah = 'N' then
        begin
               
        Gaji_pokok:=4000000;
        Tunjangan_jabatan:=Gaji_pokok*0.1;
        Tunjangan_anak:=Jumlah_anak*(0.05* Gaji_pokok);
        Bonus_Target_terpenuhi:=Gaji_pokok*0.05;
        Bonus_absen_full:=Gaji_pokok*0.02;
        Uang_Transport:=Berapa_kali_naik_Transport*15000;
        Uang_makan:=Berapa_kali_Makan*15000;
        Potongan_jamsostek:= Gaji_pokok*0.02;
        Potongan_pajak:=Gaji_pokok*0.1;
        Uang_lembur:=Berapa_Jam_Lembur*10000;
        Potongan_liburan:= Gaji_pokok*0.1;
        Potongan_biaya_peralatan:=Gaji_pokok*0.1;
        THR:=Gaji_pokok*2;
        Tunjangan_menikah:=100000;
        Uang_Tes_kesehatan:= 100000;

Pemasukan:=Gaji_pokok+Tunjangan_jabatan+Tunjangan_anak+Uang_Transport+Uang_makan;
Jumlah_Bonus:=Bonus_Target_terpenuhi+Bonus_absen_full+Uang_lembur+Tunjangan_menikah+THR;
Pengeluaran:=Uang_Tes_kesehatan+Potongan_biaya_peralatan+Potongan_liburan+Potongan_pajak+Potongan_jamsostek;
Gaji_bersih:=Pemasukan-pengeluaran+Jumlah_Bonus;

writeln('Gaji Pokok: ', Gaji_pokok:30:0);
writeln('Tunjangan Jabatan       : ',Tunjangan_jabatan:30:0);
writeln('Tunjangan Anak: ',Tunjangan_anak:30:0);
writeln('Bonus Target terpenuhi:',Bonus_Target_terpenuhi:30:0);
writeln('Bonus absen full: ', Bonus_absen_full:30:0);
writeln('Uang Transport: ', Uang_Transport:30:0);
writeln('Uang makan: ',Uang_makan:30:0);
writeln('Potongan jamsostek: ', Potongan_jamsostek:30:0);
writeln('Potongan pajak: ',Potongan_pajak:30:0);
writeln('Uang lembur: ', Uang_lembur:30:0);
writeln('Potongan liburan: ',Potongan_liburan:30:0);
writeln('Potongan biaya tools:‘,Potongan_biaya_peralatan:30:0);
writeln('THR: ',THR:30:0);
writeln('Tunjangan menikah: ', Tunjangan_menikah:30:0);
writeln('Uang Tes kesehatan: ',Uang_Tes_kesehatan:30:0);
writeln('Gaji bersih: ',Gaji_bersih:30:0);
end
     else
                 begin
        Gaji_pokok:=4000000;
        Tunjangan_jabatan:=Gaji_pokok*0.1;
        Bonus_Target_terpenuhi:=Gaji_pokok*0.05;
        Bonus_absen_full:=Gaji_pokok*0.02;
        Uang_Transport:=Berapa_kali_naik_Transport*15000;
        Uang_makan:=Berapa_kali_Makan*15000;
        Potongan_jamsostek:= Gaji_pokok*0.02;
        Potongan_pajak:=Gaji_pokok*0.1;
        Uang_lembur:=Berapa_Jam_Lembur*10000;
        Potongan_liburan:= Gaji_pokok*0.1;
        Potongan_biaya_peralatan:=Gaji_pokok*0.1;
        THR:=Gaji_pokok*2;
        Uang_Tes_kesehatan:=100000;

Pemasukan:=Gaji_pokok+Tunjangan_jabatan+Tunjangan_anak+Uang_Transport+Uang_makan;
Jumlah_Bonus:=Bonus_Target_terpenuhi+Bonus_absen_full+Uang_lembur+Tunjangan_menikah+THR;
Pengeluaran:=Uang_Tes_kesehatan+Potongan_biaya_peralatan+Potongan_liburan+Potongan_pajak+Potongan_jamsostek;
Gaji_bersih:=Pemasukan-pengeluaran+Jumlah_Bonus;

writeln('Gaji Pokok: ',Gaji_pokok:30:0);
writeln('Tunjangan Jabatan: ',Tunjangan_jabatan:30:0);
writeln('Bonus Target terpenuhi:',Bonus_Target_terpenuhi:30:0);
writeln('Bonus absen full: ',Bonus_absen_full:30:0);
writeln('Uang Transport: ',Uang_Transport:30:0);
writeln('Uang makan:',Uang_makan:30:0);
writeln('Potongan jamsostek: ', Potongan_jamsostek:30:0);
writeln('Potongan pajak: ',Potongan_pajak:30:0);
writeln('Uang lembur: ', Uang_lembur:30:0);
writeln('Potongan liburan: ',Potongan_liburan:30:0);
writeln('Potongan biaya tools: ',Potongan_biaya_peralatan:30:0);
writeln('THR: ',THR:30:0);
writeln('Uang Tes kesehatan:',Uang_Tes_kesehatan:30:0);
writeln('Gaji bersih:',Gaji_bersih:30:0);
         end;
end;

procedure mgr;
begin
     if Status_Menikah = 'N' then
        begin
        Gaji_pokok:=3000000;
        Tunjangan_jabatan:=Gaji_pokok*0.1;
        Tunjangan_anak:=Jumlah_anak*(0.05* Gaji_pokok);
        Bonus_Target_terpenuhi:=Gaji_pokok*0.05;
        Bonus_absen_full:=Gaji_pokok*0.02;
        Uang_Transport:=Berapa_kali_naik_Transport*15000;
        Uang_makan:=Berapa_kali_Makan*15000;
        Potongan_jamsostek:= Gaji_pokok*0.02;
        Potongan_pajak:=Gaji_pokok*0.1;
        Uang_lembur:=Berapa_Jam_Lembur*10000;
        Potongan_liburan:= Gaji_pokok*0.1;
        Potongan_biaya_peralatan:=Gaji_pokok*0.1;
        THR:=Gaji_pokok*2;
        Tunjangan_menikah:=100000;
        Uang_Tes_kesehatan:=100000;

Pemasukan:=Gaji_pokok+Tunjangan_jabatan+Tunjangan_anak+Uang_Transport+Uang_makan;
Jumlah_Bonus:=Bonus_Target_terpenuhi+Bonus_absen_full+Uang_lembur+Tunjangan_menikah+THR;
Pengeluaran:=Uang_Tes_kesehatan+Potongan_biaya_peralatan+Potongan_liburan+Potongan_pajak+Potongan_jamsostek;
Gaji_bersih:=Pemasukan-pengeluaran+Jumlah_Bonus;

writeln('Gaji Pokok: ', Gaji_pokok:30:0);
writeln('Tunjangan Jabatan       : ',Tunjangan_jabatan:30:0);
writeln('Tunjangan Anak: ',Tunjangan_anak:30:0);
writeln('Bonus Target terpenuhi:',Bonus_Target_terpenuhi:30:0);
writeln('Bonus absen full: ', Bonus_absen_full:30:0);
writeln('Uang Transport: ', Uang_Transport:30:0);
writeln('Uang makan: ',Uang_makan:30:0);
writeln('Potongan jamsostek:', Potongan_jamsostek:30:0);
writeln('Potongan pajak:',Potongan_pajak:30:0);
writeln('Uang lembur:', Uang_lembur:30:0);
writeln('Potongan liburan:',Potongan_liburan:30:0);
writeln('Potongan biaya tools:',Potongan_biaya_peralatan:30:0);
writeln('THR:',THR:30:0);
writeln('Tunjangan menikah:',Tunjangan_menikah:30:0);
writeln('Uang Tes kesehatan:',Uang_Tes_kesehatan:30:0);
writeln('Gaji bersih:',Gaji_bersih:30:0);
end
     else
                 begin
        Gaji_pokok:=3000000;
        Tunjangan_jabatan:=Gaji_pokok*0.1;
        Bonus_Target_terpenuhi:=Gaji_pokok*0.05;
        Bonus_absen_full:=Gaji_pokok*0.02;
        Uang_Transport:=Berapa_kali_naik_Transport*15000;
        Uang_makan:=Berapa_kali_Makan*15000;
        Potongan_jamsostek:= Gaji_pokok*0.02;
        Potongan_pajak:=Gaji_pokok*0.1;
        Uang_lembur:=Berapa_Jam_Lembur*10000;
        Potongan_liburan:= Gaji_pokok*0.1;
        Potongan_biaya_peralatan:=Gaji_pokok*0.1;
        THR:=Gaji_pokok*2;
        Uang_Tes_kesehatan:=100000;
Pemasukan:=Gaji_pokok+Tunjangan_jabatan+Tunjangan_anak+Uang_Transport+Uang_makan;
Jumlah_Bonus:=Bonus_Target_terpenuhi+Bonus_absen_full+Uang_lembur+Tunjangan_menikah+THR;
Pengeluaran:=Uang_Tes_kesehatan+Potongan_biaya_peralatan+Potongan_liburan+Potongan_pajak+Potongan_jamsostek;
Gaji_bersih:=Pemasukan-pengeluaran+Jumlah_Bonus;

writeln('Gaji Pokok:', Gaji_pokok:30:0);
writeln('Tunjangan Jabatan:',Tunjangan_jabatan:30:0);
writeln('Bonus Target terpenuhi:',Bonus_Target_terpenuhi:30:0);
writeln('Bonus absen full:',Bonus_absen_full:30:0);
writeln('Uang Transport:',Uang_Transport:30:0);
writeln('Uang makan:',Uang_makan:30:0);
writeln('Potongan jamsostek:',Potongan_jamsostek:30:0);
writeln('Potongan pajak:',Potongan_pajak:30:0);
writeln('Uang lembur:',Uang_lembur:30:0);
writeln('Potongan liburan:',Potongan_liburan:30:0);
writeln('Potongan biaya tools:‘,Potongan_biaya_peralatan:30:0);
writeln('THR:',THR:30:0);
writeln('Uang Tes kesehatan:',Uang_Tes_kesehatan:30:0);
writeln('Gaji bersih:',Gaji_bersih:30:0);
         end;
end;

procedure spv;
begin
     if Status_Menikah = 'N' then
        begin
        Gaji_pokok:=2000000;
        Tunjangan_jabatan:=Gaji_pokok*0.1;
        Tunjangan_anak:=Jumlah_anak*(0.05* Gaji_pokok);
        Bonus_Target_terpenuhi:=Gaji_pokok*0.05;
        Bonus_absen_full:=Gaji_pokok*0.02;
        Uang_Transport:=Berapa_kali_naik_Transport*15000;
        Uang_makan:=Berapa_kali_Makan*15000;
        Potongan_jamsostek:= Gaji_pokok*0.02;
        Potongan_pajak:=Gaji_pokok*0.1;
        Uang_lembur:=Berapa_Jam_Lembur*10000;
        Potongan_liburan:= Gaji_pokok*0.1;
        Potongan_biaya_peralatan:=Gaji_pokok*0.1;
        THR:=Gaji_pokok*2;
        Tunjangan_menikah:=100000;
        Uang_Tes_kesehatan:=100000;

Pemasukan:=Gaji_pokok+Tunjangan_jabatan+Tunjangan_anak+Uang_Transport+Uang_makan;
Jumlah_Bonus:=Bonus_Target_terpenuhi+Bonus_absen_full+Uang_lembur+Tunjangan_menikah+THR;
Pengeluaran:=Uang_Tes_kesehatan+Potongan_biaya_peralatan+Potongan_liburan+Potongan_pajak+Potongan_jamsostek;
Gaji_bersih:=Pemasukan-pengeluaran+Jumlah_Bonus;

writeln('Gaji Pokok:', Gaji_pokok:30:0);
writeln('Tunjangan Jabatan       :',Tunjangan_jabatan:30:0);
writeln('Tunjangan Anak:',Tunjangan_anak:30:0);
writeln('Bonus Target terpenuhi:',Bonus_Target_terpenuhi:30:0);
writeln('Bonus absen full:',Bonus_absen_full:30:0);
writeln('Uang Transport:',Uang_Transport:30:0);
writeln('Uang makan:',Uang_makan:30:0);
writeln('Potongan jamsostek:',Potongan_jamsostek:30:0);
writeln('Potongan pajak:',Potongan_pajak:30:0);
writeln('Uang lembur:',Uang_lembur:30:0);
writeln('Potongan liburan:',Potongan_liburan:30:0);
writeln('Potongan biaya tools:',Potongan_biaya_peralatan:30:0);
writeln('THR:',THR:30:0);
writeln('Tunjangan menikah:',Tunjangan_menikah:30:0);
writeln('Uang Tes kesehatan:',Uang_Tes_kesehatan:30:0);
writeln('Gaji bersih:',Gaji_bersih:30:0);
end
     else
                 begin
        Gaji_pokok:=2000000;
        Tunjangan_jabatan:=Gaji_pokok*0.1;
        Bonus_Target_terpenuhi:=Gaji_pokok*0.05;
        Bonus_absen_full:=Gaji_pokok*0.02;
        Uang_Transport:=Berapa_kali_naik_Transport*15000;
        Uang_makan:=Berapa_kali_Makan*15000;
        Potongan_jamsostek:= Gaji_pokok*0.02;
        Potongan_pajak:=Gaji_pokok*0.1;
        Uang_lembur:=Berapa_Jam_Lembur*10000;
        Potongan_liburan:= Gaji_pokok*0.1;
        Potongan_biaya_peralatan:=Gaji_pokok*0.1;
        THR:=Gaji_pokok*2;
        Uang_Tes_kesehatan:=100000;
Pemasukan:=Gaji_pokok+Tunjangan_jabatan+Tunjangan_anak+Uang_Transport+Uang_makan;
Jumlah_Bonus:=Bonus_Target_terpenuhi+Bonus_absen_full+Uang_lembur+Tunjangan_menikah+THR;
Pengeluaran:=Uang_Tes_kesehatan+Potongan_biaya_peralatan+Potongan_liburan+Potongan_pajak+Potongan_jamsostek;
Gaji_bersih:=Pemasukan-pengeluaran+Jumlah_Bonus;

writeln('Gaji Pokok:',Gaji_pokok:30:0);
writeln('Tunjangan Jabatan:',Tunjangan_jabatan:30:0);
writeln('Bonus Target terpenuhi:',Bonus_Target_terpenuhi:30:0);
writeln('Bonus absen full:',Bonus_absen_full:30:0);
writeln('Uang Transport:',Uang_Transport:30:0);
writeln('Uang makan:',Uang_makan:30:0);
writeln('Potongan jamsostek:',Potongan_jamsostek:30:0);
writeln('Potongan pajak:',Potongan_pajak:30:0);
writeln('Uang lembur:',Uang_lembur:30:0);
writeln('Potongan liburan:',Potongan_liburan:30:0);
writeln('Potongan biaya tools:',Potongan_biaya_peralatan:30:0);
writeln('THR:',THR:30:0);
writeln('Uang Tes kesehatan:',Uang_Tes_kesehatan:30:0);
writeln('Gaji bersih:',Gaji_bersih:30:0);
         end;
end;

begin
clrscr;
writeln('==============================================');
writeln;
writeln('            Program Gaji Pegawai Cafe Uninus              ');
writeln;
writeln('==============================================');
writeln;
write  ('NIM:');readln(Nim);
write  ('Nama:');readln(Nama);
write  ('Jabatan  [Dir/Mgr/Spv]:');readln(Jabatan);
write  ('Status Perkawinan [N/B]       :');readln(Status_Menikah);
write  ('Jumlah anak:'); readln(Jumlah_anak);
write  ('Berapa kali naik Transport:'); readln(Berapa_kali_naik_Transport);
write  ('Berapa kali Makan:');readln(Berapa_kali_Makan);
write  ('Berapa Jam Lembur:');readln(Berapa_Jam_Lembur);

if jabatan = 'Dir' then
        dir
     else
if Jabatan = 'Mgr' then
        mgr
     else
if Jabatan = 'Spv' then
        spv
     else
         writeln('Kode yang Anda masukkan salah');

     readkey;
     donewincrt;
end.

    3.   Jalankan aplikasi

Demikian artikel kali ini, semoga membantu dan menambah ilmu kita semua, terimakasih.



Tags:

Share:

0 komentar