PASCAL - CONTOH PROGRAM UNTUK MENGHITUNG PAJAK SUATU BARANG

Listing Program :

program HitungPajak;
uses crt;
var kelas : byte;
    nama : string;
    pajak : real;
    harga : longint;
begin
     clrscr;
     writeln('Menghitung pajak barang import');
     writeln('Kelas      Jenis Barang');
     writeln('  1      Makanan');
     writeln('  2      Pakaian');
     writeln('  3      Mesin-Mesin');
     repeat
           write('Input kelas     : ');readln(kelas);
     until kelas in[1..3];
     write('Nama barang     : ');readln(nama);
     write('Harga barang    : Rp. ');readln(harga);
     if kelas = 1 then
        pajak := harga * 0.05
     else if kelas = 2 then
        pajak := harga * 0.1
     else
        pajak := harga * 0.2;
     write('Pajak ',nama,' adalah : Rp. ',pajak:2:2);
     readln;
end.

Jangan lupa tinggalkan pesan berupa saran dan kritik yang bermanfaat untuk blog  ini. Untuk teman-teman yang hendak mencopy artikel ini untuk dipasang pada blog atau web-nya, dengan sangat diharapkan untuk mencantumkan Link keblog ini sebagai sumber artikel sekaligus sebagai backlink untuk blog ini. Terima kasih untuk pengertian dan kerjasamanya, mari berkembang bersama.