/ / Program Gaji

Program Gaji

- Edit
Hai bloggers, Sahaps mau kasih tau nih !! Buat kalian yang udah jadi pebisnis muda dan mempunyai karyawan atau karyawati di perusahaan, kalian pasti sedikit kesulitan menghitung gajinyakan? Kalian bisa menghitung gaji dengan menggunakan Program Perhitungan Gaji. Sebelumnya kalian harus download Turbo Pascalnya dulu guys bisa klik Di sini . Turbo Pascal itu dugunakan pada komputer yang menggunakan Windows 8 dan 10, tapi kalo kalian menggunakan Windows 7  bisa menggunakan  TPW bisa download Di siniloh guys !! Oh ya, jangan lupa. Variabel,Status, dan Jabatan bisa di sesuaikan dengan ketentuan di perusahaan kalian loh !! Silahkan mencoba .. Good Luck !!
 
Program gaji;
Uses wincrt;
Var
Nama:string;
Nip:string;
Alamat:string;
Tanggal_lahir:string;
Jabatan:string;
Status_menikah:string;
Gaji_pokok:real;
Uang_makan:real;
Berapa_kali_makan          :real;
Transportasi         :real;
Berapa_kali_transportasi:real;
Tunjangan_jabatan :real;
Tunjangan_nikah:real;
Tunjangan_anak:real;
Jumlah_anak:real;
Asuransi_pendidikan:real;
Tunjangan_rumah:real;
Akses_bpjs:real;
Potongan_bolos:real;
Berapa_kali_bolos:real;
Bonus_kantor_bulanan:real;
Uang_lembur:real;
Berapa_kali_lembur:real;
THR:real;
Pajak:real;
Kompensasi:real;
Pemasukan:real;
Pengeluaran:real;
Jumlah_bonus:real;
Gaji_bersih:real;


Procedure dir;
Begin
        if status_menikah='N'then
          Begin
Gaji_pokok:=4300000;
Tunjangan_nikah:=1000000;
Uang_makan:=Berapa_kali_makan*8000;
Transportasi:=berapa_kali_transportasi*3000;
Tunjangan_jabatan:=Gaji_pokok*0.17;
Tunjangan_anak:=jumlah_anak*20000;
Asuransi_pendidikan:=gaji_pokok*0.1;
Tunjangan_rumah:=100000;
Akses_bpjs:=gaji_pokok*0.07;
Potongan_bolos:=Berapa_kali_bolos*25000;
Bonus_kantor_bulanan:=350000;
Uang_lembur:=Berapa_kali_lembur*50000;
THR:=Gaji_pokok*2;
Pajak:= Gaji_pokok*0.05;
Kompensasi:=25000;

Pemasukan:= Gaji_pokok+ Tunjangan_nikah+ Uang_makan+ Transportasi+ Tunjangan_jabatan+ Tunjangan_anak+ Akses_bpjs;
Pengeluaran:=Asuransi_pendidikan+ Tunjangan_rumah+ Potongan_bolos+ Pajak+ Kompensasi;
Jumlah_bonus:= Bonus_kantor_bulanan+Uang_lembur+THR ;
Gaji_bersih:=pemasukan-pengeluaran+jumlah_bonus;
writeln('Gaji Pokok : ',Gaji_pokok:23:0);
writeln('Uang Makan: ',Uang_makan:23:0);
writeln('Transportasi: ',Transportasi:23:0);
writeln('Tunjangan Jabatan: ',Tunjangan_jabatan:23:0);
writeln('Tunjangan Nikah : ',Tunjangan_nikah:23:0);
writeln('Tunjangan Anak: ',Tunjangan_anak:23:0);
writeln('Asuransi Pendidikan: ',Asuransi_pendidikan:23:0);
writeln('Tunjangan Rumah: ',Tunjangan_rumah:23:0);
writeln('Akses Bpjs: ',Akses_bpjs:23:0);
writeln('Potongan Bolos: ',Potongan_bolos:23:0);
writeln('Bonus Kantor Bulanan: ',Bonus_kantor_bulanan:23:0);
writeln('Uang Lembur: ',Uang_lembur:23:0);
writeln('THR: ',THR:23:0);
writeln('Pajak: ',Pajak:23:0);
writeln('Kompensasi: ',Pajak:23:0);
writeln('Gaji Bersih: ',Gaji_bersih:23:0);
end
else
begin
Gaji_pokok:=4300000;
Uang_makan:=Berapa_kali_makan*8000;
Transportasi:=berapa_kali_transportasi*3000;
Tunjangan_jabatan:=Gaji_pokok*0.17;
Tunjangan_rumah:=100000;
Akses_bpjs:=gaji_pokok*0.07;
Potongan_bolos:=Berapa_kali_bolos*25000;
Bonus_kantor_bulanan:=350000;
Uang_lembur:=Berapa_kali_lembur*50000;
THR:=Gaji_pokok*2;
Pajak:= Gaji_pokok*0.05;
Kompensasi:=25000;

