Program Pascal Menghitung Gaji Harian Pegawai Menggunakan IF

Berikut adalahProgram Pascal Menghitung Gaji Harian Pegawai Menggunakan IF

1. 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.

2. Tampilan Program dalam Pascal

Hasil Program