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

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

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

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

Добавлен: 23.10.2024

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

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

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

 

• .......................................

 

 

 

 

 

 

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

 

 

 

 

 

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

 

 

 

 

П А К Е Т . 00

• •

 

ПРиЛ.

2

 

 

 

 

ПРИЛ.

2

 

 

 

 

 

ПРИЛ,

2

 

ПРИЛ

337(0

 

( 2 0

Т0

F

I N

8 P U E N

D

N

0

1 * 0

;

 

 

 

 

 

 

 

 

338,3

N S G :s N S

G +

K S

G J

K S

G ; = 0 ;

 

 

 

 

 

 

 

 

 

 

 

339,0

^IF KSTHEN

ВEU 1N

OBST:=TRUE

1 NT5!»NTS*1j

RICENO

i

340,0

SCIB BUSTEN S".] ;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3

^ 1 , 0

I F

S G < G 3 G T H E N

B E G I N

 

 

 

 

 

 

 

 

 

 

 

 

3

42 , 0

 

F O R

1 := 1 s т e в

I U N T I L

S G O O

B E G I N

 

 

 

 

3 4 3 , 0

 

S I M V : = B U S T I N 3

C *

I 1

;

 

1 F

S I M V > 3

2

T H

E N

BU:=BG+i;

 

3 44 , 0

 

uti]:= s I M V E N O

 

п е

р

е н

о

с г р у

п п

ы

с

визг

в и ;

 

3 4 5 , 0

 

м з с : = N s u » s u » 1 : I F

 

S G = G D G T H E N

 

G O T O

F I N B P U ;

 

З 4 6 ' , 0

 

£ F

S G = l 7 G l n = W E Q T H E N

 

 

 

 

 

 

 

 

 

 

3 4 7 , 0

 

 

B E G I N

K T i = T R U E

 

J

G O T O

F 1N B P G E N D

;

 

 

3

4 8 , 0

 

C O M M E N T

 

О Ь Ь Е Д И Н Е Н И Е

Г Р У П П ;

 

 

 

 

 

 

 

3 4 9 , 0

 

 

C T 1 1 8 ]: = C T 1 1 8 ]♦ 1 i

 

 

 

 

 

 

 

 

 

 

3 5 с , 0

 

м 2 : I F

N S G + K S G = N S S T H E N

 

G O T O

М 2 ;

 

 

 

 

 

3 5 1 , 0

 

N p G : = N 3 u * K S U ;

S P G : = B U S T EN P U J ;

 

 

 

 

3 5 2 , 0

 

I F

S G * S P G > G C l G T H E N

G O T O

F I N B P U ;

 

 

 

 

3

5 3 , 0 .

 

F O R

I - . B l S T E P

1 U N T I L

 

3 P U 0 0

B E G I N

 

 

 

3 5

4

, 0

3

5

5

, р

3

5

ь

, о

3 5

7

,

0

3 5 В

,

0

3 5

9

, 0

3

8 0 , 0

3

6

1

, о

3

6 2

, 0

3

6

3 , 0

3 6 4

,

(I

 

5 I M V ; = 8 U S T l N P U + I J; I F

 

S I M V > 3 2 T H £ N

3 G ! = B G + l i

 

G [ S G + I ]; s 5 l M V E N D

I

;

 

 

 

 

S C : = S G + S P C J

K S C := K S G * 5 P G * 1 ; G O T O

4 2 ;

 

E N O

5 G

< G O

G ;

 

 

 

 

 

 

 

C O M M E N T

И С П

Р А В Л Е Н И Е

Д Л И Н Н О Й

Г Р У П П Ы

( S G > G 0 C ) ;

 

 

C T

1 19]:= с

т I [ 9 )+ 1 ;

N c

u s K

s c

+ i ;

 

 

I F

U O G = 5 T H E N

B E G I N

 

I F

S G = 6 T H E N

B E G I N K G 1 1 = N S G + 6 |

 

C O M M E N T

И С К Л Ю Ч Е Н И Е Л И Ш Н Е Г О

