PROGRAM MEMBUAT LAPORAN GAJI KARYAWAN DENGAN WHILE END WHILE

PROGRAM MEMBUAT LAPORAN GAJI KARYAWAN DENGAN WHILE END WHILE

Berikut ini contoh program membuat laporan gaji karyawan dengan while end while


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.