Добавил:

ivanov666 Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Башкирский Государственный Аграрный Университет

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

книги из ГПНТБ / Кастин, О. М. Система первичной обработки метеорологической информации

.pdf

Скачиваний:

Добавлен:

19.10.2023

Размер:

7.14 Mб

Скачать

☆

<<< < Предыдущая 1 2 3 4 5 6 7 8 9 10 11 1213 / 1913 14 15 16 17 18 19 > Следующая >>>

ПРИЛ. 2

ПРИЛ, 2

ПРИЛ. 2

1 4 9Ш- 0

1 3 ОШ 0

1 3 1 Ш 0

1 3 2 Ш 0

1 3 3 Ш 0

l S 4 ü | g

1 3 3 U 0

С 3 4 ;	V J M R T I S F A L S E	I
3 M R T !

C O M M E N T	П Р О Д О Л Ж Е Н И Е Р Л С К О Д И Р 0 В Д Н И Я С И Н О П Т И Ч Е С К О Г О
	С О О Б Щ Е Н И Я П О С Л Е О Б Н А Р У Ж Е Н И Я З А Г О Л О В К А ,
	• О Р М И Р О В А Н И Е З А П И С И ( М А К Е Т А ) С О О Б Щ Е Н И Я
C O M M E N T	И М А С С И В О В З А П И С Е Й ,
C O M M E N T	Н Д Б О Р Г Р У П П С О О Б Щ Е Н И Я В М Д С С И В С В ’ Р I

156Ш 0 N T Я Р ! F 0 Я		М : « В З Т Е Р
1 3 7 Щ 0	F O R	М I * j 5 Т Е Р

1 U N T I L	6 В 0 0 С М Я К 1 М \| ; в ' oo ооoo;
' U N T I L	2 1 0 0

І З В Л О

F O R

T : = | S T E P

' U N T I L зоо

св я P

t М ,

т1 : = о

1 5 9 Ш 0

C B l C j a F A L S E

C B K P S I E T R U E

С К 5 Д Р

:»о;

1 6 0 Ш 0 C O M M E N T

П Р О В Е Р К А Н Я

' N A T E N ' ,

' I C E '

И • Л Е Д * I

1 6. 1 III 0

c4 :

B P S

( 5 )

1 6 2 ц ] 0

I F

С I 1 ) = N W * C t 2 ) = W A « G [ 3 ) = W T T c ( 4 ] = W E

1 6 3 Ш 0

[ S

] = W ; , T H E N

C o m

св;

G O T O

С 7 і

' 6 4 щ 0

I F

( G [

l ] s ' / t l Y G ( 2 ] a W C E C [ . S ) B W E ) T H E N

1 6 5 Ш 0

I F

( U I

1 ] E

N L » C ( 2 ) = W E 9 C [ 3 1 = W(

) T H E N

сото

С7;

1 6 6 Л 0

сз:

С М А К

t 2

)

: = 1

i N T S ; s N T S * l i

С О Т О

C 1 1 1

1 6 7 Щ 0

е в :

O B S T ; = T R U E

1 6 B UI 0 с7 :

I F

C t 3 C ] 3 r t E * C ( S C ] = W P 0 T H E N

B E G I N

' 6 9 Ш 0

свI сI a T R U E ;

corn

cR E N D

;

1 7 0 Ul 0

I F

S C « 4 T H E N

С О Т О

C O )

І 7 1 Щ 0 C O M M E N T

И С К Л Ю Ч Е Н И Е В С В Я Р И С К А Ж Е Н Н Ы Х Г Р У П П ,

1 7 2 Щ 0

И С П Р А В Л Е Н Н Ы Х П О П Р А В И Л У

' Е ' , . '

» •

I F

• *

1 7 3 щ 0

C B 1 C T H E N

B E G I N

C B I C I B F A L S E

;

174ш 0

C T

1 [ 4 5 ) I B

C T 1

