Файл: Кастин, О. М. Система первичной обработки метеорологической информации.pdf

Скачать файл
Заказать решение

ВУЗ: Не указан

Категория: Не указан

Дисциплина: Не указана

Добавлен: 23.10.2024

Просмотров: 95

Скачиваний: 0

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.

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

 

 

 

 

* .......................................................

 

і

 

• • • • • • • « » П А К Е Т . 0 0

• • • • •

П Р И Л . 2

 

 

 

П Р | Л .

 

 

 

П Р и Л ,

2

П Р і Л . 2

 

 

 

 

 

 

 

 

7 2 9 . 0

С О Т О E N O U R E N ü

C H I N A ;

 

Д м [ A S T M , 3 ] 1 = Т Т N ( В , 4 , 2 ) i

 

7 3 0 , 0

A M t A S T M , 2 ] : = T T N ( 8 , l , J ) ;

 

7 3 1 . 0

I F 7 A B B V T H E N

B E G I N

 

 

 

A M [ A S T M , 5 ] ; 3 T T N < C , 3 , 3 ) £ N D

7 3 2 , 0

A 4 [ A S T M , 4 ) ; s T T N ( C , i , a ) ;

7 3 3 , 0

E N O U R :

E N O

и й ;

 

 

 

 

 

 

 

 

 

 

7 3 4 , 0

C O M M E N T

П О И С К З А Г О Л О В К А Д З Р О Л О Г И Ч Е С К О Г О С О О Б Щ Е Н И Я ;

7 3 5 , 0

р z т :

а у 9 : = а с с ; т А і о : = і і і

 

 

 

 

 

 

 

7 3 6 , О

с т I ( г о ) : = с т 11 2 и ) ♦ 1 ;

 

;

 

R i c ;

 

 

 

7 3 7 , 0

 

A B 1 с : = д а в 9 ; = K A L S E

 

 

 

 

7 3 8 , 0

 

F O R

A S Г . ч :

1 , О О О

 

A M [ A S T M , T ) 1 з 0 i

 

7 3 9 . 0

 

F O R

T : = 4 , 2 , 3 , 4 , 5 D O

 

7*0,0

 

F O R

A S T M ; B

| S T E P

1 U N T I L

| | 0 0

] :

= 1 oooooo;

 

7 4 1 . 0

A P 2 ;

F O R

T : = 1 , 2 , 3 ,

4 ,

5 0 0

A

M I A S T M , T

 

7 4 2 , 0

B P C ( 5 ) ;

I F S G F 5 T H E N

 

 

 

 

 

 

7 4 3 . 0

 

B E C l N

I F

K S T H E N

G O T O A N L Z S ;

 

 

 

7 4 4 , 0

А Р З :

к s G : = o ;

G O T O

A P 2 E N O

;

 

т : = 0 ;

 

 

 

7 4 5 , 0

I F

K S T H E N

G O T O

A N L Z S ;

 

А У У І з О Д Ѵ ;

 

7 4 6 , 0

 

I F

G [ 1 j = W 5 - » T = 0 T H E N B E G I N

 

7 4 7 , 0

 

A G G : = T I M E ;

G O T O

A S S E N Q

;

 

 

 

7 4 8 , 0

 

A V 9 ! = T T N ( G , I , 2 ) ;

A G G ; = T T N I G , 3 , 2 ) ;

 

749 ,0

A S S ;

л 1 0 : =

c ( s

] ;

 

 

B P

G < 5 ) ;

 

 

 

 

 

7 5 0 , 0

I F

S G 3 5 T H E N

G O T O

A P 7 ;

 

 

 

 

 

7 5 1 . 0

C O v f M E N T П О И С К В С Л О В А Р Е ;

 

 

 

 

 

 

7 5 2 , О С Т І I 2 П ; 5 С Т 1 1 2 1 1 7 1 ;

A N R < 0 T H E N

G O T O

N O ;

 

7 5 3 . 0

A N R I = T T N ( G , 4 , 2 ) ;

I F

 

7 5 4 , 0

