STRUKTUR DATA - CONTOH MENGHITUNG PAJAK PPH 21

nama, jabatan : array [1..10] of string;

status : array [1..10] of char ;

x: byte;

gj : longint;

pkj, pk, gk,bj : real;

ip, ijht, gbb, gbst, ptkp, pkp, pphs, pphb, totpphb  : real;

begin

nama [1] := 'Siska'; jabatan [1] := 'Manager'; status[1] := 'S';

nama [2] := 'Sari';  jabatan [2] := 'Supervisor'; status[2] := 'B';

nama [3] := 'James'; jabatan [3] := 'Leader'; status[3] := 'S';

nama [4] := 'Kikan'; jabatan [4] := 'Leader'; status[4] := 'B';

nama [5] := 'Mari';  jabatan [5] := 'Manager'; status[5] := 'B';

nama [6] := 'Eri';   jabatan [6] := 'Manager'; status[6] := 'B';

nama [7] := 'Ari';   jabatan [7] := 'Leader'; status[7] := 'B';

nama [8] := 'Lira';  jabatan [8] := 'Manager'; status[8] := 'B';

nama [9] := 'Koko';  jabatan [9] := 'Sepervisorr'; status[9] := 'B';

nama [10] := 'Sasa'; jabatan [10] := 'Leader'; status[10] := 'B';

         begin

writeln ('                  LAPORAN PAJAK PENGHASILAN PEGAWAI PT. SELALU MAKMUR           ');

writeln ('================================================================================');

writeln ('NO  NAMA  STTS  JABATAN   GAJI    GB/THN       PTKP          PKP         PPh/BLN');

writeln ('================================================================================');

x:=10;

for x:=1 to x do

begin

if jabatan[x]='Manager' then gj:= 5000000;

   if jabatan[x]='Supervisor'then gj:= 3000000;

      if jabatan[x]='Leader' then   gj:=1750000;

         pkj:= gj * 5/100;

         pk:= gj * 3/1000;

         gk:= gj + pkj + pk;

         bj:= 5/100 * gk;

              if bj >= 108000 then

              bj:= 108000

              else

              bj:=bj;

                     ip:= 3/100 * gj;

                     ijht:=2/100 * gj;

                     gbb:= gj - bj - ip -ijht;

                     gbst:= gbb*12;

                     if status[x]='S' then ptkp:= 13200000 + 1200000;

                     if status[x]='B' then ptkp:= 13200000;

                             pkp:= gbst - ptkp;

                             if pkp<= 25000000 then pphs:= 5/100 * pkp;

                             if pkp<= 50000000 then pphs:= 10/100* pkp

                             else

                                 pphs:= 15/100 * pkp;

                                 pphb:= pphs/12;

                                 totpphb:= totpphb + pphb;

writeln (X:1, nama[x]: 6,  status[x]:3,jabatan[x]:11, gj:8, gbst:13:2, ptkp:13:2, pkp:13:2, pphb:11:2);

        end;

            end;

writeln ('================================================================================');

writeln ('Total PPH yang dikeluarkan oleh PT/Bulan:' , totpphb:38:2);

writeln ('================================================================================');

end.