[ 4

J *

I i

I73ш 0

F O R

I B - ' S T E P

' U N T I L C K C R P - 1 D 0

1 7 6 ц ) 0

IF С в Я Р І Т , 1 } в С М ] ' Г с В Я Р [ Т , 2 ) з С І 2 ] 7 С В Я Р І Т , 3 ) = і

1 2 0

П Р И л ,

П Р И Л .

1 7 7 0J П

« C B R P t T . 9 ) = C t 9 ] 7 C B R P [ T , S ) = S l 5 ] T H E N

В E U I N

1 7 3 dJ 0

C K G R p : = т + 1 ;

1 7 9 Ш 0

F O R

M I s C K G R P S T E P

l U N T I L

2 1 0 0

\ч і и и о

F O R

9 5 : = 1 S T E p

l U N T I L

S O O

C 3 R P t Ч , Я 5 ] 1 = 0 i

1 ѳ 1 ш с

« О Т О

С 9 Е N O

T J

1 8 2 d l 0

E N D

С В 1 « i

1 8 3 ill 0

F O R

Д 5 : = 1 S

T E P

l U

N T I L

5 D O

1 8 < Ш п

C È R P [ C K G R P , Я 5 ] ; = G [ Д 5 ] J

C K G R P 1 = C K G R P * 1 i

1 В 5 ш '

I F

C K « R P = 2 | T H E N

G O T O

C 6 J

18 6 Ш ' .

С 9 :

I F

N T Т 4 E N

G O T O

c s ;

і а п и -

I F

7 K 3 T и E N

G O T O

C < ;

1 а вш г

1 3		9 U M
1	9	1) ijJ О
1 4		1	tu т
1	9	2	.9 9
1 9		3 л 0
1	9	2	Л г
1 9		5	чі 0
1 9		6 Ш 9
1	9	7	llj Г
1	9	9 и- г

19 9 Ш Г

20 0 UJ о

2D 1 U1 0

2*' 2 Ш 0

21 З Л О

с о і/ч •: N Г

П с p E X 0 0

4 9

В Т О Р У Ю

С Т Р О К У

С 0 0 6 Ш Е Н И Я ;

I F

7 C j K p S T 4 E N

G O T O

c a ;

C B K P S : = F f l L S E

;

C . B 3 1 ; = T R U E

;

N T S : = N T S *

I J

R I G ;

I F

5 S < 2 5 T H E N

B E G I N

B P G I 5 ) ;

i f

B ; = O T I B N B E G I N

I F

3 G * 3 « Л

l ) = r t 9 7 G t 2 ) = r t 9 7 G l 3 ) = K 9

T M E N

G O T O

С I 1 ;

G O T O

C 7 E N 0

;

I F

G I 1 ] I . - 1 1 « G 1 2 ] = w c • ; t 3 ] = W E T H E N

G O T O

C 5 ;

I F

G [ 1 ) Z . - / L 7 G 1 2 ] r r t S T G t 3 ] = W D T H E N

G O T O

C 5 J

I f

G ( l J ± N A « G ( 2 ) = w f l « G l 3 1 = W T ! G t 4 ) r W E

7 G ( 5 ) = W N T H E N

G O T O

C b J

G O T O

C l 1 E N 0

S S « 2 5 ;

I F

P l a W S T H E N

G O T O

C M ;

T : = C H O P ;

я x : = C \I P T ;

я 5 : = N P ;

C B K O R Q ;

W : = C H O p ;

С ч о р ; = т ;

c N p т : = я « ;

N P : = я 5 J

I F

« X 3 T H E N

G O T O

C 1 i

2 '1 2 щ 1)

p !

о г о c 4 ;

1 2 1

	П Р И Л . J		ПР.ІЛ.	!	прил		ПР3;:- 3
