ГОСТ 25645.204—83 Стр. 11
Ш
0045
L= 1-
A 1= SP JI
K1«0
DO 47 IbJV»L i
401С
44
00
L
46
1
(
J * ? , L
JV=J*1
I P I A l . L C . S P f D l GO
t o
47
{}:r,n
1 i * I
47 CONTINUF
SI=SP(J)
12»IP (J 1
IPj 1l I * I?
SPCII>*ST
46 CONTI UE
CO TINUE
48
IF1Kl)4«T,46r40
! РЧJ
1
=
I
P (
111
SP ( J 1=Л1
45
Г-0
N
14
N
.1*2,11
1a IP «j )
J5» PN< J t )
J2=MI J1>
DPJ * * I »J?
DO
K
19
(
.11 «1 , N? ON
J4=|PZf J l , J ВI
K P ( -ll= J 5
GO TO 1
KPI .1-11*0
l
c o n t
i
n u e
KPIL11*Q
i o n
J
p - - i * i D i m
19 CONTINUE
об**
m i t n = - i * i D i m
18 CONTINUE
23 CONTINUE
RETURN
FUN TIONANNOfNVR!
DATA 1Х/1/
IX- IT
RETURN
|Y«IT46GG3
IF l IY )5 »*5*6
EN0
SUBROUTINE
9
O.’.’COUIIX.IY.YFL)
5 lYaIY+2147485647+1
4END
**♦
C
R460T
R
СЛУЧАЙНОГО ЧИСПЛ HA 0TPE3KF 10.11
* /*
CALL RANDUITX,IV»YFL)
PANNOsYPL