-=-Contoh Program Pascal-=-

Contoh program dalam pascal, Menampilkan upah karyawan per hari berdasarkan golongan masing-masing dan mendapatkan upah lembur jika jam kerja diatas dari 8 jam.

Program Upah_Karyawan;
uses crt;
var
NPegawai: string;
UP_Harian, UP_Lembur: longint;
JKerja, G_Hari: longint;
Golongan: char;

Begin
clrscr;
write ('Masukkan nama pegawai = ');
readln (NPegawai);
write ('Masukkan golongan pegawai = ');
readln (Golongan);
write ('Masukkan jam kerja pegawai = ');
readln (JKerja);

case Golongan of
'1': begin
UP_Harian := 30000;
UP_Lembur := 3000;
end;

'2': begin
UP_Harian := 40000;
UP_Lembur := 4000;
end;
end;

if JKerja > 8 then
G_Hari := UP_Harian + (JKerja - 8) * UP_Lembur;
writeln ('Upah harian yang diterima ',G_Hari);
readkey;
End.