Pemasukan:= Gaji_pokok + Uang_makan+ Transportasi+ Tunjangan_jabatan+ Akses_bpjs  + Uang_lembur+ THR;
Pengeluaran:= Tunjangan_rumah+ Potongan_bolos+ Pajak+ Kompensasi;
Jumlah_bonus:= Bonus_kantor_bulanan ;
Gaji_bersih:=pemasukan-pengeluaran+jumlah_bonus;

writeln('Gaji Pokok : ',Gaji_pokok:23:0);
writeln('Uang Makan: ',Uang_makan:23:0);
writeln('Transportasi: ',Transportasi:23:0);
writeln('Tunjangan Jabatan: ',Tunjangan_jabatan:23:0);
writeln('Tunjangan Rumah: ',Tunjangan_rumah:23:0);
writeln('Akses Bpjs: ',Akses_bpjs:23:0);
writeln('Potongan Bolos: ',Potongan_bolos:23:0);
writeln('Bonus Kantor Bulanan: ',Bonus_kantor_bulanan:23:0);
writeln('Uang Lembur: ',Uang_lembur:23:0);
writeln('THR: ',THR:23:0);
writeln('Pajak: ',Pajak:23:0);
writeln('Kompensasi: ',Pajak:23:0);
writeln('Gaji Bersih: ',Gaji_bersih:23:0);

end;
          end;

Procedure mgr;
Begin
          If status_menikah='N'then
          Begin
Gaji_pokok:=3300000;
Tunjangan_nikah:=1000000;
Uang_makan:=Berapa_kali_makan*8000;
Transportasi:=berapa_kali_transportasi*3000;
Tunjangan_jabatan:=Gaji_pokok*0.17;
Tunjangan_anak:=jumlah_anak*20000;
Asuransi_pendidikan:=gaji_pokok*0.1;
Tunjangan_rumah:=100000;
Akses_bpjs:=gaji_pokok*0.07;
Potongan_bolos:=Berapa_kali_bolos*25000;
Bonus_kantor_bulanan:=350000;
Uang_lembur:=Berapa_kali_lembur*50000;
THR:=Gaji_pokok*2;
Pajak:= Gaji_pokok*0.05;
Kompensasi:=25000;
Pemasukan:= Gaji_pokok+ Tunjangan_nikah+ Uang_makan+ Transportasi+ Tunjangan_jabatan+ Tunjangan_anak+ Akses_bpjs;
Pengeluaran:=Asuransi_pendidikan+ Tunjangan_rumah+ Potongan_bolos+ Pajak+ Kompensasi;
Jumlah_bonus:= Bonus_kantor_bulanan+ Uang_lembur ;
Gaji_bersih:=pemasukan-pengeluaran+jumlah_bonus;
          writeln('Gaji Pokok : ',Gaji_pokok:23:0);
        writeln('Uang Makan         : ',Uang_makan:23:0);
        writeln('Transportasi: ',Transportasi:23:0);
        writeln('Tunjangan Jabatan: ',Tunjangan_jabatan:23:0);
        writeln('Tunjangan Nikah: ',Tunjangan_nikah:23:0);
        writeln('Tunjangan Anak: ',Tunjangan_anak:23:0);
        writeln('Asuransi Pendidikan: ',Asuransi_pendidikan:23:0);
        writeln('Tunjangan Rumah: ',Tunjangan_rumah:23:0);
        writeln('Akses Bpjs: ',Akses_bpjs:23:0);
        writeln('Potongan Bolos: ',Potongan_bolos:23:0);
        writeln('Bonus Kantor Bulanan: ',Bonus_kantor_bulanan:23:0);
        writeln('Uang Lembur: ',Uang_lembur:23:0);
        writeln('THR : ',THR:23:0);
        writeln('Pajak          : ',Pajak:23:0);
        writeln('Kompensasi: ',Pajak:23:0);
        writeln('Gaji Bersih: ',Gaji_bersih:23:0);

end
else
begin
Gaji_pokok:=3500000;
Uang_makan:=Berapa_kali_makan*8000;
Transportasi:=berapa_kali_transportasi*3000;
Tunjangan_jabatan:=Gaji_pokok*0.17;
Tunjangan_rumah:=100000;
Akses_bpjs:=gaji_pokok*0.07;
Potongan_bolos:=Berapa_kali_bolos*25000;
Bonus_kantor_bulanan:=350000;
Uang_lembur:=Berapa_kali_lembur*50000;
THR:=Gaji_pokok*2;
Pajak:= Gaji_pokok*0.05;
Kompensasi:=25000;

