rogram Pascal Untuk Menghitung Pajak Penghasilan

October 21, 2014

PROGRAM PAJAK;
USES WINCRT;

VAR
NAMA,NPWP:STRING;
TANYA,KAWIN,ISTRI:CHAR;
PENGHASILAN,PKP,PPH,ANAK,WP,PTKPKWN,PTKPISTRI,PTKPANAK,PTKP:real;
T1,T2,T3,T4,T5:REAL;

BEGIN
WRITELN(‘PROGRAM UNTUK MENGHITUNG PAJAK PENGHASILAN’);
WRITELN;
WRITELN;
WRITE(‘Nama Wajib Pajak                                : ‘);readln(nama);
write(‘Nomor Pokok Wajib Pajak (NPWP)   : ‘);readln(npwp);
write(‘Status [K]awin/[T]idak kawin             : ‘);readln(kawin);
write(‘Istri [B]ekerja/[T]idak Bekerja           : ‘);readln(istri);
write(‘Jumlah Anak                                              : ‘);readln(anak);
WRITE(‘Jumlah Penghasilan                             : ‘);readln(penghasilan);
writeln;
writeln;

case kawin of
‘K': begin
PTKPKWN:=1440000;
end;
else
begin
PTKPKWN:=0;
end;
end;

case istri of
‘B': BEGIN
PTKPISTRI:=2880000;
END;
else
BEGIN
PTKPISTRI:=0;
END;
end;

IF ANAK>=3 THEN
BEGIN
PTKPANAK:=3*1440000;
END
ELSE
BEGIN
PTKPANAK:=ANAK*1440000;
END;

WP:=2880000;
PTKP:=WP+PTKPKWN+PTKPISTRI+PTKPANAK;
PKP:=PENGHASILAN-WP-PTKPKWN-PTKPISTRI-PTKPANAK;

if (pkp>=1) and (pkp<=25000000) then
begin
t1:=pkp*0.05;
pph:=t1;
end ELSE
if (pkp>25000000) and (pkp<=50000000) then
begin
t1:=25000000*0.05;
t2:=(pkp-25000000)*0.1;
pph:=t1+t2;
end ELSE
if (pkp>50000000) and (pkp<=100000000)then
begin
t1:=25000000*0.05;
t2:=25000000*0.1;
t3:=(pkp-50000000)*0.15;
pph:=t1+t2+t3;
end ELSE
if (pkp>=100000000) and (pkp>=200000000) then
begin
t1:=25000000*0.05;
t2:=25000000*0.1;
t3:=50000000*0.15;
t4:=(pkp-50000000)*0.25;
pph:=t1+t2+t3+t4;
end ELSE
if (pkp>200000000) then
begin
t1:=25000000*0.05;
t2:=25000000*0.1;
t3:=50000000*0.15;
t4:=100000000*0.25;
t5:=(pkp-200000000)*0.35;
pph:=t1+t2+t3+t4+t5;
end
else
begin
pph:=0;
end;

CLRSCR;
writeln;
writeln(‘__________________________________________________________________________’);
writeln;
writeln(‘Nama Wajib Pajak       : ‘,nama,’           NPWP : ‘,npwp);
writeln(‘__________________________________________________________________________’);
writeln;
writeln(‘                           PERHITUNGAN PAJAK PENGHASILAN                  ‘);
writeln;
WRITELN(‘Penghasilan                                                                             : Rp. ‘,penghasilan:4:1);
WRITELN;
WRITELN;
writeln(‘Dikurang:’);
writeln(‘————‘);
writeln(‘- Wajib Pajak                                         : Rp. ‘,WP:4:1);
writeln(‘- Status Kawin                                       : Rp. ‘,PTKPKWN:4:1);
writeln(‘- Istri Bekerja                                        : Rp. ‘,PTKPISTRI:4:1);
writeln(‘- Anak Maks 3 @ Rp. 1440000      : Rp. ‘,PTKPANAK:4:1);
writeln(‘                                  —————– + ‘);
writeln(‘Jumlah Penghasilan Tidak Kenak Pajak                           : Rp. ‘,PTKP:4:1);
writeln(‘                                                                                                          ———————————-‘);
writeln(‘PENGHASILAN KENA PAJAK                                             : Rp. ‘,pkp:4:1);
writeln(‘                                                                                                          ===================’);
writeln(‘__________________________________________________________________________’);
writeln;
writeln(‘Jumlah Pajak Penghasilan yang harus dibayar sebesar Rp. ‘,pph:4:1);
end.