СИМВОЛА В ГРУППЕ

( К Р А Й Н Е Г О )

I L S ;


п р и л . г

 

 

ПРИЛ.

г

 

 

 

ПРИЛ.

2

 

 

п р и л . г

з & 5 I о

м 3 і $ і м ѵ : C B U S T [ K G 1 J ;

I F

s i M V = w E Q * s t M v - 3 2 = w E a T H E N

З Ь Ь , 0

 

 

B E G I N K T : = T R U E

i G O T O M / E N D

;

 

 

3 f t 7 , 0

 

5 1 I = T T N ( B U S T , N G 1 , 1 ) < ■

;

S N : = T T N ( B U S T , K C 1 , 1 ) < 0 I

3 f t B , U

 

I F

S 1 « S N » 7 S 1 « 7 S N T H E N

G O T O F I N O D C ;

 

 

3 f t 9 , j

 

I P S 1 T H E N

N G 1 ; = N G 1 ♦ 1 E U S E M A ;

K G C = K S 1 . t |

3 F 0 , 0

I F

G O T O F I N o O G c N O

I L S !

 

 

 

 

 

 

 

3 F 1 , 0

S G = | o T H E N

B E G I N

 

 

 

K G 2 : = N S G * 1 9 ;

 

 

3 F 2 . 0

M b ;

 

K c i ; = N S C * S i

 

N G 2 : = N S G * 6 i

 

 

3 F 3 , 0

I F

G O T O F I N O O G E N O

J

 

 

 

 

 

 

 

 

3 F A , 0

5 G c 1 I T H E N

B E G I N

N G 2 : = N S G + 7 i K G 2 : = N S G * l l i

 

 

3 F 5 , 0

M F •

К С 1 : c N S G « S I

 

 

3 F 6 j 0

I F

G O T O F I N O O G E N O

;

 

 

 

 

 

 

 

 

3 F F , 0

S G = 1 5 T H E N B E G I N

 

 

 

 

 

 

M 6 E N D

;

 

3 F B , o

 

N G 3 : = N S G * U ;

K G 3 : = N S C M S {

G O T O

 

3 7 9 , и

I F S G M 6 T H E N

B E G I N

 

 

 

 

I : = м з с : + f e ;

 

 

3 3 0 ) 0

 

N G 3 : = N S G » I 2 ;

к о з : = м 5 с * і ь ;

 

M F E N Q J

3 8 1 . 0

 

I F

T T N ( B U S T , I , I ) » 0 T H E N

G O T O

M f t E L S E G O T O

3 3 2 . 0

I F S G * 1 7 T H E N B E G I N

 

 

 

 

 

 

 

;

 

3 8 3 . 0

 

N ; 3 • S N S G * 1 3 ;

K G S : = N S C * 1 7 ;

G O T O

M F E N D

 

3 В A , 0

G O T O M 1 0 E N Ü

G D G = S ;

 

 

 

 

 

 

 

 

 

3 8 5 . 0

I F G 0 G = 3 T H E N

B E G I N

 

K G I : = N S G * A ;

 

 

 

;

 

3 5 6 . 0

I F S G X A T H E N

B E G I N

G O T O

M J E N O

 

3 8 7 . 0

—.4.I F S G = 8 T H E NB EGI——N K G i : s N 3 G * 3 ;

 

F I N O O G E N O

;

з в ѳ . о

I F

N G 2 : = N S C * A ;

K G 2 ‘. 3 N S G * B ;

G O T O

3 8 9 , 0

S G » 9 T H E N

B E G I N

K U ' , : = N S G + 3 ;

 

F I N 0 D G E N 0

J

3 9 0 . 0

 

N G 2 ; = N S G * 5 i

K G 2 ! = N S G * 9 ;

G O T O

3 9 1 . 0

G O T O M 1 0 E N 0

G o G = 3 )

 

 

 

 

 

 

 

 

 

3 9 2 . 0

I F G D G X 2 T H E N B E G I N

S E V E N ;

 

 

 

 

 

 

 

92


 

 

