Menghitung PPH dengan Pascal


PTKP:

1. Wajib pajak = 1000

2. Istri = 500

3. Anak = 500 (maksimal 3 anak)

PPH:

1. 0 – 10000 = 10%

2. 10000 – 20000= 15%

3. > 20000 = 20%

OUTPUT:

USES WINCRT;

VAR
NM, ST: STRING;
GJ, JA, WP, ISTRI, ANAK, PTKP:INTEGER;
PKP, PPH:REAL;
BEGIN
WRITELN(‘      PROGRAM PENGHITUNGAN PAJAK     ‘);
WRITELN(‘————————————-‘);
WRITE (‘NAMA                                : ‘ ); READLN(NM);
WRITE (‘GAJI (10rb-30rb)         : ‘ ); READLN(GJ);
WRITE (‘STATUS  (N/T)                : ‘ ); READLN(ST);
WRITE (‘JUMLAH ANAK             : ‘ ); READLN(JA);

WRITELN(”);
WRITELN(‘                             PAJAK PENGHASILAN PEGAWAI  ‘);
WRITELN(‘=================================================================’);
WRITELN(‘NAMA    STATUS  JML              GAJI                PTKP                                     JML            PKP               PPH        ‘);
WRITELN(‘                                    ANAK                           WP      ISTRI       ANAK             PTKP                                                   ‘);
WRITELN(‘=================================================================’);

IF ST=’N’ THEN
BEGIN
ISTRI:=500;
END
ELSE
ISTRI:=0;

IF JA<3 THEN
BEGIN
ANAK:=500*JA
END
ELSE
ANAK:=500*3;

WP:=1000;
PTKP:=WP+ISTRI+ANAK;
PKP:=GJ-PTKP;

IF PKP <=10000 THEN
BEGIN
PPH:=PKP*(0.1);
END
ELSE
IF PKP <=20000 THEN
BEGIN
PPH:=(10000*0.1)+(PKP-10000)*0.15;

END
ELSE
PPH:=(10000*0.1)+(10000*0.15)+(PKP-20000)*0.2;

WRITE (NM:1, ST:5, JA:7, GJ:10, WP:9, ISTRI:7, ANAK:7, PTKP:8, PKP:6, PPH:6);

END.

Pada tampilan Run di atas, pada kolom PKP dan PPH masih tertulis misalnya 1.9E+04. Nah untuk mengubahnya caranya pada WRITE PKP dan PPH harus diatus berapa digit. Misalnya tidak perlu pakai digit, maka ditulis: PKP:6:0, PPH:6:0.  Angka 6 adalah jarak spasi, dan 0 adalah jumlah digit.

WRITE (NM:1, ST:5, JA:7, GJ:10, WP:9, ISTRI:7, ANAK:7, PTKP:8, PKP:6:0, PPH:6:0);

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s