Program Pascal Muraja'ah Ayat Qur-an Secara Acak

Program ini hanya membantu pemilihan ayat Al Qur-an secara acak pada surat yang telah kita tentukan dalam program, setiap ayat hanya akan ditampilkan satu kali, dan aan ditampilkan semua ayat sesuai yang diprogram, misalnya pada contoh ini surat yang dipilih adalah surat Al Fatihah dan surat An Nas, dengan format:

nomor surat:nomor ayat

Misal yang terpilih secara acak adalah:

114:3
Maka artinya dipilih secara acak surat An Nas ayat 3.

Kode program atau sintaksnya adalah:

var
a:set of 1..114; b:set of 1..114;
a1:integer; a2:array[1..114]of integer;
z,y,x,w:integer;

q1:set of 1..7; q1_1,q1_2,q1_4,q1_6:integer; q1_3:array[1..7]of integer;
q1_5:set of 1..7;

q114:set of 1..6; q114_1,q114_2,q114_4,q114_6:integer; q114_3:array[1..6]of integer;
q114_5:set of 1..6;

begin
writeln('بسم اللّه الرّحمان الرّحيم');
z:=0; q1_2:=0; q1_6:=0; q114_2:=0; q114_6:=0;
writeln;
a:=[1,114];
q1:=[1..7];
q114:=[1..6];

w:=7+6;

for x:=1 to w do
begin

write(x,'. ');

for a1 in a do
begin
z:=z+1;
a2[z]:=a1;
end;
randomize;
y:=random(z)+1;
b:=[a2[y]]; write(a2[y],':');

if a2[y] = 1 then
begin
for q1_1 in q1 do
begin
q1_2:=q1_2+1;
q1_3[q1_2]:=q1_1;
end;
q1_4:=random(q1_2)+1;
q1_5:=[q1_3[q1_4]];
write(q1_3[q1_4]); q1_2:=0;
q1:=q1-q1_5;
q1_6:=q1_6+1; if q1_6=7 then a:=a-b;
end;

if a2[y] = 114 then
begin
for q114_1 in q114 do
begin
q114_2:=q114_2+1;
q114_3[q114_2]:=q114_1;
end;
q114_4:=random(q114_2)+1;
q114_5:=[q114_3[q114_4]];
write(q114_3[q114_4]); q114_2:=0;
q114:=q114-q114_5;
q114_6:=q114_6+1; if q114_6=6 then a:=a-b;
end;

readln;
z:=0;
end;
writeln;
writeln('الحمد للّه ربّ العالمين');
readln
end.

Semoga bermanfaat, semoga bisa dikembangkan, kalau ada yang mau didiskusikan silakan langsung messenger admin, terimakasih.

Posted in: