Program Pascal Menghitung Gaji Harian Pegawai Menggunakan Perulangan While end While

Berikut adalah salah satu program pascal untuk Menghitung Total Nilai Akhir Mahasiswa menggunakan Perulangan While end While:

1. Programnya

program gajikaryawan ;
uses crt;
var
nama,golongan : String;
gaji,uanglembur : Longint;
upahlembur, totalgaji : Longint;
jam : Integer;
lagi : char;
begin
lagi:='y';
while Upcase(lagi)='Y' do
begin
clrscr;
writeln('Program Gaji Karyawan');
write('Input Nama :');readln(nama);
write('Input Golongan :');readln(golongan);
write('Input Jam Lembur :');readln(jam);

if golongan ='IA' then
begin
gaji:=500000;
uanglembur:=2500;
end
else if golongan ='IB' then
begin
gaji:=750000;
uanglembur:=3500;
end
else
begin
gaji:=850000;
uanglembur:=5000;
end;

upahlembur :=jam * uanglembur;

totalgaji := gaji+upahlembur;

writeln('Gaji Pokok :',gaji);
writeln('Uang Lembur :',uanglembur);
writeln('Upah Lembur :',upahlembur);
writeln('Total Gaji :',totalgaji);
writeln('-------------------------------------');
write('Masih ingin menghitung [Y/T]:');readln(lagi);
end;
readln;
end.

2. Tampilan Program dalam Pascal