Pertanyaan 6

Pertanyaan :

Buat Program Dari Kasus Beikut..!

Daftar Gaji Karyawan

PT. Kalijogo

Jl. Anggrek Segar No 45 Malang

No	Nama Karyawan	Golongan	Status	Gaji Pokok	Tunjanga	Pajak	Terima	Bonus
1	Adyzeus	2C	Nikah
2	Dewi S.	2C	Nikah
3	Havid	2A	Belum
4	Novi Y.	2C	Nikah
5	Heldawati	1C	Belum
6	Imron N.	2B	Belum
7	Herlina	2A	Belum

Ketentuan gaji pokok

1. Jika golongan 1A maka gaji pokok 400000

2. Jika golongan 1B maka gaji pokok 450000

3. Jika golongan 1C maka gaji pokok 500000

4. Jika golongan 2A maka gaji pokok 550000

5. Jika golongan 2B maka gaji pokok 600000

6. Jika golongan 2C maka gaji pokok 650000

Ketentuan Tunjangan

1. Jika status Nikah maka mendapat tunjangan 10% dari gaji pokok

2. Jika status Belum maka tidak mendapat tunjangan

Ketentuan pajak

1. Jika gaji pokok >=600000 maka dikenakan pajak sebesar 20000

2. Jika gaji pokok <600000>

Terima

Gaji pokok + Tujangan – Pajak

Bonus

1. Jika status Nikah maka mendapat bonus TV

2. Jika status Belum maka mendapat bonus Radio

Jawaban :

program gaji;

uses crt;

var

nama,golongan,status,bonus:string;

gaji_pokok,tunjangan,pajak,terima:longint;

begin

clrscr;

textcolor(1);

textbackground(15);

writeln('###################################################');

writeln('## PROGRAM GAJI KARYAWAN ##');

writeln('## PT. KALIJOGO TRAVEL ##');

writeln('###################################################');

writeln('');

writeln('Attention : Input Wajib Menggunakan Huruf Besar');

writeln(' : Untuk status Isi Dengan "NIKAH" Atau "BELUM"');

writeln('');

write('Masukan Nama Karyawan = ');readln(nama);

write('Masukan Golongan Karyawan = ');readln(golongan);

write('Masukan Status Karyawan = ');readln(status);

if golongan='1A' then

gaji_pokok:=400000

else if golongan='1B' then

gaji_pokok:=450000

else if golongan='1C' then

gaji_pokok:=500000

else if golongan='2A' then

gaji_pokok:=550000

else if golongan='2B' then

gaji_pokok:=600000

else if golongan='2C' then

gaji_pokok:=650000

else

gaji_pokok:=0;

writeln('Gaji Pokok Karyawan = ',gaji_pokok);

if status='NIKAH' then

tunjangan:=gaji_pokok*10 div 100

else

tunjangan:=0;

writeln('Tunjangan Yang Didapat = ',tunjangan);

if gaji_pokok>=600000 then

pajak:=20000

else

pajak:=0;

writeln('Pajak Yang Harus Dibayar = ',pajak);

terima:=gaji_pokok+tunjangan-pajak;

writeln('Gaji Yang Akan Diterima = ',terima);

if status='NIKAH' then

bonus:='TV'

else

bonus:='RADIO';

writeln('Bonus Yang Didapatkan = ',bonus);

readln;

end.