program hitung upah karyawan

program hitung_upah_karyawan;
uses crt;
var
 namakar : string;
 jumlahjamkerja, jumlahjamlembur : integer;
 upahtotal : real;
 jawab : char;
const
 jamkerjanormal = 48;
 upahperjam = 2000;
 upahlembur = 3000;


begin
 clrscr;
 writeln('           Program Hitung Upah Karyawan');
 writeln('      -------------------------------------');
 writeln;
 repeat
 write('Nama karyawan    = '); readln(namakar);
 writeln;
 write('Jumlah jam kerja = '); readln(jumlahjamkerja);
 writeln;
 if (jumlahjamkerja) <= jamkerjanormal then
 begin
 upahtotal := jumlahjamkerja * upahperjam;
 end
 else
 begin
 jumlahjamlembur :=  jumlahjamkerja - 48;
 upahtotal := jamkerjanormal * 2000 + jumlahjamlembur * 3000;
 end;
 write('Total upah karyawan adalah = ',upahtotal:0:2);
 writeln;
 writeln;
 write('ulangi untuk karyawan yang lain, tekan [Y]/ keluar [T] = '); readln (jawab);
 writeln;
 until jawab = 't';
end.

Hasil Ouput nya

semoga bermanfaat :)

Liat juga program hitung_upah_karyawan dengan variable Boolean :)