47208986a7c3ec5ee5961b0963535515e0d27b8e
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;
13 function rand
:integer;
15 next
:=next
xor (next
<< 13);
16 next
:=next
xor (next
>>> 17);
17 next
:=next
xor (next
<< 5);
21 procedure srand(s
:integer);
23 //Debug('srand('+s+')');
27 function rnd(max
:integer):integer;
32 function rnd_pr(pr
,p1
,p2
:integer):integer;
34 if pr
>=rnd(101) then rnd_pr
:=p1
; else rnd_pr
:=p2
;