برنامج العزوم المركزية بدلالة العزوم الابتدائية لعينة حقيقة حجمها n
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.
دعولي