Program Zakat Harta dengan Pascal

Assalamu’alaikum para Blogger..................

Hari ini kita akan belajar yang berhubungan dengan zakat, yaitu Program sederhana tentang zakat harta dengan Pascal. Zakat harta disini maksudnya adalah uang. Jadi berapa jumlah harta/uang kita miliki dan berapa yang harus di zakatkan. Ok! Tanpa basa-basi ini dia source codenya:

“Uses Crt;

var

Hrt,pot: real;

begin

Clrscr;

writeln('              Program Zakat Harta      ');

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

write('Jumlah Harta:Rp. ');

readln(Hrt);

writeln('Diambil: 2,5%');

pot:=0.025 * Hrt;

writeln('Total Zakat:Rp. ',pot:2:0);

readln;

end.”

Dan eksekusinya seperti ini:

 Semoga bermanfaat dan sampai jumpa di postingan selanjutnya......