Program Pascal Menghitung Gaji Harian Pegawai Menggunakan If

Program Pascal Menghitung Gaji Harian Pegawai Menggunakan If

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 MenghitungGajiHarianPegawai;

uses crt;

var

   JJK,Gaji_Harian,Gaji : real;

begin

     clrscr;

     Writeln('Program Menghitung Gaji Harian Pegawai');

     Write('Input Jumlah Jam Kerja  : ');readln(JJK);

     Gaji:=500;

     if JJK >7 then

        Gaji_Harian :=Gaji*7+(Gaji*1.5*(JJK-7))

     else

        Gaji_Harian :=Gaji*JJK;

     Writeln('Gaji Harian          Rp.: ',Gaji_Harian:0:0);

     readln;

end.

Berikut gambar pada aplikasi turbo pascal :

Dan ketika Program dijalankan maka akan tampil seperti berikut :