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

8 5 . 0

B U S T - Б У Ф Е Р О Б Р А Б А Т Ы В А Е М Ы Х С Т Р О К ,

8 6 . 0

Д J Т В -

Т . Д Б Л И Ц Д А Д Р Е С О В С Т Р О К Н Д B U S T ,

К О Д Е ,

8 7 . 0

С Т Т К І - Т А Б Л И Ц А Ц И Ф Р 0 - 9 В Т Е Л Е Г Р А Ф Н О М

8 8 . 0

T u

- Т А Б Л И Ц А О П О З Н А В А Т Е Л Ь Н Ы Х Ц И Ф Р У Р О В Н Е Й ,

8 9 . 0

С В С Д Т - К Д Т Д Д О Г С Л О В А Р Я С И Н О П Т И Ч Е С К И Х С Т А Н Ц И Й ,

9 0 . 0

C S P I - С П И С О К С Л О В А Р Я С И Н О П Т И Ч Е С К И Х С Т А Н Ц И Й ,

9 1 . 0

T N P S - Т А Б Л И Ц Д С Л О В А Р Я С И Н О П Т И Ч Е С К И Х С Т А Н Ц И Й ,

9 2 . 0

Т ѵ і а - Т Д Б Л И Ц А

З Н А Ч Е Н И Й

У К А З А Т Е Л Я В Е Т Р А ,

9 3 . 0

В К А Т - К Я Т Д Л О Г С Л О В А Р Я А Э Р О Л О Г И Ч Е С К И Х С Т А Н Ц И Й ,

9 4 , 0

A S P 1 - С П И С О К С Л О В А Р Я

А Э Р О Л О Г И Ч Е С К И Х с т а н ц и й ;

9 5 . 0

P R O C E D U R E

O U T l N F ( A , B ) ;

V A L U E

B i

9 6 . 0

9 7 . 0

B O O L E A N

A R R A V ' A ;

I N T E G E R

В ; B E G I N

9 8 . 0

B O O L E A N

A R R A V

B U P ( I : 6 I 6 } ;

S P I * 7 o 6 • , A , в , B U P ) E N D ;

9 9 . 0

O U T B U F I B U F . K S N B I ;

1 0 0 . 0 P R O C E D U R E

K S N B ;

1 0 1 . 0

V A L U E

K S N B ; B O O L E A N

а я й д у

B U F ; I N T E G E R

1 0 2 . 0

B E G I N

I N T E G E R

N R , R E S , J , К s B U R , P S ,

1 0 3 , 0

3 1 , S l * 4 , S S , C S , S C , N ;

В U R 1 ;

1 0 4 . 0

B O O L E A N

P C P , S I P , R E G P , 3 P A C E P ,

1 0 5 . 0

B O O L E A N

A R R A V

B U R C l M O O O l ;

1 0 6 . 0

C O M M E N T

-

С Ч Е Т Ч И К - Б У Ф Е Р А Р Е З У Л Ь Т А Т О В ,

1 0 7 . 0

K S i U R

1 0 8 - , -0--

B U 4

-

Б Ѵ Ф Е Р Р Е З У Л Ь Т А Т О В ,

1 0 9 . 0

B U P

-

Б Ѵ Ф Е Р П Е Ч А Т И ;

;

1 1 0 . 0

Р с р ; ф $ і р : S H E U P : = 5 Р А С Е Р : n F A L S E

1 1 1 . 0

>T L R : = 3 I ;

м и я : = 2 7 ;

H N L ; = B ;

N S P : = < ;

;

i : i ;

1 1 2 . 0

N R ; 3 4 4 ;

R E G : = о ; K S B U R ; = I ;

B U R I ; = T R U E

...•••••»•»•••••••о«....

......lArtEr.UJ

««.«.

П Р И Л .

2

П О И Л )

2

П Р И Л .

2

П Р И Л . 2

пз,о

0:

I F K

S N B

< O T H E N

B

E G

I N

B

U

R I K

S B

U R I

: = B U R

I ;

1 1 1 . 0

O U T I N F ( B U R , K S B U R 1 1 G O T O

F I N E N O

I

П5,о

ss:=BUFto);

G S і =B U F [j+г ]j P S ;=B U F tо*зj♦ i; о ;=д» 4 j

1 1 6 . 0

F O R

N : = P 5 S T E P

- I U N T I L.

I D O

B E G I N

C I : E N U J

1 1 7 . 0

P C P : = T R U E

t s i M : = w N L i

G O T O

Z S P ;

1 1 8 . 0

c:

so:=B U F lJ ];

