Contoh Program Pascal If Perhitungan Gaji

Ketentuan Soal :

1. Nama Di input

2. Jabatan di input ,

Jabatan        Gaji             Tunjangan

Direktur       3000000     10 % dari gaji

Manager        2000000    5% dari gaji

Karyawan       1000000    2% dari gaji

OB                 800000        1% dari gaji

3. Dikenakan PPN 10 % dari gaji

4. Gaji Bersih didapat dari : gaji + tunjangan – PPn

 

Jawabannya:

Uses crt;

Var nama:string[20];jabatan:string;

Gaji:longint;

Tunj,ppn,gajibersih:real;

Begin

Clrscr;

Write(‘Nama Karyawan     : ‘); readln(nama);

Write(‘Masukkan Jabatan  : ‘); readln(jabatan);

If  (jabatan=’Direktur’) or (jabatan=’direktur’) then

     Begin

 Gaji:=3000000;

 Tunj:=0.1* gaji;

     End

Else If  (jabatan=’Manager’) or (jabatan=’manager’) then

     Begin

 Gaji:=2000000;

 Tunj:=0.05* gaji;

     End

Else If  (jabatan=’Karyawan’) or (jabatan=’karyawan’) then

     Begin

 Gaji:=1000000;

 Tunj:=0.1* gaji;

     End

Else

     Begin

 Gaji:=800000;

 Tunj:=0.1* gaji;

     End;

Writeln(‘Gaji Bersih      : Rp.‘,gaji);

Writeln(‘Tunjangan Jabatan      : Rp.‘,tunj:9:2);

Ppn:=0.1*gaji;

Writeln(‘PPN 10 %      :  Rp.‘,ppn:9:2);

Total:=(gaji+total)-ppn;

Writeln(‘Total Gaji   :  Rp.‘,total:9:2);

Readln;

End.