2 0 6 iD О		с 1 1 ; сок:=»;
гобщо		IF	Р I=WS ТНЕ N	BEGIN
ао?ло		IF CKGRP«»THEN GOTO CTTi
iqemo		COMMENT	ЗАНЕСЕНИЕ	ИНФОРМАЦИИ		ОСНОВНЫХ
2	О 9 Щ О		ГРУПП СООБЩЕНИЯ		В МАКЕТ;
2	1 О Ш О	C M K T I F O R	T := I S TE P	I U N T I L	S D O	в IT );=C B R P [о,г ]j
г11 шо		cMAK[ä):=TTN(B,i,n;			C M A K C9]:=T T N (B ,2,2);

2 I 2 U I J

гили

2 1 4 Ш 0

215ло

216л О

гі7ло

2 І Ь ш О

2 1 9 Л 0

2 2 0 Л О

2 2 1 Ш и

2 2 2 ц ] О

2 2 З ш О

2 2 4 Л и

2 2 5 Ш 0

2 2 ( > Ш 0

2 2 7 Л 0

2 2 8 Л О

СМАК I)I)1;=ТТч (В ,4 ,2 )J


F O B	т ;= 1S T E P	I U N T I L	5 0 0		в [T ]:=C B R P 11 ,T ];
cMAK[iu;=TTN(a,i.2);				C M A K [I2 J :=T T N (B ,3,2);
с м а к [13 J:=T T N (в ,5, 1);
FOR	T:=1STEP	IUNTIL	500		В CTj:=CВRР CJ,T ];
C M A K ( M ] ; S T T N (B ,I ,3);				C M A K (I S]:S T T N I B ,4,2);
FOR	T:*ISTEP	IUNTIL	500		В lT]I=CВRP[3,TJ;
cMAK[ib):rTTN(8,i,n;				C M A K M 7 J :=T T N I B ,2,I )S
CMAKtie);=TTN(3,3ii);				CMAKii9}:=TTNce,4,n;
с ма к i2oj:=TTN(B,5.n;
FOR	T: = 1STEP	IUNTIL	500		В ITj:=CBRP(К,T );
C M A K[2I I :=T T N (B ,3,I );				C M A K [22]:S T T N (B ,4 i2);
IF	P1sWSTHEN	CMAKC23]:=TTN(B, 1,2)EL5E BEGIN
СМДКІ24 ]:=TTN (Ö ,1,1 )i СМАК t25 );rTTN (B ,2.,1 (END ;
IF	PlXWSTHEN	GOTO C 1ВJ
COMMENT	к0HT*PЗ.Лb	СУХОПУТНЫХ			И м о р с к и х	с о о б щ е н и й ;
IF	с м ак с1 5]«отсмАкс 23]<O T H EN сото					с і з ;

2 2		9 Л U C O M M E N T		з и м а ;
2	3	О ш О	IF	SEASONS OTHEN
2	3	1 л О		FÜR	т:=23,24,70,72,7400
2	3	2 ш О		IF	СМАК(5] = ШТШ1_00Т0 с 13}

122

...........................

...........................................................................................................................................................

« П А К Е Т .

0 0

• •

іірмл. г

лР.1л . г

п р и л . г

пРил

233Ш0

СМЛК [

15 )*5 0TH EN

В Е Щ N

234Ш0

С4AK [ 15J7CMAKI23 П Н Е N

СОТО С|3;

235Ш 0

С О Т О

С 12Е N U

;

23MU0

CMAKM5J<CMAKC23]»CMAK123]<50THEN

237ШЛ

в н і . 1 9

с 1 г :

сок :

=сэк ♦

1 ;

ст 11 к ч

і : =ст і

і « в ] *

I E N O

;

238шт

Сіз: IF

C^'AKt 10)>5 ATHEN

BEGIN

2391110

сок:-сэк‘і;

cTii<9]:=cTil<9]*isND

;

г <

ишо

СК - M : IF CMAKl9)»tbSCMAKt9JF99T4Evl

г <

іш о

Ч 8 С 1 Ч

C C K :=C O K * I ; C T I I 5O 1:=C T I [50]*I E N D

2< 2 1ІС

