Program Pascal Membuat Laporan Gaji Karyawan Menggunakan Perulangan While end While

Berikut adalah salah satu program pascal untuk Membuat Laporan Gaji Karyawan Menggunakan Perulangan While end While

1. Programnya

program LaporanGajiKaryawan ;
uses crt;
var
nk,kb,pt,jb : String;
tj,gp,tf : Longint;
bn,ta,tg : real;
ja,lk : byte;
tanya : char;
begin
tanya:='y';
while upcase(tanya)='Y' do
begin
clrscr;
writeln('Program Laporan Gaji Karyawan');
write('Input Nama :');readln(nk);
write('input jabatan :');readln(jb);
write('Input pendidikan :');readln(pt);
write('input kode bonus :');readln(kb);
write('input lama kerja :');readln(lk);
write('input jumlah anak :');readln(ja);

if jb='nanj' then
begin
gp:=7500000;
tj:=5000000;
end
else if jb='wamaj' then
begin
gp:=5000000;
tj:=3000000;
end
else if jb='kabag' then
begin
gp:=3000000;
tj:=2000000;
end
else if jb='kady' then
begin
gp:=2000000;
tj:=1000000;
end;

if pt='sma' then
tf:=750000
else if pt='diploma' then
tf:=1000000
else if pt='s1' then
tf :=3000000
else if pt='s2' then
tf :=5000000;

if kb='kev' then
bn :=0.2 * gp
else if kb='mar' then
bn:=0.1 *gp
else if kb='pab' then
bn:=0.05 * gp
else if kb='sdm' then
bn:=0.03 * gp;

ta:=ja*0.2*gp;

tg:= gp+ tj+tf+ta+bn;

writeln('gaji pokok :',gp);
writeln('tunjangan :',tj);
writeln('tarif :',tf);
writeln('bonus :',bn:0:0);
writeln('tunjangan anak :',ta:0:0);
writeln('total gaji :',tg:0:0);
writeln('-------------------------------------');
write('Masih ingin menghitung [Y/T]:');readln(tanya);
end;
readln;
end.

2. Tampilan Program dalam Pascal