Contoh Coding Program Algoritma Untuk Menghitung Pajak PPH Menggunakan Bahasa Pemrograman Pascal

Oke tanpa basabasi lagi..
kopi hitam dan Softwarenya disiapkan brooo

Image From Hudry's technical basic

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 p="" 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);