0 : = 0 + 1 ; в:

S I :*B U F IJ];

1 1 9 . 0

£ F

5 I > 3 2 T H E N B E ^ l N

S I : = S l - 3 2 ;

1 2 0 . 0

I F

R E G j i N L R T H E N

B E G I N

R E G 1 = N L R ;

Z S P ;

R i ;

E N D - i

1 2 1 . 0

R ;

R E G P ; = T R U E

i

S I M : = R E G J

G O T O

1 2 2 . 0

G O T O

f l E N O

;

1 2 3 . 0

I F R E G = N D R T H E N G O T O Д ;

і г - 4 , 0

R E G : = F ' O R ;

G O T O

R I

Z S P ;

1 2 5 . 0

л 1

S I P : = T R U E

;

s I M : = s I ;

G O T O

1 2 6 . 0

я i :

J : = J + I ;

S G : = S G - I ;

1 2 7 . 0

I F

S G * 0 T H E N

G O T O

e ;

Z S P ;

a I :

G S : = G S - I ;

1 2 8 . 0

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

;

S I M : = W S P ;

G O T O

1 2 9 . 0

£ F

G S X O T H E N

G O T O

C ;

1 3 0 . 0

I F

9 1 0 < K S B U R T H E N

B E G I N

1 3 1 . 0

O U T I N F

I B U R , K S B U R ) ;

1 3 2 , 0 ‘

B U R i : = T R U E

i

N R I = 4 4 J

K S B l J R I s l E N D

B U R i

1 3 3 . 0

к S N B : = K

S N B - 1 ;

rG O---T O

D

;

1 3 1 . 0

C O M M E N T з а н е с е н и е

с и м в о л а

1 3 5 , n

Щ в

мяссиа

Р Е З У Л Ь Т А Т О В ;

1 3 6 ,

п Z S P :

I F

N R < 2 T H E N

B E G I N

1 3 7 . 0

B U R [ K S B U R ] : = в и й 1 ;

B U R I : = T R U E

J

і з ѳ , о

N R : = < < !

K S B U R : = K S B U R * I E N D

;

1 3 9 . 0

B U R I ; = B U R I « O N O R ( S I M , N R ) ;

N R : = N R - 6 ;

A i E N D

J

M 0 , 0

I F

S I P T H t N

B E G I N

S I P ; = F A L 5 E

J G O T O

ПРИЛ, 2

ПР«1Л. 2

ПРИЛ, 2

ПРИЛ. J

1 4 4 . 0

I F

R E G P T H E N

B E G I N

R E G P ; = F A L S E

i G O T O

R l E N D

;

1 4 5 . 0

F I N ;

E N D

;

1

4

6

. 0

1

4

7 . 0

I N T E G E R

P R O C E D U R E

T T N

( U , N S

, K S

) ;

і 4 ѳ

, о

V A L U E

N S , K S ;

I N T E G E R

A R R A Y

G ;

I N T E G E R

N S , K S ;

1 4 9

. 0

C O M M E N T

З Н А М Е Н И Е ,

П Р Е Д С Т А В Л Е Н Н О Е

K S

С И М В О Л А М И

С

1

5

0 . 0

С И М В О Л А

С

Н О М Е Р О М

N S

Г Р У П П Ы

G ,

П Р е О Б Р А -

1 5 1

. 0

З Ч Е Т С Н

В

З Н А Ч Е Н И Е

П Е Р Е М Е Н Н О Й

Т И П А

I N T E G E R

;

1

5

2

. 0

B E G I N

I N T E G E R

Р , R , Т , м , к , s ;

1

5 1 , U

с т I

1 4 ] ; = С Т I

£ 4 ) * 1 ;

1 5 4 . 0

R;=o: м:=і;

K

:

= N

S +

K S

-

I ;

1

5

5 . 0

F O R

T ; = K S T E P

- l U N T l L

N i D O

B E G I N

1

5 6 , 0

3 : = G t T 1 ;

1

5 7

. 0

F O R

P : = 0 S T E P

I U N T 1 L

9 0 0

1

5

8 . 0

I F

S = C T T N [ P ] T 5 - 3 2 = C T T N [ p ]

1

5

9

. 0

T H E N

G O T O

M l ;

1 6 0

. 0

T T N : = -

1 ;

G O T O

м з J

ібі,и

M I ;

R

: =

R *

M

»

P

I

м2 :

M

: = M

« I

O

E N

O

T

;

•

1

6

2

. 0

T T N } = R ;

•

•

163.0

мз:

E N D

T T N ;

1

5

4

. 0

