PROGRAM MENGHITUNG GAJI PEGAWAI MENGGUNAKAN WHILE END WHILE

PROGRAM MENGHITUNG GAJI PEGAWAI MENGGUNAKAN WHILE END WHILE

Berikut ini menghitung gaji pegawai menggunakan while end while

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.