Program IF Majemuk

Soal:

Rancangan Masukan:
PT. SMOGAWET
------------------
Nama Pegawai : .......................
Golongan[1/2/3] : .......................
Jumlah jam kerja : .......................

Rancangan Keluaran:
PT. SMOGAWET
------------------
Nama Pegawai : .......................

Golongan : .......................

Jumlah jam kerja : .......................

jam
Jumlah kelebihan jam : .......................

jam
Rincian
Honor harian Rp.

Honor lembur Rp.

-----------------------------------
Total Honor Rp.

Ketentuan Proses:
--------------------------------------------
Golongan Honor Harian Honor per jam
--------------------------------------------
1 60000 7500
2 50000 6000
3 40000 5000
--------------------------------------------
Jumlah jam kerja normal adalah 8 jam. Jika ada kelebihan jam kerja maka dianggap lembur dan honor lembur diperoleh dari kelebihan jam kerja dikali honor per jam.
Total Honor = honor harian + honor lembur

Jawaban:
uses crt;
var nama : string[25];
gol,jk,jl : byte;
hnr,upah,lembur,total : longint;
begin
clrscr;
writeln('PT.SMOGAWET');
writeln('-----------------');
write('Nama Pegawai : '); readln(nama);
write('Golongan [1/2/3] : '); readln(gol);
write('Jumlah jam kerja : '); readln(jk);
if gol=1 then
begin
hnr:=60000;
upah:=7500;
end
else
if gol=2 then
begin
hnr:=50000;
upah:=6000;
end
else
if gol=3 then
begin
hnr:=40000;
upah:=5000;
end;
jl:=jk-8;
lembur:=jl*upah;
total:=hnr+lembur;
clrscr;
writeln('PT. SMOGAWET');
writeln('------------------');
writeln('Nama Pegawai : ',nama);
writeln('Golongan : ',gol);
writeln('Jumlah jam kerja : ',jk,' jam');
writeln('Jumlah kelebihan jan kerja : ',jl, ' jam');
writeln('Rincian');
writeln('Honor Harian Rp.',hnr);
writeln('Honor Lembur Rp.',lembur);
writeln('----------------------------');
writeln('Total Honor Rp.',total);
readln;
end.