Стр. *4 fOCT 55645.301—85
II 4<SA_
,46 9t
> ? f l ’
4 91
4 9 2
493
4 9 4
4 9 5
496
II 4 9 7
49 A
499
523
l f O . < * f T
t
J 1 , I = 1 , 2 4 )
Ь’’
J r j L P R . f e . l ’
R
£ 4 0
p O
21 !=1•ЗП, ^
> >» R ( l i s f l:
МП ( I >= (1
1
0
472»;
_■
m
!1
i
(
h
i
t*
475
7
1 Ml>2< 1 >= л•>**-,
474
1
Г t*PR.F<l -0> CO T0 ?3
4 7 5
Г.
» .* P A - И д С С . 1 6 » ^ П Е Mf. H т К К О Т О Р О Г О P A > H b l Н О М Е Р А М
47 6
ППрйС’ЫХ n rA FP XH O CT Ep ’"i T ’
4 7 7 Г.
’ ^ O U ^ C C i i P . ,-OF ME Нт ь> КОТОРОГО .рдрмы кОГ*®«ицИ-
4 7A f.
ЕНТАМ
п о д с т о е .
Т
И ЛЛР Г
0 0 Tfte>CTAwOuiEd По-
4 79
ft
Р
ИСТОО ПППЕРхнОСТИ*
4 A0 £
МАССИВЫ нРр И мПАЗОЛЯТСЯ П>И KPR> ,
RF
А
С
L
0
0 , •
к
РР
с
1
) , I =1, к)
RFAC 1 30 » <МП1< 1 » » 1*1 ,<9R )
4 A3 ,
DO 22 ] = 1 »N
4A4 J
%О® 22 J =
1
»
k
P«
4 A3
IF M . EQ .N P
r
(»
i
*>, Г Р р Г | ) = М 0 1 ’ ^
4 A6 2 2 CO NT IMUE ’
4 A7
P R IN T 24 1 . »Г PR ( f >, I
= 1
. f; >
4
AA
73 TF(KPo,F.a.O* CO
TO 2
A
4 A9 C
NPO-МДССиЛ, ЭЛЕИЕНТН КОТОРОГО Р
д
ВЬ
ы
НОМЕРАМ
4 9 0 C
ОБЛАСТЕЙ ИСКЛЮЧЕНИЯ]
Н
U
C
МП2-МДССИВ* ЭлРИЕНТы Kf t Ti POp n РйГ.РО«ТО*ЕНЫ
CСПОТАр TCTftfHHO Э Л Е м Г н т д м *jP0# 4 Зндч ЕНИЕ
C
■ OHF
m
e h
T
a
Р
а з н о
н о м е р у
п о в е
р
х н о с т и
, *
к о т о
C
р
о й
ПР
11
д
* О Р
х г
Т COO
t
RFTCTBV*
0
j a
P Ob л д с т ь
C
ИСкЛОчЕНИЯ,X
\ t
и«
C
МАССИВЫ
n
P.D
и
м02 ВВОДЯТСЯ
о р и к
Р0>0.
PFAD 100,<КРС<I’.1=1,КРО).‘МС2(I >»I=1*<РО>
ПО 24 J: 1 . N
Оп 24 j s l . K P Q
1
3
1
*
1
1
3 ft
0
1Р( I . E Q . N P Q ’ J ) ) МП f I )= М0 2С J 1
5 ft i 2 4 C ON UNUF
3 02
ПО 25 Is1•N
3 0 3
МП1( I ) * 0
5 0 4
75 МП2 М >s0
5 0 3
QO 2 А I а 1 • N
3 0 6
00 28 J =1» N
30 7j F ( МО( J 1 , NЕ , j ) GO ТО 2«
30AI F
j
m
D
i
( I ) . NF , 0 ) GO т О 27
3 09
МОД(!)=J
510
М02(I>а.»
511
СО т
0 2 А
3 12
27 м02< I *аМ02{ » >♦1
31 3
2A CONTINUE
5 1 4
P R IN T 24 2 * ( м0 ( ( )
1
t с J. >N )
5 1 3
PRINT 24 3•< мО1 ( I >. f s i t N )
5 1 6
PRINT 244»(M02(I>*Isi»N>
3 1 ?
7 A l F t L B R . E f t . O ’ GO TO 2
p
II 31 AREAD l l O f t x A I I ) » l s i » 3 >• ОМ1 I ) • 1 = 1 » )
319 f.
п а р а м е т р ы з а й м о в о т
? *
х
Е
н и р м о
л
е к у
л
от
п о в е р х
-
3 2 0 ft
ЧОАОСТИ1ИС3#
5 21 ft
ПРИ 3 ЕРАА ЛЬН0 . д и * * У 3н О” ОТРдхЕнИИ и ОТРАЖЕНИИ
3 2 2 C
МОЛЕКУЛ в СООТВЕТСТВИИ С вУНКцИЕ* МАКСВЕЛ
5 2 3 ft
ЛА
з н а ч е н и я
.
v h k u h a г е
*
р n
»
г т з а
д
а ю т с я
3 2 4 ft
п р и
З
н а ч е н и я х э н е р г и и м о
л
е к у
л
,
р а в н ы х
C
(В ЗВ>:0,*.Л25,1.3,3.,4.5.6.|7.5*9.,10,5.