uses crt;
var
golongan : char;
nik,nm_karyawan,al_karyawan,tunjangan : string;
jker : integer;
uharian,ulembur : real;
begin
clrscr;
writeln('======================================');
writeln(' UPAH KARYAWAN ');
writeln('======================================');
write(' NIK :');readln(nik);
write(' Nama Karyawan :');readln(nm_karyawan);
write(' Alamat Karyawan :');readln(al_karyawan);
write(' Golongan :');readln(golongan);
case golongan of
'1' :uharian := 20000;
'2' :uharian := 15000;
'3' :uharian := 10000;
end;
writeln(' Uang Harian :', uharian :0:0);
write(' Jam Kerja :');readln(jker);
if jker > 8 then
case golongan of
'1' :ulembur := 10000;
'2' :ulembur := 7500;
'3' :ulembur := 5000;
end;
writeln(' Lembur :', ulembur :0:0);
writeln(' Tunjangan Upah Total :', 0.15 * uharian :0:0);
writeln(' =====================================');
writeln('Tekan ==> ENTER <== Untuk EXIT !');
readln;
end.
var
golongan : char;
nik,nm_karyawan,al_karyawan,tunjangan : string;
jker : integer;
uharian,ulembur : real;
begin
clrscr;
writeln('======================================');
writeln(' UPAH KARYAWAN ');
writeln('======================================');
write(' NIK :');readln(nik);
write(' Nama Karyawan :');readln(nm_karyawan);
write(' Alamat Karyawan :');readln(al_karyawan);
write(' Golongan :');readln(golongan);
case golongan of
'1' :uharian := 20000;
'2' :uharian := 15000;
'3' :uharian := 10000;
end;
writeln(' Uang Harian :', uharian :0:0);
write(' Jam Kerja :');readln(jker);
if jker > 8 then
case golongan of
'1' :ulembur := 10000;
'2' :ulembur := 7500;
'3' :ulembur := 5000;
end;
writeln(' Lembur :', ulembur :0:0);
writeln(' Tunjangan Upah Total :', 0.15 * uharian :0:0);
writeln(' =====================================');
writeln('Tekan ==> ENTER <== Untuk EXIT !');
readln;
end.