CWA((eJ<C4AKll6J»CMAKM«>]y 0THEN

BEGIN

с о к : г с о к ♦ 1 ;

с т 1 [ 5 1 ] : =C T 11 i 1 j ♦ 1 ;

G O T O C M E N O ;

2< 4 1 4 (.

CWAKilb|<)THEN

G O T O

c 1 6

;

2<5Ш0

СЬ*Д-<С 15]=3TH EN

BtiilN

246UJC

м а

I 1 г

) «

5'jT H E N

с о т о

с H

> ;

7 IIJ «

' . с т

1 5 i N

;

3.и0

С Ц :

CPAKl|9J=0«CMAKtl7)=0THEN

249 и "

? - : і , н

I 5

: : I K : = : Ü K *

I J

с т і

і S T

J : = с т і

I S T ]*I E N U ;

251J О

с и :

pi=»3T4-N’ G O T O

сг

■>;

G O T O с I 9 ;

25 1',-

- «

1= .ч? ;

252 J J '

С ] Ч 1 ; 1 1 Т

3 J ' l : O E ' l K E

о С Ч » Р

Г Р J П П

' / / / / / '

Н А

М Е С Т О

2 5

3 Л Т

! т : 4с . Т 1 J O ' J ' X

Q C H O b H s J X

Г Р У П П ;

Э S < -и п

р З ' . :

I F

7 ' I I E J T H E N

с о т о

P O G I ;

2 5

5 31 о

] ,

Л * Р Т = Л Ч с Ч

i V t G I N

2 5

6 . л

- ' Т р

r ; = i j T = P

, U N T I L

5 о C

3 E G I N

2 5 7 0 )

C ^ S F I * , T j : г с ч к Р

[ : , т ) ;

c B R P [ 5 , T ] : = C B K P t < , T J i

258 1)

I f i i p i < , T 1 : : . < Я Е 9 Г

E N D

2 5

r-■_ 3 c

;

1 M

2 5

2 ,4 0

Г ;

1 S Г E 0

1 U N T I L

5 J 0

B E G I N

Р о в

прМ. ?	ПРИЛ. 2	п р и л . а	ПРИЛ. 2
2 6 І щ о	C B R ? [ 6 , T l ! s C a R P H , T l i	C B R P [ S \| T ] \| s C B R P ( ] \| T ] i
2 6 2 Ш 0	C B R P ( J , T J : = N S L ; C Ö R P ( O , T l : * W S L E N D E N D		1
2 6 3 I U 0	I F 7 ( C B R P l 5 , J l = N S L « C B R P l 5 , 4 ] * W S L * C B R P £ S , S J » H S L >

2 6 4 J 1 0

2 6 5 Ш 0

2 6 6 Щ 0

2 6 7 0 1 0

2 6 8 Л 0

2 6 9 Ш 0

2 7 0 ц] 0

2 7 5 л і

2 7 2 Ш 0

2 7 3 j j ü

2 7 4 л 0

■ 2 7 5 0) 0

2 7 6 0 1 0

2 7 7 Ш 0

2 7 6 ц ] 0

2791110

2 â 0 Ц| 0

THEN

B E G I N

F O R

T i a i S T E P

l U N T I L 5 0 0

B E 6 1 N

♦

—

SNO

C B R P £ 5 , T 1 : W S L E N O

C B R P [ 6 , T ] : = C B R P 1 5 , T ] ;

-оО

7«

——

111 1

C K G R P < 5 T H E N

B E G I N

1 :

I F

F O R

M : = C K G R P S T E P

I U N T J L

O O O

F O R T : = 1 S T E P

l U N T I L

5 0 0

C A R P [ M , T J : = N S L ;

;

C K G R P ; i i ; G O T O

C 1 7 E N O

I F C N P T S O T H E N B E G I N

;

C H P G : = O ;

G O T O

C M K T E N D

C K G R P : E C ^ G R P ♦ C N P T ;

- l U N T I L

5 0 0

F O R

M ; S C K G R P - 1 S T E P

F O R

T : = I S T E P

l U N T I L

s o o

F O R

c a R P i M . T i i s c s R P i M - C N P T . T ) :