Pemasukan:= Gaji_pokok + Uang_makan+ Transportasi+ Tunjangan_jabatan+ Akses_bpjs  + Uang_lembur+ THR;
Pengeluaran:= Tunjangan_rumah+ Potongan_bolos+ Pajak+ Kompensasi;
Jumlah_bonus:= Bonus_kantor_bulanan ;
Gaji_bersih:=pemasukan-pengeluaran+jumlah_bonus;

writeln('Gaji Pokok : ',Gaji_pokok:23:0);
writeln('Uang Makan: ',Uang_makan:23:0);
writeln('Transportasi: ',Transportasi:23:0);
writeln('Tunjangan Jabatan: ',Tunjangan_jabatan:23:0);
writeln('Tunjangan Rumah: ',Tunjangan_rumah:23:0);
writeln('Akses Bpjs: ',Akses_bpjs:23:0);
writeln('Potongan Bolos: ',Potongan_bolos:23:0);
writeln('Bonus Kantor Bulanan: ',Bonus_kantor_bulanan:23:0);
writeln('Uang Lembur: ',Uang_lembur:23:0);
writeln('THR: ',THR:23:0);
writeln('Pajak: ',Pajak:23:0);
writeln('Kompensasi: ',Pajak:23:0);
writeln('Gaji Bersih: ',Gaji_bersih:23:0);

end;
          end;

Procedure kryw;
Begin
          If status_menikah='N'then
          Begin
Gaji_pokok:=2500000;
Tunjangan_nikah:=1000000;
Uang_makan:=Berapa_kali_makan*8000;
Transportasi:=berapa_kali_transportasi*3000;
Tunjangan_jabatan:=Gaji_pokok*0.17;
Tunjangan_anak:=jumlah_anak*20000;
Asuransi_pendidikan:=gaji_pokok*0.1;
Tunjangan_rumah:=100000;
Akses_bpjs:=gaji_pokok*0.07;
Potongan_bolos:=Berapa_kali_bolos*25000;
Bonus_kantor_bulanan:=350000;
Uang_lembur:=Berapa_kali_lembur*50000;
THR:=Gaji_pokok*2;
Pajak:= Gaji_pokok*0.05;
Kompensasi:=25000;

Pemasukan:= Gaji_pokok+ Tunjangan_nikah+ Uang_makan+ Transportasi+ Tunjangan_jabatan+ Tunjangan_anak+ Akses_bpjs;
Pengeluaran:=Asuransi_pendidikan+ Tunjangan_rumah+ Potongan_bolos+ Pajak+ Kompensasi;
Jumlah_bonus:= Bonus_kantor_bulanan+ Uang_lembur ;
Gaji_bersih:=pemasukan-pengeluaran+jumlah_bonus;
writeln('Gaji Pokok : ',Gaji_pokok:23:0);
writeln('Uang Makan: ',Uang_makan:23:0);
writeln('Transportasi: ',Transportasi:23:0);
writeln('Tunjangan Jabatan: ',Tunjangan_jabatan:23:0);
writeln('Tunjangan Nikah : ',Tunjangan_nikah:23:0);
writeln('Tunjangan Anak: ',Tunjangan_anak:23:0);
writeln('Asuransi Pendidikan: ',Asuransi_pendidikan:23:0);
writeln('Tunjangan Rumah: ',Tunjangan_rumah:23:0);
writeln('Akses Bpjs: ',Akses_bpjs:23:0);
writeln('Potongan Bolos: ',Potongan_bolos:23:0);
writeln('Bonus Kantor Bulanan: ',Bonus_kantor_bulanan:23:0);
writeln('Uang Lembur: ',Uang_lembur:23:0);
writeln('THR: ',THR:23:0);
writeln('Pajak: ',Pajak:23:0);
writeln('Kompensasi: ',Pajak:23:0);
writeln('Gaji Bersih: ',Gaji_bersih:23:0);

end
else
begin
Gaji_pokok:=2500000;
Uang_makan:=Berapa_kali_makan*8000;
Transportasi:=berapa_kali_transportasi*3000;
Tunjangan_jabatan:=Gaji_pokok*0.17;
Tunjangan_rumah:=100000;
Akses_bpjs:=gaji_pokok*0.07;
Potongan_bolos:=Berapa_kali_bolos*25000;
Bonus_kantor_bulanan:=350000;
Uang_lembur:=Berapa_kali_lembur*50000;
THR:=Gaji_pokok*2;
Pajak:= Gaji_pokok*0.05;
Kompensasi:=25000;

