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

Самый быстрый метод заключается в определении целой переменной J , соответствующей номеру интервала, к которому относится число. Например, для интервала [0,1], разделенного на 20 классов длиной 0.05, можно получить значение J следующим образом:

J= целое (20 х) +1

х=0.03®целое(0.6)+1

х=0.06®целое(1.2)+2

Чтобы подсчитать число элементов в каждом классе, можно действовать следующим образом:

1) получить случайное число х,

2) вычислить J ,

3) установить T(J)=T(J)+1, где Т – массив из р элементов и каждый элемент T(J) служит счетчиком для класса J.

Программа

uses Crt;

Var

a,b,p,n,i,j: integer;

Var

t: array [1..20] of integer;

Var

h1,x:Real;

Var

rp,y:Real;

Var

aa: array [1..72] of string[1];

Var

k: integer;

Begin

clrscr;

randomize ;

{ writeln('a=0,b=20');

readln(a,b);

writeln('p=20');

readln(p);