syms y t;
jawab='y';
while jawab=='y';
disp('**********************************')
disp(' PROGRAM KALKULATOR
ZAKAT')
disp('**********************************')
disp(' ')
disp('>>>>>>>>>> Pilih zakat
yang ingin Anda Hitung <<<<<<<<<<')
disp(' ')
disp(' 1 = Zakat Penghasilan ')
disp(' 2 = Zakat Mal(Harta Benda)')
disp(' 3 = Zakat Hasil Pertanian/Perkebunan')
disp(' ')
disp(' ')
x=input('Zakat yang saya pilih adalah ');
switch x
case(1)
disp(' ')
disp(' ')
disp('##########################')
disp(' Zakat Penghasilan')
disp('##########################')
disp(' ')
a=input(' # Pendapatan / Gaji per Bulan (setelah dipotong
pajak): Rp ');
b=input(' # Pendapatan lain dalam satu tahun : Rp ');
c=input(' # Harga Beras saat ini (per kg) : Rp ');
d=input(' # Rata-rata pengeluaran rutin per bulan : Rp ');
e=input(' # Pengeluaran lainnya dalam satu tahun : Rp ');
n=(520*c);
penghasilan=(12*a+b-12*d-e);
disp(' ')
disp([' >>>
Penghasilan yang wajib saya zakati : Rp ',num2str(penghasilan)])
if penghasilan>n
zakat=(2.5*penghasilan/100);
disp(' ')
disp([' >>>
Besarnya zakat penghasilan yang harus saya keluarkan per tahun adalah Rp ',num2str(zakat)])
else
didp(' ')
disp('<<<<< Nishab belum memenuhi untuk
zakat >>>>>')
end
case(2)
disp(' ')
disp(' ')
disp('##############################')
disp(' Zakat Mal(Harta Benda)')
disp('##############################')
disp(' ')
disp('Syarat : Harta yang dimiliki telah mencapai haul (1
tahun)')
disp(' ')
tabungan=input(' # Harta dalam bentuk tabungan : Rp ');
uang=input('
# Harta dalam bentuk uang tunai : Rp ');
surat=input(' # Harta dalam bentuk surat berharga : Rp ');
kendaraan=input(' # Harta dalam bentuk kendaraan : Rp ');
properti=input(' # Harta dalam bentuk properti : Rp ');
perak=input('
# Jumlah perak yang dimiliki(gram) : ');
harga_perak=input(' Masukkan
harga perak(per gram) : Rp ');
emas=input('
# Jumlah emas yang dimiliki (gram) : ');
harga_emas=input(' Masukkan harga
emas(per gram) : Rp ');
hutang=input('
# Masukkan jumlah hutang jatuh tempo saat membayar zakat : Rp ');
nishab_emas=(85*harga_emas);
emas1=(emas*harga_emas);
nishab_perak=(595*harga_perak);
perak1=(perak*harga_perak);
if emas1>nishab_emas & perak1>nishab_perak
mal=(tabungan+uang+surat+kendaraan+properti+emas1+perak1)-hutang;
disp(' ')
disp(['
>>> Harta yang wajib saya zakati : Rp ',num2str(mal)])
zakat=((2.5*mal)/100);
disp(' ')
disp(['
>>> Besarnya zakat mal yang harus saya keluarkan adalah Rp ',num2str(zakat)])
elseif emas1>nishab_emas & perak1<nishab_perak
mal=(tabungan+uang+surat+kendaraan+properti+emas1)-hutang;
disp(' ')
disp(['
>>> Harta yang wajib saya zakati : Rp ',num2str(mal)])
zakat=((2.5*mal)/100);
disp(' ')
disp(['
>>> Besarnya zakat mal yang harus saya keluarkan adalah Rp ',num2str(zakat)])
elseif emas1<nishab_emas & perak1>nishab_perak
mal=(tabungan+uang+surat+kendaraan+properti+perak1)-hutang;
disp(' ')
disp(['
>>> Harta yang wajib saya zakati : Rp ',num2str(mal)])
zakat=((2.5*mal)/100);
disp(['Besarnya zakat mal yang harus saya keluarkan adalah
Rp ',num2str(zakat)])
elseif emas1<nishab_emas & perak1<nishab_perak
mal=(tabungan+uang+surat+kendaraan+properti)-hutang;
disp(' ')
disp(['
>>> Harta yang wajib saya zakati : Rp ',num2str(mal)])
zakat=((2.5*mal)/100);
disp(' ')
disp(['
>>> Besarnya zakat mal yang harus saya keluarkan adalah Rp ',num2str(zakat)])
end;
case(3)
disp(' ')
disp(' ')
disp('####################################')
disp(' Hasil Perkebunan/Pertanian')
disp('####################################')
disp(' ')
p1=input('Masukkan
jumlah penghasilan perkebunan/pertanian : Rp ');
disp(['Hasil Perkebunan/Pertanian = ',num2str(p1)])
disp('>>>>>>>>>>>>>|||<<<<<<<<<<<<<')
disp('Pilih jenis irigasi kebun Anda')
disp(' a= Irigasi
dari air hujan/sungai')
disp(' b = Irigasi
dari PDAM')
disp(' ')
r=input('Irigasi kebun saya adalah ');
switch r
case(a)
zkt=(10*p1/100);
disp([' >>> Besarnya Zakat Hasil
Perkebunan/Pertanian dengan Irigasi kebun saya dari air hujan/sungai yang harus
saya keluarkan adalah Rp ',num2str(zkt)])
case(b)
zkt=(5*p1/100);
disp([' >>> Besarnya Zakat Hasil
Perkebunan/Pertanian dengan Irigasi kebun saya dari PDAM yang harus saya
keluarkan adalah ',num2str(zkt)])
otherwise
disp('***Maaf
pilihan Anda tidak tersedia, silahkan coba lagi.***')
end
otherwise
disp('***Maaf pilihan Anda tidak tersedia, silahkan coba
lagi.***')
end
disp(' ')
disp(' ')
jawab=input('Apakah Anda ingin menghitung zakat lagi? (y/t)');
end