п р и л .

2

 

 

 

 

п р , і л .

г

 

 

П Р И Л

 

пга

к е т . о о

ПРИЛ I

 

 

 

 

 

 

 

 

 

 

 

 

3 9 3 , 0

 

I E

 

S G = 7 T H E N

B E G I N

K - 4 E V £ = N 3 e * 2 i

 

 

 

 

394.0

 

 

 

N G 2:=N S G »B ; K G 2:=N S C »7;

G O T O F I N O O G E N O

:

3 9 5 . 0

 

I F

 

S G = 8 T H E N

B E G I N

K f f U ' = N S C ♦ 2 ;

 

 

 

 

396.0

 

 

 

N G 2:=N S G +<;

K G ?:=,N 5G +8 J

G O T O F I N O O G E N O

;

3 9 7 . 0

G O T O

W I C E M U

G D G = 2 ;

 

 

 

 

 

 

 

 

3 9 8 . 0

^ F

G 0 G = 4 T H E N

B E G I N

 

 

 

 

 

 

 

 

 

3 9 9 , 0

 

I F

 

S G = 9 T H £ N

6 E G £ N

K G 1 : : = N 5 G * 4 ;

 

 

 

 

400.0

 

 

 

N G 2:=N S G *5;

K G 2:=N S G *9;

G O T O F I N O O G E N O

;

4 0 1 . 0

 

I F

 

S S = 1 0 T H E N

B E G I N K G l , : = N S G * « i

 

 

 

 

4 0 2 . 0

 

 

 

N 5 2 : = N S G » 6 i

K G 2 : = N S G * 1 0 ;

G O T O

F I N O O G E N O

i

4 r 3 , о

E N U

 

 

G O G = < ;

 

 

 

 

 

 

 

 

 

 

 

4 0 4 , 0

M i o :

 

I F

 

S G < 7 T H E N

B E G U N K G 1 : = N S G * S G J

 

 

4 0 5 . 0

 

F I N O O G ;

 

O T S I N : = F A L 5 E

i G O T O

M 1 1 E N D ;

 

4116.0

 

IF

SGF12THEN

B E U N

 

 

 

 

 

 

 

 

407.0

 

 

 

N-.3:=N3G»i;

K G S :=N S G *5E N O

;

 

 

 

40B,o

 

K G I :=N S G *5;

N G2:=N I G » T ; ксг:«ксі;

O T S 1N :*T R U E I

409.0

N11:

 

NSG :*N3€*SG* 1;

gffi'Tg' M 1;

 

 

 

 

410.0

F I N B P G :

 

J^F

N S G =N S S '!N C I* O T H E N

 

 

 

 

411,0

 

M 12:

 

K S :=T «U E

:

 

 

 

 

 

 

 

 

4 1 2 . 0

F O H

 

I - S S G » 1 S T E »

1 U N T I L

6 D 0

G ( I ) : = W 3 L :

 

 

4

U

, O

E N

U B

 

P G

;

 

 

 

 

 

 

 

 

 

 

 

 

4

1 4

. 0

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

4 1 5 , C

P R O C E D U R E

2 P N 1 ;

 

 

 

 

 

 

 

 

 

 

416.0

С о

ч ч

-

' Т

Г І К Р Е Ч О С

Н Е О П О

З Н А Н Н О Й

С Т Р О К И

С

B U S T

 

4 1 7 , : ,

 

. )

ч . С С И В

P N I С

П О Б А Й Т Н Ы М

Р А З М Е Щ Е Н И Е М ;

 

4 1 8 , -

в е - . м

 

O W N

I N T E G E R

N R , R E G ;

 

 

 

 

 

 

4 1 9 . 0

I N T E G E R

J , P S , S I , S I M , S S , G S , S G ;

 

 

 

 

 

4 2 0 , 0

О N N

B O O L E A N

P N t l l

 

 

 

 

 

 

 

 

 


п р и л , г

п р и л . г

п р и л . г

П Р И Л . 2

« Л , О

B O O L E A N

