Contoh Program Pascal If Perhitungan Gaji

Contoh Penghitungan 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.