برنامج لتوليد أعداد شبه عشوائية

برنامج لسحب عينة عشوائية حجمها m=40 من مجتمع مؤلف من N=5000 عنصرا
بالاعتماد على مولد عشوائي حاسوبي يحاكي طريقة الجداول العشوائية أو طريقة السحب
بالدواليب ( توليد أعداد شبه عشوائية )


Program randoooo;


Uses wincrt;


Var x:array[1..5000]of
integer;


y:array[1..40]of integer;


a:array[1..4]of 0..9;


n,m,l,I,j, num:integer;


function
p(a,n:integer):integer;


begin


if n=0 then
p:=1


else
p:=a*p(a,n-1)


end;


Begin
readln(n);


Readln(m);


Readln(l);


For i:=1 to n
do x[i]:=i;


Randomize;


For i:=1 to m
do


Begin


Repeat for
j:=1 to l do


A[i]:=random(10);


Num:=0;


For j:=1 to l
do


Num:=num +
a[j]*p(10,j-1);


Until (
num<=x[n]) and (num>0);


Y[i]:=num;


End;


Writeln('the random');


For i:=1 to m
do


Write ('y[',I,']',y[i]);

End.