T : = 1 S T E P l U N T I L

5 D 0

С В R P [ 4 , T ] : = W S L ;

I F C K P T 3 2 T H E N

l U N T I L

5 0 0

C B R P [ J , T J I s W S L t

F O R

T : = 1 S T E P

2 а 1m o		с 1 7 : С HP G » 3 l J C T I 1 4 6 ] ; = C T 1 [ 4 6 ] ♦ 1 ; G O T O C M K T J
2 3 2 0 J U		C O M M E N T		К ^ Н Е Ц P O G J	G O T O С М Л К Е Т 1
2 3 І Ш 3		C I S ;	I F	C H O P = 0 L H E N
2 ä	u	C T T ;	I F C H P G K O T H E N B E G I N
2 6 5 ( 0 0				c O K : = J i G O T O	K 5 M R T E N D ;
2 â 6 ц]	о		G O T O C K R M ;
2 в 7 Л	0	C 1 9 :	I F	C H Ü P 3 1 T H E N G O T O		е г о ;
? 8 6 .0 1 0			I F	C Q K = O T H E N G O T O		с м я к е т ; G O T O с т т і

124

П Р И л . 2 П В . і Л , 2 П Р И Л . 2 П Р И Л . 2

2 В 9 Ш 0 с 2 С : IF C 0 K > 3 T H E N B E G I N		G O T O C T T E N O ;
2 9 0 LU О	C T I [ 3 2 ] : * C T I I 5 2 ) * 1 j
29 T10 C O M M E N T 0 Б Р ( І 5 0 Т К Д ш е с т о й		группы;

2 9 2 Ц І 0

2 9 3 ш 0

2 9 < Ш 0

2 9 5 Ш 0

С М Я К Е Т :		I F	C K £ R P = 5 T H E N G O T O С 2 2 І C K O G ! = 5
.	F O R	Т : = 1 5 Т Е Р 1 U N T I L 5 0 0 В			I	Т ] I = C B R P ( S , Т ] ;
	11•	Ь [ 1	] = W 9 « B I 2 ] = r t 9 T H E N	B E	G	I N
	с м д к і 2 2 1 : = T T N ( B , а , з ) ;			C K O G : = 6 E N O i

2 9 Б Ш 0 C O M M E N T З А Н Е С Е Й И с И Н Ф О Р М А Ц И И д О П О Л Н И Т Е Л Ь Н Ь І Х

2 9 7 Ш 0	Г Р 9 П П С О О Б Щ Е Н И Я В М Д К Е Т ;
2 9 8 Ш 0	C M U G ;; м 1 : = л г ; т 1 : = л о i
2 Р 9 Ш Р	F O R M : = C K O G 5 T E P I U N T I L C K G R P - D O B E G I N

3 0	0 Ш 0
3 0	І Ш 0
3 0 2 Ш 0

3 0 3 u l 0

3 0 « Ш0

З О Ь Ш О ■ c O L G :

3	0	6 !li o
3	0	7.110
3	о в ш о			C M 7 :
3 0 9 Ш 0
3	1	о т о		C M B ;
3	1		1 ш о
3	1		2 Ш 0
3	1		З Ш 0
3	1		4 Ш 0
3	I		S u io	C M 9 :
з і ь ш о

F O R a « ; = \| S T E P				I U N T I L 3 0 0 В [ Я 4 ] ! = C ' B R P t M , Я 4 1 i
T : = u t		1 ] ;
I F	T = N ? T H E N G O T O С М 7 І
I F	T S W B T H E N		G O T O		C M B ;
I F	T = N 9 T H E N G O T O				C M 9 ;
I F	T = r t 2 T H E N G O T O				С М 2 !
I F	P l = W 5 T H E N			G O T O C 3 G , ;
I F T = W O T H E N G O T O					C M O J
I F	T	1---------- ---------------
		1 f H E N G O T O C M 1 I G O T O C 3 G ;

