WAKTU PEMBAYARAN FIDYAH

🌴🕌📚🕌📚🕌🌴
Kajian Fiqih Puasa
    Bersama
       Ust Junaidi Sahal 
================
Kajian 09-"Waktu Pembayaran Fidyah"
================
🌹➰➰➰➰➰➰🌹
(www.dar-alkayyis.com)
Fanpage UJ:
https://m.facebook.com/UstadzJunaidiSahal
❤➰➰➰➰➰❤

🍁 TANYA 🍁

Assalamualaikum Ust. Jun,...  mohon pencerahannya... untuk masalah tidak berpuasa karena hamil atau menyusui... perlu qadha dan bayar fidyah atau bayar fidyah saja. Dan cara bayar fidyahnya apa bs lgs diserahkan sebulan atau harus per hari. kl diuangkan perhitungannya spt apa ya? mohon maaf apabila pertanyaan ini sdh pernah dibahas. tks

📚 JAWAB

Wa alaikum Salam warohmatullohi wabarokatuh..

 بِسْـــــــــــمِ اللهِ الرَّحْمَنِ الرَّحِيْـــــــمِ

1. Banyak sekali pertanyaan yg masuk ke saya terkait tidak puasanya ibu hamil dan menyusui..
Sungguh hal itu sdh sy jelaskan berkali kali, bahwa hal tsb adalah ikhtilaf(berbeda pendapat di kalangan ulama), sebab ikhtilaf dikarenan hal diatas tidak disebut secara spesifik di dalam Al Quran dan Hadis.. Yan…

PROGRAM MATRIKS: PENJUMLAHAN, PENGURANGAN, DAN PERKALIAN


program matrik;
uses wincrt; 
type data = array[1..10,1..10] of integer; 
var matrikI,matrikII : data; 
    baris,kolom,pil : integer; 
procedure isimatrik; 
var  i,j : integer; 
begin 
     writeln('Penentuan ORDO MATRIK I'); 
     write('Masukan banyak baris matrik I = ');readln(baris);
     write('Masukan banyak kolom matrik I = ');readln(kolom);
     for i:=1 to baris do 
         for j:=1 to kolom do 
             begin 
             gotoxy(j*10,i*5); 
             readln(matrikI[i,j]); 
             end; 
     clrscr; 
     writeln('Penentuan ORDO MATRIK II'); 
     write('Masukan banyak baris matrik II = ');readln(baris); 
     write('Masukan banyak kolom matrik II = ');readln(kolom); 
     for i:=1 to baris do 
         for j:=1 to kolom do 
             begin 
             gotoxy(j*10,i*5); 
             readln(matrikII[i,j]); 
             end; 
end; 
procedure jumlahmatrik(m1,m2 : data); 
var hasil : data; 
    i,j   : integer; 
begin 
     for i:=1 to baris do 
         for j:=1 to kolom do 
             begin 
                 hasil[i,j]:=m1[i,j]+m2[i,j]; 
             end; 
     clrscr; 
     writeln('Hasil Penjumlahan MATRIK'); 
     for i:=1 to baris do 
         for j:=1 to kolom do 
             begin 
             gotoxy(j*10,i*5); 
             write(hasil[i,j]); 
             end; 
end; 
procedure kurangmatrik(m1,m2 : data); 
var hasil : data; 
    i,j   : integer; 
begin 
     for i:=1 to baris do 
         for j:=1 to kolom do 
             begin 
                 hasil[i,j]:=m1[i,j]-m2[i,j]; 
             end; 
     clrscr; 
     writeln('Hasil Penjumlahan MATRIK'); 
     for i:=1 to baris do 
         for j:=1 to kolom do 
             begin 
             gotoxy(j*10,i*5); 
             write(hasil[i,j]); 
             end; 
end; 
procedure kalimatrik(m1,m2 : data); 
var hasil : data; 
    i,j,z   : integer;
    begin
     for i:=1 to baris do 
         for j:=1 to kolom do 
             begin 
                  hasil[i,j]:=0; 
                  for z:=1 to baris do 
                  hasil[i,j]:=hasil[i,j]+matrikI[i,z]*matrikII[z,j]; 
             end; 
     clrscr; 
     writeln('Hasil Penjumlahan MATRIK'); 
     for i:=1 to baris do 
         for j:=1 to kolom do 
             begin 
             gotoxy(j*10,i*5); 
             write(hasil[i,j]); 
             end; 
end; 

begin


     writeln('    M E N U'); 
     writeln('(1) Penjumlahan Matrik'); 
     writeln('(2) Pengurangan Matrik'); 
     writeln('(3) Perkalian Matrik'); 
     write('Pilihan = ');readln(pil); 
     clrscr; 
     case pil of 
     1 : begin 
              isimatrik; 
              jumlahmatrik(matrikI,matrikII); 
         end; 
     2 : begin 
              isimatrik; 
              kurangmatrik(matrikI,matrikII); 
         end; 
     3 : begin 
              isimatrik; 
              kalimatrik(matrikI,matrikII); 
         end; 
     end; 
end.

Komentar