Pemasukan:= Gaji_pokok + Uang_makan+ Transportasi+ Tunjangan_jabatan+ Akses_bpjs  + Uang_lembur+ THR;
Pengeluaran:= Tunjangan_rumah+ Potongan_bolos+ Pajak+ Kompensasi;
Jumlah_bonus:= Bonus_kantor_bulanan ;
Gaji_bersih:=pemasukan-pengeluaran+jumlah_bonus;

writeln('Gaji Pokok : ',Gaji_pokok:23:0);
writeln('Uang Makan: ',Uang_makan:23:0);
writeln('Transportasi: ',Transportasi:23:0);
writeln('Tunjangan Jabatan: ',Tunjangan_jabatan:23:0);
writeln('Tunjangan Rumah: ',Tunjangan_rumah:23:0);
writeln('Akses Bpjs: ',Akses_bpjs:23:0);
writeln('Potongan Bolos: ',Potongan_bolos:23:0);
writeln('Bonus Kantor Bulanan: ',Bonus_kantor_bulanan:23:0);
writeln('Uang Lembur: ',Uang_lembur:23:0);
writeln('THR: ',THR:23:0);
writeln('Pajak: ',Pajak:23:0);
writeln('Kompensasi: ',Pajak:23:0);
writeln('Gaji Bersih: ',Gaji_bersih:23:0);

end;
          end;
Begin
Clrscr;
writeln('====================================================');
writeln;
writeln('      Program Gaji Pegawai Garmen Nusantara                ');
writeln;
writeln('===================================================');
writeln;
        write ('NIM                                         : '); readln(Nip);
          write ('Nama                                      : '); readln(Nama);
          write ('Jabatan [Dir/Mgr/Kryw]         : '); readln(Jabatan);
          write ('Status Perkawinan [N/B]: '); readln(Status_Menikah);
          write ('Jumlah Anak: ');readln(Jumlah_Anak);
          write ('Berapa Kali Naik Transportasi          :');readln(Berapa_kali_transportasi);
          write ('Berapa Kali Makan: ');readln(Berapa_kali_makan);
          write ('Berapa Kali Lembur: ');readln(Berapa_kali_lembur);
          write ('Berapa Kali Bolos: ');readln(Berapa_kali_bolos);

if jabatan = 'Dir'then
          dir
        else
if Jabatan = 'Mgr'then
          mgr
          else
if jabatan = 'Kryw'then
          kryw
          else
Writeln('Kode yang Anda masukkan salah');

readkey;
donewincrt;
end.

Share on Google Plus

About reza muhammad rezky

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.
    Blogger Comment

0 komentar:

Posting Komentar

Langganan: Posting Komentar ( Atom )

Tentang Saya

halo , perkenalkan nama saya reza muhammad rezky biasa di panggil reza , silakan di buka dan di baca ya kutipan kutipanya

Popular Posts

  • Mars Uninus
    Mars UNINUS Cipt. H. Farouq Ghoer Syair : Kusman Kusumanegara Universitas Islam Nusantara Menggali Membina Nilai Berguna Mengemban Am...
  • Hymne UNINUS
    Hymne UNINUS Cipt. Atep Adiyabrata Di dalam hati berkobar cita-cita Cita mulia tertanam dalam jiwa Tulus dan suci harapan ini kubawa Menunt...
  • Contact Us
    foxyform
  • Visi, Misi, dan Tujuan UNINUS
        Visi, Misi dan Tujuan  UNIVERSITAS ISLAM NUSANTARA Menjadi perguruan tinggi yang memiliki komitmen yang tinggi pada nilai-nilai ke-Isla...
  • Masuk Teknik Informatika
    Kamu Cocok Masuk Teknik Informatika Jika… “ Kalau saya tidak jago matematika, saya cocok gak masuk teknik informatika? ” atau kalau nggak ...
  • Teknik Informatika VS Sistem Informasi
    � Sebenarnya lebih bagus mana sih, Teknik Informatika atau Sistem Informasi? � Kalau pertanyaan ini Anda ajukan kepada dukun dan ahli nu...
  • PERANGKAT KERAS KOMPUTER
    Teknologi Perangkat Keras Komputer 4.1 Pendahuluan Komputer adalah peralatan elektronik yang terdiri dari perangkat keras...
  • Alasan Tombol Huruf F dan J Mempunyai Tonjolan
    Ini Alasan Kenapa Huruf 'F' dan 'J' Pada Keyboard Ada Tonjolannya Sebenarnya kamu sadar nggak kalau selama ini di keyboardmu...
  • Relasi Urutan
    1.1.2. Relasi Urutan •          Himpunan semua bilangan real R meliputi : (i). Himpunan semua bilangan real positif (R + );     (ii). Himp...
  • Mitos Seputar Teknik Informatika
    1. Lulusan Teknik Informatika itu Gajinya Tinggi Sudah bukan rahasia lagi, kalau beberapa orang tua menginginkan anaknya agar masuk jurusan...