Program Pascal Menghitung Gaji Harian Pegawai Menggunakan Perulangan While end While

Nahhh ini adalah salah satu program pascal untuk Menghitung Gaji Harian Pegawai 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