Pascal--Menghitung Gaji Dengan Golongan

Dalam tutorial ini.... saya kan mencoba menghitung gaji dengan golongan... tapi masih memakai if..then... setelah ini.. saya akan berikan yang dengan case of...ok..... Dalam pascal ini.. penghitungan gaji lembur, gaji pokok... sangat mudah dipahami... bagi para pemula....coba saja.....ceeiiii

program Hitung_gaji;

uses crt;

var nama : string;
gol : integer;
jam_kerja : integer;
gaji_tetap : real;
gaji_hadir : real;
gaji_lembur : real;
gaji_total : real;
gaji_perjam : real;
finish : char;
begin
repeat
clrscr;

write ('------------Penghitungan Gaji--------------');
writeln;
writeln;
write ('Masukkan Nama Anda :'); readln (nama);
writeln;
write ('Masukkan Golongan 1/2/3/4/5 :'); readln (gol);
writeln;
write ('Masukkan Jumlah Jam kerja :'); readln (jam_kerja);



if gol = 1 then begin
gaji_perjam := 5000 ;
gaji_tetap := 500000;
end;

if gol = 2 then begin
gaji_perjam := 3000;
gaji_tetap := 300000;
end;

if gol = 3 then begin
gaji_perjam := 2000;
gaji_tetap := 250000;
end;

if gol = 4 then begin
gaji_perjam := 1500;
gaji_tetap := 100000;
end;

if gol = 5 then begin
gaji_perjam := 1000;
gaji_tetap := 50000;
end;


gaji_hadir := jam_kerja * gaji_perjam;
gaji_total := gaji_tetap + gaji_hadir + gaji_lembur;

if jam_kerja > 150 then
gaji_lembur := (jam_kerja-150)*1.5*gaji_perjam
else
if jam_kerja <= 150 then gaji_lembur := 0; writeln; writeln ('Gaji Pokok : Rp ',gaji_tetap:0:2); writeln ('Gaji Hadir : Rp ',gaji_hadir:0:2); writeln ('Gaji Lembur : Rp ',gaji_lembur:0:2); writeln ('---------------------------------------------------- '); writeln ('Jumlah Gaji Total Anda : Rp ', gaji_total:0:2); writeln; write ('Ulang Kembali ?? [Y/T] : '); readln (finish); until upcase (finish) <> 'Y' ;

clrscr;
writeln ('------------------------------------------');
writeln ('------------------------------------------');
writeln ('Terima Kasih telah memakai layanan kami');
writeln;
writeln;
writeln (' PT Indonesia');
readln;
end.




Selamat Mencoba yaaaaaa...... Gud Lucckkk...!!!^_^