Program Menghitung Gaji karyawan

Program ini adalah program untuk menghitung gaji/upah karywan berdasarkan golongan, dan pada program tersebut terdapat 2 golongan. kemudian akan dihitung total upah harian setiap karyawan, dimana total upah harian adalah upah harian ditambah dengan upah lembur, upah lembur akan diberikan ketika jam kerja karyawan lebih dari 8 jam. kemudian di akhir juga akan dihitung jumlah karyawan, jumlah karyawan setiap golongan, jumlah karyawan yang lembur, tottal upah lembur dan total upah harian yang harus dibayarkan oleh perusahaan.....
nah langsung saja di copy listing programnya dan run di pascal..





LISTING PROGRAM 

program hitung_upah;
uses crt;
var nama : string[30];
    gol, ulang : char;
    jamkerja, kar1, kar2, kart, karl : integer;
    upahh, upahl, upaht, totalupah, totall, totalh : longint;
begin
kar1:=0; kar2:=0; karl:=0;
repeat
 clrscr;
 write('Masukkan Nama karyawan : ');
 readln(nama);
 write('Masukkan golongan : ');
 readln(gol);
 write('Masukkan jumlah jam kerja : ');
 readln(jamkerja);
 case gol of
 '1' : begin
       upahh := 50000;
       upahl := 10000;
       inc(kar1);
       end;
 else  upahh := 80000;
       upahl := 20000;
       inc(kar2)
       end;

 case jamkerja of
 1,2,3,4,5,6,7,8 : upaht := 0;
 else   upaht := (jamkerja - 8) * upahl;
       inc(karl);
 end;
 totall := totall + upaht;
 totalupah := upahh + upaht;
 totalh := totalh + totalupah;
 writeln('Upah harian sebesar Rp. ',upahh);
 writeln('Upah lembur sebesar Rp. ',upaht);
 writeln('Total upah harian sebesar Rp. ',totalupah);
 write('Hitung upah berikutnya ? [Y/T] : ');
 readln(ulang);
until ulang = 'T';
kart := kar1+kar2;
writeln('jumlah karyawan            = ',kart);
writeln('jumlah karyawan golongan 1 = ',kar1);
writeln('jumlah karyawan golongan 2 = ',kar2);
writeln('jumlah karyawan lembur     = ',karl);
writeln('Akumulasi Total upah lembur Rp. ',totall);
writeln('Akumulasi total upah harian Rp. ',totalh);
readln;
end.