ГОСТ 25645.204—83 Стр. 9
004 8
606 CONTINUE
0091
91?
7?
l l
П
I?!
IH I0 6 N T I6 1 1 ,511,51?
PEAD S.xr y r,?0 ,U 0 ,V O .
POINT 7 0 ,X O .Y O ,n f UO,VO,wо
PRINT 7 1 ,Ll
CALL GfO*tN<XO,YO,ZO,im,VOt|IO.Ll )
70
P0Rua7t ?X,3f П О . 41 ,5X.3<C10.3))
71
FOR4AT(9X,!4)
DO 81 I Z - 1* 1.1
FO»MAT(5X,I4t5X,C-! .?,5X, 14)
arcra»
И1ЙМ Т1 f 6 )
CONTINUE
81
P.PI NГ 72, JP< IZ) ,SP(
0
1 7 * n ,K P ( !Z )
511 READ
4
11, ISTOR
1?
READ
A
l ? . X 0 f Y0,?O
FORM T! 3E1C.C1
OO
T
(
IN
).
00
Р
ТИ
IN
^
O
.
П
О
Р
Т
ЗС
I
N
)«
6
.
OO
P
T
5
(
I
N
) =
0
,
00
P
306
IN
=
1
»
100
QO
P
T
2IIN
j
)=
0
i
ПЗР
Т
41IN
)*
0
.
406
c o n t in u e
00 400 IS«1.IST0P..
CALL ROMEGAC UO, VO,КО)
0L«0
CALL
,
GEO«IN<XO.YO,70»UO,VO,KOtll>
DL1=0.
0L *0.
00
2
308 K l * ? , l l
NL*KL-1
IFIKP(N L).EQ Q ) CO TQ 307
I F ( KPIN1 l.G T
.
. l
I
)
S
г.о
N
ТГ» 351
DL1»0L1«-SP|KL - P( U
GO TO 308
451 DL?=DL?MSPIKL)-’5P(Nin*qD(KP(4l ))
CONTINUE
CONTINUE
IN
D
1
*
IN
O
EX
I
O
L
1
)
DL-OL1*0L?
0090IN
D
=
IN
PFX
I011
ЭЭ9?
IN
O?
»P.’
O
r
x
(
O
L
?
)
CONTINUE
PRINT 4 3 Q ,IS T O R ,X T ;Y C ,7 0 „
o
O
o
O
p
P
T
TI
iu
I
N
N
D
0J
i
«
i=
0
*
0
o
P
o
T
P
(
T
I N
i{
01
if
4
o
-1
i
.
H -i
400
D
0
P
T?
IIN0
?
)s
00
P
T?
(
I4
C>l
♦
!
PRINT 220
430
FnnMATJ/lOX, * ЧИСЛО. KCT’vPW* f , I 6 , 5 X f «K0PP0HKATb) ТЛ’-VP» , ?X, *ХОс»,
v