A N C i S : = T T N ( G , 1 , 3 ) ;

I F

A N O S < O T H E N G O T O

N O ;

 

7 5 5 . 0

A 8 i : = B K A T [ A N R J I

A K L G ; = V N O R ( A B

, 2 4 , 9 ) ;

 

 

7 5 6 . 0

I F A K U G = O T H E N

G O T O N o ;

 

 

 

 

 

 

 

ПРИЛ,

2

 

 

 

ПРИЛ, 2

 

 

ПРИЛ.

 

ПРИЛ,

2

7 5 7 , 0

A N 5 R : * V N 0 R ( A B ) , 4 2 , 6 л - Д Р 5 6 ! » V N O R ( 4 6 1 , 1 6 , 1 2 ) !

 

7 5 6 , 0

A K P N S ’. S V N O R ( Л В і , 1 5 , 1 5 ) J

 

 

 

 

 

 

 

7 5 9 , 0

F O R

U a O S T E P

l U N T u

A K L G - 1 0 0

 

 

 

 

 

7 6 0 , 0

B E 5 | N

Я В З : = Я 5 Р ) ( « P S S + I ) ;

 

 

 

 

 

|

 

7 6 1 , 0 £ F

A N O S B V N O R ( A B 3 , A N 5 R , 1 0 ( T H E N G O T O F S M E N O

 

7 6 2 , o

G O T O

N O )

F S M : I : * A K P N S * I ♦ I I

 

 

 

 

A M [ 0 , 3 J i » l

7 6 5 , 0

A M t 0 , 1 ] ! * T T N ( C , 1 , 2 ) I

A M I 0 , 1 ) : « T T N ( G , 3 , 5 ) !

7 6 4 , 0

N 0 1

 

 

 

 

 

 

 

 

 

н а й д е н ;

 

 

 

7 6 5 , 0

C O M M E N T Н О М Е Р с т а н ц и и

н е

 

 

 

7 6 6 , 0

I F

А М [ 0 , 5 J a O T H E N

С О Т О

Д Р 7 ;

С О Л О

А Ѵ М !

 

 

 

7 6 7 , 0

л р * |

т : » т * і ;

I F

т < з т н е н

с о т о

д р з і

 

 

 

7 6 6 , 0

Я р 7 :

R I G )

I C E : = 1 ;

с о т о

р о к ;

B E G M I I C E j a O ;

 

 

7 6 9 , 0

U

С ( I ) I W 9 7 G ( 2 ) = W 9 T H E N

 

 

7 7 0 , 0

 

 

F O R

I : = i , 2 , 3 , 4 , 5 0 0

A B S H l I ] ; а С [ 1 ) ;

 

 

7 7 1 , 0

 

 

с о т о

P D E N D

;

K S C : = O ;

с о т о

A P 6 ;

 

 

 

7 7 2 ,0 C O M M E N T

п о и с к к о о р д и н а т ;

 

 

 

 

 

 

 

7 7 3 , o

р о к ;

в р с ( 5 ) ;

а у ѵ : = T T N U , i , 2 ) ;

 

 

 

 

7 7 4 , 0

 

 

A G C : * T T N ( G , 3 , 2 ) ;

A i o : = T T N ( c , 5 , 1 ) ;

 

 

7 7 5 , 0

 

 

B P G ( 5 ) ;

I F

S G = 5 » 7 K S T H E N

B E G I N

G O T O

P D E N O ;

7 7 6 , 0

 

 

F O R

 

