d4e8dea8279b2fe7c23650b1a5ada694d81c3198
4 procedure srand(s
:integer);//Устанавливает зерно для ГПСЧ
5 function rand
:integer;//Возвращает случайное число
6 function rnd(max
:integer):integer;//Возвращает число от 0 до max
7 function rnd_pr(pr
,p1
,p2
:integer):integer;
9 (* Возвращает true с вероятностью x/y *)
10 function RandomBoolean(x
, y
: Integer) : Boolean;
16 function rand
:integer;
18 next
:=next
xor (next
<< 13);
19 next
:=next
xor (next
>>> 17);
20 next
:=next
xor (next
<< 5);
24 procedure srand(s
:integer);
26 //Debug('srand('+s+')');
30 function rnd(max
:integer):integer;
35 function rnd_pr(pr
,p1
,p2
:integer):integer;
37 if pr
>=rnd(101) then rnd_pr
:=p1
; else rnd_pr
:=p2
;
40 function RandomBoolean(x
, y
: Integer) : Boolean;
42 RandomBoolean
:= rnd(y
) <= x
;