Книга: Машинна імітація випадкових параметрів

readln(n);}

a:=0;b:=20;p:=20;n:=10000;

for i:=1 to p do t[i]:=0;

h1:=p/(b-a);

for i:=1 to n do

begin

x:=random(b) ;

j:=trunc((x-a)*h1)+1;

t[j]:=t[j]+1

end;

clrscr;

for i:=1 to p do

writeln(i:3,t[i]:10);

readln;

rp:=p;

for i:=1 to p do t[i]:=0;

for i:=1 to n do

begin

y:=random ;

j:=trunc(rp*y)+1;

t[j]:=t[j]+1;

end;

Clrscr;

Writeln('*******');

for i:=1 to p do writeln(i:3,t[i]:10);

readln;

Clrscr;

writeln('Histogram');

for i:=1 to 72 do aa[i]:='*';