PROGRAM MENGHITUNG GAJI HARIAN PEGAWAI MENGGUNAKAN IF

PROGRAM MENGHITUNG GAJI HARIAN PEGAWAI MENGGUNAKAN IF


Berikut ini adalah program menhitung 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.Program dalam pascal

3.Hasilnya