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 sini
loh 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.
0 komentar:
Posting Komentar