Р С Р , S 1 Р , R £ G P , S P A C E P і

 

 

 

 

4 2 2 , 0

С И [ J ) : = C T l І З І + 1 І

 

 

 

 

 

i

 

 

 

< 2 3 , 0

Р С Р 1 = S 1 Р I a R E G P : = 5 Р А С Е Р ; = F A L S E

P N I I : = T R U E E N D J

< 2 4 , 0

I t

S P N l s l T H E N

 

B E G I N

N R ; a 4 4 ;

R E C : = o ;

< 2 5 , O J : = f l S T B [ N T s ] i

 

S S : = B U S T [ J ] ;

 

G S : = B U S T l a 1 ;

 

4 2 6 . 0

P s : = B u s T l j * 3 ] * i ;

 

 

 

' D O

B E G I N

 

 

 

4 2 7 . 0

F O R

 

5 I : = P S S T E P

- 1 U N T 1 L

B I ;

E N D

 

4 2 8 . 0

л з :

 

P C P ; = T R U E

U

;

S I M : = W N L ;

G O T O

Z S P ;

J

4 2 9 , 0

 

S G i a B

u s

T

j ;

о := 0

*I; яг: s i : = B U

5 T [ 0 1 ;

 

4 3 0 , a

I F

S I > 3 2 T H C N

 

B E G I N

s i : = s i - 3 j ;

 

 

 

 

4 з Г , о

i f

 

R E G * * L R T H E N

B E G I N

R E G : = W U R ;

в 2 :

 

 

4 3 2 , o

я 1 : R E G P : K T R U E

 

;

S I M : = R E G ;

G O T O

Z S P ;

E N D

J

4 3 3 . 0

 

 

G O T O R E N D

 

Г

 

f l ;

 

 

 

 

 

 

 

4 3 4 . 0

I F R E G = W D R T H E N

G O T O

 

 

 

 

 

 

 

' 4 3 5 , 0 R E G ; = W D R I

G O T O

Я 1 ;

 

 

G O T O Z S P ;

 

 

 

4 3 6 . 0

я ;

S I P : = T R U E

 

;

S I M : = S I ;

 

 

 

4 5 7 . 0

вз:

 

0 : =

j + i

;

S

G

: =

S G -

I ;

 

 

 

 

 

 

 

 

< 3 8 , 0

I^F

5 G X 0 T H E N

G O T O

A 2

;

 

 

 

 

Z B P ;

8 4 :

G S : = G S - I ;

4 3 9 . 0

S P A C E P : = T R U E

 

;

S I M : = N S P ;

G O T O

4 4 0 . 0

I F

G S ü O T H E N G O T O A 3 ;

 

 

 

 

 

 

 

 

4 4 1 . 0

P N I [ 5 Р N I ] I = P N I 1 ;

 

B E G I N

С T I Г 2 ] : = C T I J 2 I * S P N I ;

4 4 2 , 0

I F

O P N I - 1 5 < S P N 1 T H E N

4 4 3 , 0

 

 

O U T I N F ( P N I , S P N I ) J

 

 

 

R E G : = O E N D

;

 

4 4 4 . 0 P N I I : = T R U E

 

;

N R : = 4 4 ;

S P N I : = I ;

 

4 4 5 , 0

Z S P ;

G O T O

F I N ;

 

B E G I N

 

 

 

 

 

 

 

4 4 6 . 0

I F

N R < 2 T H E N

 

 

i

 

 

 

 