I : = 1 , 2 , 3 , 4 , 5 0 0 A B S H [ I ] : = G [ I Ц

7 7 7 , 0

P o :

 

I F

« 5 T H E N

G O T O

A L i K S C l r ' . i

G O T O

P O K J

 

 

7 7 6 , o

 

T : = o ;

 

 

 

 

 

 

 

 

 

 

 

 

7 7 9 , 0

 

C T l ( 2 a i ; s C T l [ 2 2 ] + i ;

 

 

 

B E G I N

 

 

 

7 6 0 , 0

P О 1 :

B P G ( 5 ) ;

I F

S G = 5 * 7 K S T H E N

С О Т О A K 1 E N O

;

7 6 1 , 0

 

 

F O R

 

1 : = 1 , 2 , 3 , 4 , 5 0 3 A B D I I ) : = G [ I ) ;

7 8 2 , 0

A K l :

I F

K s T H E N G O T O

A L i K 5 G : = 0 l

G O T O

P O 1 i

 

 

7 а з , 0

B P G ( 5 ) ;

I F

S G = 5 T H c N . Ü E C I N

 

 

P 0 2 E N 0

;

7 6 4 , U

 

 

F O R .

I : = 1 , 2 , 3 , 4 , 5 0 0

A B K C ( I ) : = C [ I ] ; G O T O

IÜb

П Р И Л . 2

• * • » • • • • • • • • • • • • • • • • • • п н к е т .

о о

 

П Р ‘1 Л . 2

П Р И Л . 2

П Р И ! )

7 В 5 , 0

7 8 6

, Г

7 8 7 , ( 1

7 8 8

, 0

7 8 9

, 0

7 9 0

, 0

7 9 1 , 0

7 9 2

, 0

7 9 0

, 0

7 9 ^ , 0

7 9 5 , 0

7 9 Ь

, 0

7 9 7 , 0

7 9 8

, г

7 9 9

, 1

9 " 0

, 0

•Sr1

,

0

9 Р 2

,

0

9 ' 3

,

С

З Н <

,

0

9 " Ь

,

С

1 ' Ь, 0

3 0 7 , 1

9 011 , 0

9 * 9 , 0

3 \и , 0

9 1 1 , *

3 1 2 ,

“ 0 2 :

I F K s T H t N

с о т о

л и ;

к з с : = о ;

с о т о

я к і ;

N я в ;

I F

 

1 с е = о т я а к о ( 1 ) = w 9 « я в к і ; t г ] = W 9 T H E N

с о т о

Я 5 н : = т т м ( д в 5 н , з , і ) « з б ;

л о : = т т ^ ( я в о , 2 , 2 ) ;

 

 

я к к : = т т ч ( д в к о , і , 3 ) і

A B S K I I T R U E

:

 

 

 

я ѵ к : = д з ч - д о * З б ;

B E G I N

 

Q : = 1 ;

С о т о

я ' К 2 Е Т І 0

;

 

I F

f l V K = f l « K T H E N

 

 

Д Ѵ К : = Д Ѵ К + 2 9 9 ;

B E G I N

 

о : = з ;

с о т о

A K 2 E N O

;

 

I F

o v K s o K K T H E N

 

 

n V K : : B S 9 * e U ‘ l J

B E ; I N

 

Q : = 7 ;

 

Д К ? E N о

;

 

I F

O V K = O K K T 4 E N

 

G O T O

 

A V K I I A V - < ' 2 9 1 ;

a E c i N

 

а : = 5 ;

с о т о

я к ** £ N j

;

 

I F

а ѵ к = д к к т н ь м

 

 

я а э к : = F O L S E

і

 

 

 

 

 

 

 

 

 

 

Д < 2 :

Я В S E : = f l s 5 Н 1 < ) = Д В К С [ < ) І Я В О t *) = я а к с [ 5 1 ;

 

 

 

I F O E S K T H E M В Е Н Ы

Д Ѵ М К ;

 

 

 

 

 

 

 

I f

Л Ч 5 £ Т н Е М З о ю

 

 

с о т о

д к з ;

 

 

5 H I 9 :

I F f l d S H t l l * I T 9 * a a S H ( 2 ] * ' - 9 9 T H E N

( • ■ и :

T : = г T . j { я в и , 1 , 1 ) ;

1 : = 3 i ;

С О Т О f l V M K E N O

1

Я К J :

If - Д 8 5 £ Т ч £ м

S O T o

3 H 9 9 ;

 

 

 

 

 

r : = T * i ;

I F

 

T r 2 T h E N

С О Т О Я L :

 

 

 

 

 

9 V V : = : T T 9 ( J B S H , 1 , 2 ) ;

f l c c : = T T N ( A b S H , 3 t 2 ) ;

 

 

 

д I J : = т r N ( Д В Ö H , 5 , I ) ;

 

 

B E S I N

 

 

 

 

n ; : r . i |

F O R

i : - i , 2 , 3 , 4 , s o o

 

 

Д L :

 

я 5 3 − 1 1 ] : = я а о [ 1 ] ;

л в о і 1 1 : = я в к в і 1 1 E N Q ; s о т о д к

 

s i r e

aч L LS ;

я м і о , 2 ) : = т т ы ( д в з н , з , з ) ;

 

 

