Baik sekarang kita akan membuat sebuah program yaitu membuat program menghitung gaji pegawai perusahaan lengkap dengan programnya.
program GAJI;
uses crt;
var
nama:char;
golongan,jamker,upah:Integer;
gaji,pajak,cuti,bonus:Real;
begin
clrscr;
Write('Nama Pegawai :');ReadLn(nama);
Write('Gologan :');ReadLn(golongan);
Write('Jam Kerja :');ReadLn(jamker);
Write('Upah perjam :');ReadLn(upah);
if(golongan=1)
then
gaji:=(golongan*jamker*upah);
pajak:=(2.5/100*gaji);
cuti:=(21/golongan);
bonus:=(golongan*25000);
if(golongan=2)
then
gaji:=(golongan*jamker*upah);
pajak:=(2.5/100*gaji);
cuti:=(21/golongan);
bonus:=(golongan*25000);
if(golongan=3)
then
gaji:=(golongan*jamker*upah);
pajak:=(2.5/100*gaji);
cuti:=(21/golongan);
bonus:=(golongan*25000);
if(golongan=4)
then
gaji:=(golongan*jamker*upah);
pajak:=(6.5/100*gaji);
cuti:=(7/golongan);
bonus:=(golongan*50000);
if(golongan=6)
then
gaji:=(golongan*jamker*upah);
pajak:=(6.5/100*gaji);
cuti:=(7/golongan);
bonus:=(golongan*50000);
if(golongan=5)
then
gaji:=(golongan*jamker*upah);
pajak:=(3.5/100*gaji);
cuti:=(7/golongan);
bonus:=(golongan*45000);
WriteLn ('==========================================');
WriteLn ('Gaji Anda = Rp.' ,gaji);
WriteLn ('Kena Pajak = Rp.' ,pajak);
WriteLn ('Dapat Bonus = Rp.' ,bonus);
WriteLn ('Boleh Cuti =' ,cuti, 'hari');
readln;
end.
