Contoh Program Pascal "Menghitung Gaji Harian Pegawai" Menggunakan Perulangan While

Contoh Program Pascal "Menghitung Gaji Harian Pegawai" Menggunakan Perulangan While

Assalamualaikum wr.wb

selamat pagi,siang,sore,malam semuanya :D Kali ini saya akan memberikan contoh program "menghitung gaji harian pegawai" yang mungkin bisa menambah pengetahuan teman" sekalian. Berikut adalah bentuk 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.

Berikut gambar pada aplikasi turbo pascal :

Dan ketika Program dijalankan maka akan tampil seperti berikut :

Demikianlah yang dapat saya sampaikan, untuk melihat lebih banyak lagi temtang pemrograman silahkan kunjungi artikel saya yang lainnya  terimakasih :))