4 4 7 , 0 P N I [ 5 P N I 1 : = P N l 1 J

P N l l J s T R U E

 

 

 

 

4 4 в , o

 

 

N R : = < 4 ;

S P N I : = S P N I и E N D

;

 

 

 

 

94


1 U N г I L
I U N T I L
1 и N T u .
i

 

 

 

 

 

П р И Л . 2

 

 

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

 

• • • • • <

 

П Р И л . 2

 

 

 

п р и л .

г

 

п р и л . а

< 4 9 , 0

P N И : = P N И * D N O B ( S I M , N R ) ; N R I a N R - b J

 

 

 

4 5 0 , 0

I p S I P T 4 E N B E G I N S 1 P ; = F A L S E ;

G O T O В J E N 0 •

 

 

4 5 1 . 0

_[F O C P T H E N B E G I N P C P : = F f l L S e

;

G O T O B I E N D i

 

 

4 52

, 0

I F S P A C E P T H E N

BEGj ^ N

s P AC E P : = F A L SE ;

G O T O В A E NO

!

45 3 , 0

I F H E C P T H F N D E * I N R E C P ; = F A L S E i G O T O В 2 E N Q

J

 

45 4 , 0 F I N :

E N D

Z P N 1 •

 

 

 

 

 

 

4 55

, 0

 

 

 

 

 

 

 

 

 

4 5 5 . 0

C O M 4 E N T Н А Ч А Л Ь Н Ы Е П Р И С В А И В А Н И Я ;

 

 

 

4 5 7

, (J F OR NP : a 1 S T E P

1 U N I I L

1 6 0 0

 

 

 

 

 

4 5 8 , 0

 

F O R

a s : = 1 S T E P 1 U N T I U 5 0 0

J

 

 

 

 

< 5 9

, П

K MMI

4 P , B S ] ;

= 0 ;

s K H w : = o

 

 

 

 

<6( ,

, 0

F O R r j p ; = 1 5 r E p

t U N t l U

OMAMOO

H A M t N p ) : = о ;

 

 

4 6 1 , 0

4 6 2 , Q

4 6 5 , P

4 6 4 , 0

46 5 , П

4 6 b ,

46 7 , n

< 6 8 , Q

*6 9 , :

*7 . , ( l

< 7 1 , 0

< 7 * , '

<7 . S , .

4 7 4 , 0

<7 5 , C

<7 6 , 0

F O и 4 P

; = 1 S T E P

F O R

J P

; = 1 5 T E P

F O R

j p : = 1 S T E P

P E R v j p я ; = T R U c

 

 

w A

:

-

5 t ;

*'.■);=5 3 |

« в

:

= э l

;

r t K J s b ?

 

4~ '

=

4 1

;

‘’•L

:

-

4 1 ;

w o

: = ь n ;

и и ;

г о

9 ;

•■ 'E

;

=

< F

;

•*' 6’

:

=

J

ь

!

rte

: =

э <

;

г

;

=

j

ь

;

vt G

:

 

 

 

л p

: = 4 5 ;

< H

; = i ? ;

 

" c : = o i

 

;

 

: = < 4 ;

• о

:

=

4 2 ;

O H S MDO M s « [ NP ) ;

s j ;

D P N I D O P N I [ N P ] :

= 3 ;

7 0 0 0 C T I [ N P ] ; = 0 ;

 

^ s

:

- 5 2 ;

г

:

= з з

;

« j

:

= ь о

;

n v ; = 4 7;

N : = 5 7 ;

w X : = 5 s :

" ч; = 5 3 ;

"•l: = 4 9 ;

w 1:

= 2 9 ;

н е м : = 2 ;

ь 2 :

= 2 5 ;

W N L : = 3 ;

w j :

= 1 6 ;

W L P : = з 1 ;

w < ;

= 1 о ;

W O H : = 2 7 ;

W 5 :

= I ;

w S о : = 4 ;

w 6 : = 2 1 ;

и p о : = 7 ;

vs 7: = 2 0 ;

w c o : = 6 ;

W B : = 1 2 ;

w E Q : = |5 ;

■ > о : = 1 3 ; w 9 ; = з ; W S L : = 2 3 ;

с

г г' 11

0 ]

: = i-.o ;

о т T N [ 1 J: =oii 1

c T T N t a i

: = w a ;

с т т м ( з )

с

г T * ң

* )

: = 1-, 4 ;

C T T N ( S ] : = r f i ;

C T T N ( 6 )

: = W 6 ;

C T T N [ 7 )

C T Г M t г ]

; = V, В ;

с T г N [ 9 ] ; = ы c 1

 

 

 

95