QUIS

SOAL QUIS  :

Buatlah output program Menghitung Gaji Pegawai seperti tampilan dibawah ini Menggunakan Bahasa Pascal :

                                     MENGHITUNG GAJI PEGAWAI 

===============================================================

Nik                   :

Nama               :

Golongan         :

Gaji Pokok       :

Pajak                :

Gaji Bersih       :

   Dengan ketentuan proses sebagai berikut :

•  Nik,Golongan input
• Proses Nama Pegawai

          Jika Nik = 1 maka

                 Nama Pegawai = “Hendro”

          Jika Nik = 2 maka

                Nama Pegawai = “Dian”

          Jika Nik = 3 maka

                Nama Pegawai = “Jhoni”

• Proses Gaji Pegawai

           Jika Gol = 1 maka

                Gaji Pokok = 1500000

           Jika Gol = 2 maka

                Gaji Pokok = 2500000

           Jika Gol = 3 maka

                 Gaji Pokok = 3500000

• Pajak = 0.05 * Gaji Pokok
• Gaji Bersih = Gaji Pokok – Pajak

 JAWABAN QUIS  : 

Uses crt ;

Var      gp : longint;

             n : string[25];

            gol,nik : byte;

            p,gb : real;

Begin

     Clrscr;

     Writeln('                             MENGHITUNG GAJI PEGAWAI');

     Writeln('                        +++---------------------------+++');

     Writeln;

     Write('NIK PEGAWAI    : '); Readln(nik);

     begin

     if nik = 1 then n:='Hendro'

     else if nik = 2 then n:='Dian'

     else if nik = 3 then n:='Jhoni'

     end;

     Write('NAMA           : ',n);

     Writeln;

     Write('GOLONGAN       : '); Readln(gol);

     begin

     if gol= 1 then gp := 1500000

     else if gol= 2 then gp := 2500000

     else if gol= 3 then gp := 3500000;

     end;

     Write('GAJI POKOK     : ',gp);

     Writeln;

     p:=(0.05 * gp);

     write('PAJAK          : ',p : 3 : 2);

     gb:= gp - p;

     writeln;

     Write('GAJI BERSIH    : ',gb:3:2);

     readln;

END.

Tampilan Program :