a v

 

 

1 ■ ), l ) : = r i ;

 

 

 

 

cv[ * , я

: = т T N ( д а о , p , 4 ) ;

я м ( - 1 . г 1 : = 1 ;

 

 

 

| r

7 | l s l 7 Q = 3 " Q = 5 * a = 7 ) T 4 E N

с о т о

я и ;

 

 

п р и Я . 1

п р и л . з

п р и л . ?

П Р И Л , ■}

8 1 3 . 0

I F

Я о | ( 0

, 2 ) < 0 * Я Ч [ 0

,

2 1 > 9 0 O T H E N

8 1 4 . 0

I F

Я м і 0

, 3 ) < 0 * Д Ч [ 0

,

Л ) > 1 8 0 0 T H E N

« 1 5 , 0

C T I I J 3 ) : = C T I ( г л 1 * 1 ;

 

 

С О Т О

л и 5

С О Т О

« L I

в і б , о

я ѵ м :

A S T M : = 0 1

 

 

 

 

 

 

 

 

* IT , о

 

яміо, 4 ] і =яуѵ ;

ям t

, 5 ]: = д сс ;

 

8 1 8 ( 0 C O M M E N T

 

П О И С К П Е Р В О Г О У Р О В Н Я ;

 

 

в і 9 р о

я р і и :

 

р з : = 0 і

 

B E G I N

 

 

 

 

 

8 2 0 , 0 F OR T ' . e O , 1 , 2 , 3 0 0

 

 

 

 

 

8 2 1 . 0

! [F I * 3 1 T H E N

B E C I N

I : = O i G O T O T O E N O i

8 2 2 . 0

 

I F

K S S T X O T H E H

С О Т О

A N L Z 5 ;

 

 

8 2 3 . 0

 

В Р С Т І

I F

A B K T T H E N

G O T O

Я к Т Р і и ;

8 2 4 . 0

SOTO

Q 2 t T

♦ 1 ]

;

 

 

 

 

 

 

 

f l N U ; * 0 J

8 2 5 , ' 0' t « 1 ' 1 Г

C l 1 ) Ь « 9 9 С Г 2 I b H O T H E N - B E C H

8 2 6 ' , 0

R E :

f l B « C : = T R U E

i G O T O

P O U E N D

;

8 2 7 . 0

 

I F

G l 1 J 3 r t 7 - 2 C t 2 ) 3 H 0 T H E N

B E G I N

A N U I a O i

8 2 8 , .

 

Rt:

Я В Я С : » F

4 L S E

;

G O T O

P O U E N O

;

8 2 9 , и

 

I F

С l 1 J = r t 1 > G [ 2 J a W O T H E N

 

B E G I N

 

в з о , о

 

A S T H : B A N U : : I ;

с о т о

R E E N D

;

 

8 3 1 , и

 

I F

G l 1 ) n i 4 4 T G 1 2 J a W o T H E N

B E C i N

с о т о т і ;

в 3 2 , о

т г :

A S T M : B A N U : * s ;

с о т о

R E E N D

;

в з з , о

I F

c l i ] = w 3 t c t 2 l = w o T H E N

B E C I N

я я и м і г ) ;

8 3 4 . 0

T 4 !

R N U : * 1 J

G O T O

R I E N Q

; G O T O

T i ;

•

8 3 5 . 0

T 3 :

l^F

C l

1 J r W O l G

