Haii sahabat..bingung dengan tugas algoritma tentang pemograman??disini saya
akan membahas tentang cara membuat program sederhana menghitung gaji.
Langsung saja saya akan
menjelaskannya…. Ikutin yahh…
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
Semoga bermanfaat sahabat…….. terus semangatt yaah!!!!
Komentar
Posting Komentar