Program Pascal Menghitung Gaji Harian Pegawai Menggunakan If serta Pseudo-code

Menghitung Gaji Harian Pegawai Menggunakan If

   Kasus

            Menghitung gaji harian pegawai bila diketahui ketentuan sebagai berikut:

            Gaji perjam = 500

Bila jumlah jam kerja hari itu > 7 jam, maka kelebihannya dihitung lembur yang besarnya 1.5 x gaji perjam.

Input               : Jumlah Jam Kerja

Output             : Gaji Harian Pegawai

Pseudo-code

            Start

            Variabel

                        JJK, GajiHarian, Gaji : real;

            Input

                        Read (Jumlah Jam Kerja)

            Proses

                        Gaji=500

                        If JJK > 7 then

                                    GajiHarian = Gaji x7  (Gaji x 1.5 x (JJK-7))

                        Else

                                    GajiHarian = Gaji x JJK

            Output

                        Write (GajiHarian)

            End.

Program 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

setelah itu tekan Ctrl+F9

Hasil Program