1 2 ) = V t O T H E N

B E C i N

8 3 6 . 0

 

д я и м ( 3 ) 1

f l N U l a l ;

G O T O

R E E N D

i

8 3 7 . 0

 

1? C l 1 ] S W 5 - 8 C 1 2 ] 3 W 0 T H E N

8 E U N

T I !

8 3 8 . 0

T z :

f l R l J M l 3 ) l

С О Т О

T 4 E N O

i

С О Т О

8 3 9 . 0

I _ F C l 1 J « N 8 7 C 1 2 1 = W 5 T H E N

B E G I N N

 

8 4 0 . 0

 

Я 5 Т м : B f l N U ! * 2 ;

G O T O

R E E N D

;

 

108

 

 

 

. ............... ........... п а к е т •о о

• •••«

П Р И Л .

2

П Р . І Л .

2

П Р И Л . 2

П Р И Л . 2

3 * 1 , 0

т 1 : FOR

ля 1 := 1 ,у ,з , * , 5 0 0

д я р [т,ляі):=зіл я п і

 

8 * 2 , 0

END

Г -

ЯРіи; сото

ANLZS)

 

 

8 * 3 , 0

C O M M E N T

П О И С К О Ч Е Р Е Д Н О Г О У Р О В Н Я J

 

8 4 * , О

оо и :т:=о і с п 1 2 *):=ct 1 12 *]* i;

 

3 * 5 , 0

 

A B P U N R P : = A B O P U : = A B O V : = A B I U R : = F A L S E i

 

8 * 6 , О

 

1 F 7 A 8 A C T H E N

B E C l N

 

 

8 * 7 , 0

 

 

A N I j ; = A N U * 1 I ) G O T O ' A Ö Z V E N O !

 

В * 8 , п

I F A N U S 0 T H E N A B 1 U R ! = T R U E

8 * 8 , 0

f l a Z V ; C 0 M M E N T У Р О В Е Н Ь С В Е Т Р О М

і

И Л И 6 Е З В Е Т Р А )

8 5 и , О

I F A B B V T H E N B E G I N

3 5 1 . 0

8 5 2

,

г

8 5 3 . 0

8 5 *

,

■>

8 5 5

, 0

8 5 6

,

О

8 5 7

, 0

8 5 8

,

О

A . ; v u 2 i A G V U : = 2 ) G O T O A P O E N O i

I F

A B O V T H E N G O T O A G V U 2 )

 

I F

7 ( A B 1 U R « A B A C ) T H E N B E G I N

 

I F

A I Ü = W S L T H E N G O T O A C V U 2 i

 

I F

A ! D = T V 1 D [ A N U ) T H E N

A B O V I s T A U E

E N D E L S E A B 1 U R I = F A L S E

i A G V U I s S )

A P J I A K G P P R I r A G V U )

A P U R::A B L G :=A B I U V ;=A B P U J I :=F A L S E t

8 5 9 , 0

C O M M E N T

з а н е с е н и е

групп в ARP и р а с ш и ф р о в к а в м д к е Т)

3 6 0 , 0

P M C E I I F

T j t A G V U T H E N

B E G I N

8 6 1 , 0

8 6 2 , 0

3 6 5 . 0

8 6 6 , с

8 6 5 , 0

8 6 6 , 0

86 7 , 0

Z N R P ; FOR

A A I :=ISTEP

IU NT IL

SDO

 

<|RP t T

, А Й

1 J : = G [

A R

1 ] ;

A T N

U t T j I s A

N U )

T : = T » 1 ; B P G T J

 

 

 

 

 

I F A B K T T H E N

G O T O E N O 1 E L S E G O T O P M C E E N O )

I F C f i O P U T H E N B E G I N

A 6 P U N R Р I = T R U E

I

К A R L ’ M :

A R U M I A G V U ) ;

 

 

P S K ;

 

I F

B I P U N R P T H E N

G O T O

 

8 6 8 . 0 C O M M E N T

С Л В И Г Г Р У П П В Д Я Р )

109

Смотрите также файлы