Minggu, 15 Mei 2016

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 :



0 komentar :

Posting Komentar

 
Design by Blogger Indonesia | Bloggerized by Jepri Tarigan