С М Я К І 2 И : = T T N ( B , 2 , 2 ) i

С М Д К 1 2 7 3 : = T T N ( B , 4 , 2 ) I G O T O C J I ;

I F M I » 6 2 T H E N G O T O C 2 I J

с м я к ( M l ] : = T T N ( B , 2 , 1 ) ! •
с м	я к ( M I ♦ 1 ] : = т T N ( в , 3 , 1 1 ;
с м	я к [ M 1 1 2 ] i = T T N ( B , 4 , 2 ) j

ч	1 : = м 1 + 5 ; G O T O C 2	1 ;
I F T 1 > 6 5 T H E N G O T O		C 2 1 ;

125

ПРИЛ. I

3 17010

31BUI0

3 1 9Ш0

заоло См2;

заіоіо

зааіло

згзши

згвл

323ц) J

за6ло

Згзшо

згвшо emo:

3 29111 О

ззоши C M i;

33 1Ш0

ззгша esc:

ЗЗЗшО

334Ц|о

335|Ц9

ЗЗ б л о

ЗЗ З Ш О

ззвшо

339Ш0

звошо

34 1ШО

342Ш0

34 Зц|О

3 4 4щ О

	ПРИЛ. 2		п р ил . з		приЛ. а
с м я к [ті]:=T T N <в,г ,г);
смяк tт 1 ♦п :=т T N (в (4,г);
т 1! =т 1 * ь ; сото сз1 j
IF PIsWSTHEN ВЕС IN
смяк tг9]:=T T N (в iг .г );
смяв[зо 1:=T T S (в,4,i)j
смявi3i):=T T N (в ,s,ij ENO
E L S E	B E G I N
СМЯКІ29):= т т м (B ,2 ,1 1;
с м я к і з j ) : * T T S ( B , 3 , 2 ) J
с м я к 1 3 1 ) : = T T M i n , 5 , 1 1E N D				: с о т о	с г г j
СМЯК 123]:=TTN(В,4 ,г);
СМЯВ І2 8 ):=TTN(B,2,2) i с о то				С 2 1
смяв(бЗ]:=ттч(в,?,з);
CMftK(6a]-.sTT4(B,4, u ; сото				сг 1
IF T=«3THEN B E G I N
смякізг):=ттч(в,2 ,г> »
СМЯК[331!=TTN(В,4,2) ; м :=м*
If MsCKGRPTHEN C O T C сгг;
FOR Д4:=1$ТЕР lUNTlL 500
в[Я4]:=сзнр[м,д.)\|
смяк[34]:=T T N (в ,i,2 );
смяк[35):=ттм(в,з ,і)»
смяк[35):=T T N (в ,4,г ); м; =М+ 1
IF	М=СКGRP T H E N	с о то	сгг;
FOR	fl4:=lSTEP	1UNTIL	500

8 tя4):=CBRP[M,Я4 ); смяк[33):=T T N (в ,1 ,a );

126

.................................... .

.....

п р м л .

прил.

прил, а

345Ш0

смяк[ за) : = T TN(в , з , і ) і

34бшо

СМЯК [ 39 ]

=TTN (В , 4,2 1;

3 4 7Ш0

СОТО

C22ENO

T=W3J

3 4 8 010

С2і: END

цикл м;

349Ш0

С22: СМЯК[ з ] ; =сок;

COK70THEN CT I l 47))*СТ11471♦ 1i

35 0U10

ст 11 53 1: =ст 1153 1+1;

ст1154 ] : =ст П 54 ] +смяк[ п

;

35 НПО COMMENT

уляковкя

мякетя;

3 5 2|110

L:=SM5M; LENlsFflLSE ;

353Ш0

LEN 1;=ONCR 11, 45 ) ;

R(- 1, 54 0 )J RIO, 535);