1

6

5

. 0

P R O C E D U R E

F K M M I v I , D M , I M ) ;

V A L U E

V i , D M ;

1 6 6 . 0

I N T E G E R

V i , D M ;

B O O L E A N

A R R A V

I M ;

1

6

7

. 0

C O M M E N T

F K M M

-

Ф О Р М И Р О В А Н И Е

К А Т А Л О Г А

М А С С И В О В

1

6

8

. 0

М А К Е Т О В

и

П Е Р Е Н О С

М А С С И В О В

М А К Е Т О В

Н А

М Б I

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

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

• • • п . к ь т . о о

• • • • •

п р и л .

а

п р я л .

а

п р и л .

г

п р и л .

г

1 6 9 , 0

ѳ Е о I N

5 К Ы Н : - э к и м - * 1 ;

1 7 0 . 0

1 F

З К М М з 1 5 T H E N

B E G I N

] 7 і , о

т е к с т < ' п е р е п о л н е н и е

к а т а л о г а

к м м ' ,

1 7 2 . 0

в к д т , і , S , з ) ;

1 7 3 . 0

S P 1 ‘ 7 2 Г

, В К Д Т , 5 , 2 0 0 , A S P I )

;

1 7 - 4 , 0

С О Т О

S T O P E N O

;

1 7 5 , о

к м м і S K M M , U

:

1 1 к м м [ S K M M , 2 ) ; = о м ;

1 7 6 . 0

к м м [ S K M M , з ] : ? д м г и ;

к м м [ S K M M , ч ]

: = M O N T H ;

1 7 7 . 0

к м ч і S K M M , 5 1 : * о я у і

с о р у ( 1 М , д м і и і і

1 7 8 . 0

A M Z U ; C A M Z U * 3 2 E N Ü

F K M M ;

17 9,0

1 0 0 . 0

P R O C E D U R E

R I G ;

1 8 1 . 0

C O M M E N T

R I G

В Ы Б И Р А Е Т

И З

T E L I N

H Д

B U S T

1 8 2 . 0

О Ч Е Р Е Д Н У Ю

С Т Р О К У

Т с Л е Г Р Д * Н О Й

И Н Ф О Р М А Ц И И

И

1 8 3 . 0

О С У Щ Е С Т В Л Я Е Т

Ц И Р К У Л Я Ц И Ю

С Т Р О К

Н Д

B U S T

I

1 8 4 , 0

В Е С Ы

I N T E G E R

O S T I R , D P E R , I ;

1 8 5 . 0

C O M M E N T

0 5 T I R

-

Д Л И Н Д

С Т И Р А Е М О Й

Ч Л С Т И

B U S T

,

1 8 6 . 0

O P E R

-

Д Л И Н Д

П Е Р Е Н О С И М О Й

Ч Д С Т И

B U S T

;

1 8 7 . 0

ст 1 [5):= C T I [5 ]*1 - ;

1 8 В , 0

I F

N T S » K S N Ü T H E N

B E G I N N

1 В 9 , 0

I F

0 э S T T H E N

J E G I N

i 9 Q , o

A S S B : = N T B : = I ;

K S N B : = O I

1 9 1 . 0

-

C O M M E N T

в ы б о р к а

с т р о к и

и .з

T E L I N

н д

B U S T

;

1 9 2 . 0

M i : f l S T B t K S N B + i j : = f l 5 S B ;

1 9 3 . 0

B E G I N

S I , R E G , I N ;

1 9 4 . 0

B O O L E A N

Z 1 ;

1 9 5 . 0

S N I T C H

R K : = R K I , R K 2 , R K 3 , R K 4 , R K 5 ;

1 9 6 . 0

I N : = A s s в ♦ 5 ;

B S : i G s : = P s ; = s s : = o ;

ПРиЛ,

3

П Р 1л ,

2

ПРИЛ.

1

п р и л, а

197.0

8G 1зЗС «зО{

1 9 В , 0

А ;

I F

P E R V O B R T H E N

B E G I N

1 9 9 . 0

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

;

200 ,0

DL!s K

O N 10:=

F A

L S E

J P

P C :=NNN1:=0:

* . U I J .

202 ,0

N

P R : =

N M L : =

I

;

coro

R K

I N M

L J E N

D

;

2 0 3 . 0

I F

H O N I Q T H C N

С О Г О

F I N ;

2 0 4 , 0

IF

NCEL^L.I OTHEN

vsi:

2 0 3 . 0

B E G I N

z I :=I O (N C E L I ; si:=V N O R I Z

I .N B I T .SI ;