Program menghitung pajak beserta denda dengan turbo pascal

Salam sobat blogger, Hari ini 100persenworking akan membagi ilmu tentang pemrograman pascal. Kita akan membuat Program Menghitung Pajak beserta denda dengan turbo pascal.

Pada postingan sebelumnya 100persenworking sudah membagi info tentang cara membuat Program Record / Perulangan Data KTP, Program Record Data Mahasiswa Menggunakan Pascal dan Program Toko Menghitung Diskon dengan metode Perulangan Repeat Until dalam turbo pascal. kemudian kali ini kita membuatProgram Menghitung Pajak beserta denda dengan turbo pascal. Fitur-fitur dalam pemrograman kali ini adalah:

• pilihan jenis pajak
• Menghitung denda pajak yang otomatis menyesuaikan jumlah pajak
• perhitungan presentase jumlah denda pajak 

buka program pascal anda kemudian buka file new kemudian tuliskan source code berikut ini yang berwarna biru dan yang saya beritanda { } adalah keterangan coding anda boleh tidak menulisnya.

program Menghitung_DATA_PAJAK;

uses crt;

var {variabel untuk menentukan type data yang diinput}

gapok, tanak , gatot: real;

 n, golongan, status: integer;

id, nama, gol : string;

begin

clrscr; {membersihkan layar}

textcolor(yellow);

gotoxy(1,1);writeln ('ENTRY DATA PEMBAYARAN PAJAK');

writeln ('DINAS PERPAJAKAN KOTA SOLO');

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

writeln ('Jenis Pajak : 1. PBB 2. PAM 3. LISTRIK ');

writeln ('Jumlah : 1-5 ');

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

write   ('ID PAJAK    : '); readln(id);

write   ('NAMA        : '); readln(nama);

write   ('JENIS PAJAK : '); readln(golongan);

if (golongan = 1) then { rumus perumpamaan if }

begin gapok := 45000;

gol := 'PBB';

end

else

if (golongan = 2) then

begin

gapok := 65000;

gol := 'PAM';

end

else

if (golongan = 3) then

begin

gapok := 95000;

gol := 'LISTRIK ';

end

else

writeln('Nomor Golongan Salah');

begin

write ('JUMLAH      : '); read(n); { rumus perhitungan denda}

 if( n = 5)  then tanak := 0.5 * gapok else

 if( n = 4) then tanak := 0.25 * gapok else

 if( n = 3) then tanak := 0.25 * gapok else

 if( n = 2) then tanak := 0.1 * gapok

 else

 tanak := n *(10/100*gapok);

end;

clrscr;

textcolor(green);

gotoxy(1,1);writeln ('ENTRY DATA PEMBAYARAN PAJAK');

writeln ('DINAS PERPAJAKAN KOTA SOLO');

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

writeln ('ID PAJAK      : ', id);

writeln ('NAMA          : ', nama);

writeln ('JENIS PAJAK   : ', gol);

writeln ('BIAYA PAJAK   : ', gapok:0:2);

writeln ('JUMLAH        : ', n);

writeln ('DENDA         : ', tanak:0:2);

gatot := gapok + tanak;

writeln ('TOTAL BAYAR   : ', gatot:0:2);

 readln;

readln;

end.

screenshoot program

Mudah bukan, selama kita mau berusaha hasil akan sesuai dengan proses yang kita lalui.

bila anda bingung dengan langkah diatas silahkan comment di bawah

Sekian dari 100 persen working

dijamin 100persenworking

karena 100persenworking sudah benar2 teruji

semoga informasi dari 100persenworking bermanfaat barokah