R(1,)4t)i

3 5 4 ш0

0(3,247);

R( 1-4, 10 0 1);

CMflK[U = lTHEN

BEGIN

117,11111

3 5 5іЦ0

3(5,322) ;

RI6, Г 1025 )END

ELSE BEGIN

R(6,10|l)|

356010

R(5,-721)ENO ; R(3,44|); 3(9,734);

357010

P»( 10 , 72 7 »;

4(23,720 ) ;

R115,7 | 3 ) S R( 1В, 4 0 9 ) ;

3 5 ѲШ0

R(19,405);

R(20, -40l)i

R()6,44));

R(17,437);

3 5 9ШЗ

я ( 11,73 0 );

4(12,723);

N(13,4)9);

Я( 2 1, 4 (,5 ) ;

3 6О11І0

4(22,1005);

Я14,-40 1) ;

Я124,44Q) i

Я(25,436)|

3 Ь 1ш0 4 ( 28,729) ;

R(2В , 7 о В) ;

R(27,70 i ) ;

R(67, | Q19);

362Ш0

R(6a, -4l5)j

IF СМЯК[21 = 1THEN R(2,)43);

363Ш0

4(34,734);

R(3*, 430 );

R(3 2,7 23) i

3(33,7)5)1

3 6 4 ШС. LENLEN:

3 6 5Ш0

СМЯК( 1) = 'THEN BEGIN

R(29,412);

R(30,705)END

366Ш0

ELSE BEGIN 4(29,709)1 R(30,4o5)sND i

ЗЬ7ійО

R(31,-40l);

R( 3 6,7 3 7 ) ;

R( 39,730 );

R(4 0,7 2 3) 1

3 Ь8.1) 0

4(41,716);

R( 4 9,4 I a ) ;

R(43,4'OB);

R(44,-701)i

3 6 9 ШС (F

7aВTHE N GOTO KONMSM;

3 7 0010

R( 3 7 , 7 3 4 ) ;

R(3 В, 4 3 0 ) ;

4(45,723) 1 4 ( 4 6,7 16 ) ;

3 7 11110 R(47,412);

4(48,408);

3(49,-701);

4(50,723)1

3 7 2 iü 0

4(51,715);

3(59,4)2);

r C5 3 , 4 о 8 ) ;

3 ( 54 ,-70 ));

12?

ПРИЛ. 2

I I Р И Л .

ПРИЛ.

П Р И Л . 2

3 7 3 Ш 0

R ( 3 3 , 7 2 3 ) |

R < 5 6 , 7 1 6 ) ;

4 ( 5 7 , 4 1 2 ) ;

4 ( 5 8 , 4 0 8 ) ;

374IU0

8 ( 3 9 * * 7

0 1 ) ;

Я ( Ь 0 , 7 2 3 ) ;

R ( 6

1 , 7 1 6

)

;

R ( 6 2 , 4

I 2 ) ;

3 7 5 Щ 0

R ( 8 3 , 4 0 8 ) ;

R (64 , - 7 О 1 ) ; R ( 6 5 , 7 0 2) ;

R ( 6 6 , - 7 l 4 ) j

3 7 6 Ш 0

K O N M S M :

3 7 7 ш

I F O M S M - S M S M < 1 2 T H E N B E G I N

F K M M ( 1 , 3 M 3 M - 1 , M s M ) ;

3 78 Л

О F O R 3 M 3 Ц 1 * 1 3 T E P l U N Г I L O M S M O O

3 7 9 Щ

чзм[ sMsM): =T 4UE

; S *4S M := I ENU

;

З В 0 Ш 0

кзмятI C O MM E N T

K O H E U

к з м я т ;

381Ш О

I F

V S M R T T H E N G O T O

C 3 7 ;

3821110

c2 s i C N S :B N Z S :=O ; G O T O

C R S T ;

3 8 3 Ш 0 C O M M E N T

