PROGRAM PASCAL UNTUK MENGHITUNG PEMBAYARAN ZAKAT

Zakat hanya dikenakan kepada orang yang mampu. Misalnya, untuk saat ini, batas minimal (nishab) harta yang terkena zakat adalah Rp 2.500.000,-. Artinya seseorang yang hartanya kurang dari nilai tersebut tidak dikenai/diwajibkan zakat.

     Besar zakat yang dibayarkan  adalah 2,5% dari harta yang dimiliki.

     Buatlah program yang membaca banyak harta yang dimiliki

     seseorang dan menghitung zakat yang harus dikeluarkan dan

     menampilkannya di layar, dan jika orang tersebut tidak wajib zakat,

     tuliskan pesan ”Harta Anda belum mencapai batas minimal

     (nishab)” di layar! 

JAWAB:

program PembayaranZakat;

uses crt;

var

 harta:real;

 zakat:real;

begin clrscr;

writeln('SELAMAT DATANG DI PROGRAM PEMBAYARAN ZAKAT');

write('masukkan banyaknya harta anda: ');

readln(harta);

zakat:=(0.025*harta);

if (harta>=2500000)then

 write ('jumlah zakat yang harus dibayarkan: ',zakat:0:0,'rp')

else

  write('harta anda belum mencapai batas minimal');

  readln;

end.