برنامج لسحب عينة عشوائية حجمها 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.