А Н А Л И З В О З М О Ж Н О С Т И П Р О Д С Л Ж Е Н И Я Р А С К О Д И

3 8 4 Ц І 0

Р О В А Н И Я С И Н О П Т И Ч Е С К И Х

С О О Б Щ Е Н И Й

или

385ці0

Н Е О Б Х О Ц И М О С Т И В Ы Х О Д Я из Б Л О К А R S T ;

с2 71 IF

З в Ь Щ О

CN330THEN сNчs :=ч т ; C N S :=C N S » I ;

3 871110

CN S <3TH 'EN

B E G I N

C R S T E N D

;

3 в вщО

N T j l r N

T S * i ;

G O T O

3 8 9 Ш Q

3 9 О Ш О

39 10IU

3 92 Л О

3 9 3 Ш О

3 9 4 Ц І 0

3 9 5ц | 0

3 9 6 Ш 0

3 9 7 ш О

3 9 В ш О

3 99Ш О

4ООШ О


C28:	1_F- N z s a O T H E N			B E G I N			C 3 0 ;
	I F	C N S r - T H E N G O T O
	C N 3 : = 0 !		N T S I i C N N S ;				G O T O C 3 I;N ;
	NTS:=NZs;		R I G ; IF			SS<2; T H E N		B E G I N
C32!	ZPNi)	IJBST:=T R U E			; N T S :=N T S * I ; G O T O C J I E N D ;
	P I :=N Z S :=O ; O C ;=T R U E						; сото	сзі;
	ENO	PIB W3 (SVNOP);
S H I P I ^ F S S F 2 3 T H E N				B E G I N		C B K O R O i
	I F	C M O P > 2 T H E N			S O T O		c j 9 ;
	с м а к (-1]:=c9v ; с м а к [оj:=CGG ;
	C M A K (I ]:=I ; с м а к [4]:=cIw; смяк[s):=сз;

„смдк(6 ):=CSH ; смяк[7 ):=CDL ;

128

		И	Р И	Л	,		I
4	9п и		0	Сі7\
4 С 2 Ш 0				Сі7\
4	0	3 iü 0		С	а	р	:
4	0	4 Ш 0		с	з	о	:
4 0 5 U J 0				с	л	1 :
4	0	Ь Ш О		с о т о
4	0	Г L4 0		S T O P

П Р И /1 .	2	П Р И Л . 2	п р и л . а
V S M R T : s T R U E	; с о т о	S M R T :

		o c -			. = F f l L				s e	!
I F			O C T H t N						с о т о
О С		:	-	F	A	L S	E			;
E	N	D			«	S	T	;
V	R	5	T		;

С О Т О	C 2 5 E N U	S S 5 2 5 )
с з 2 1 с о т о		е г о ;

4	О В Ш О		S P t * Г1 2 '			, C T I ) i				•
4	0	9 l'J О	C O M M		£ N T	В Ы З О В	П Р О Г Р А М М Ы			С О Р Т И Р О В К И	М А К Е Т О В
4	1	0 U .0	L I B R A R Y ! ' 0 4 0 0 2 1 1 1 0 0 • . ' 0						0 0 0 0 3 * ,
4	U	'j 0			' 0 0 0 1 4 0 0 0 0 0 ' , ' 0 0 4 1				0	0 ' ,
4	1	2 J O			, c ? i o c o < 4 0 a '			, ‘ 0 0 0 2 0		0 ' ,
А1		3 j О			' 3 1 6 1 4 4 0 0 0 0 '			, ' 3 0 4 0	1	3 ' ,
4	1 4 jj О				' 1 3 6 П 0 0 0 0 0 И ’ , ' 3 0 4 0 0 0 ' ) ;
4	I S u O		E	N Ü	i
4 1 Ьщ О			=	ч ь
9	6	0 , В

<<< < Предыдущая 1 2 3 4 5 6 7 8 9 10 11 1213 / 1913 14 15 16 17 18 19 > Следующая >>>

Соседние файлы в папке книги из ГПНТБ