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

. . . . . »

«

•

. . .............. ........................................ ................. П Д К Е

Т

. О О

. . . . .

п р и

л

.

ь

.

U P и л.

6

пРил.6

пРил.б

5 7 , 0

ч е т :

s : = s * M » R ;

M : = M « I O E N D

р I о 5 ;

5 в , о

р 1 о N : = s ;

м е т к : е N о

р 1 о N ;

5 9 . 0

6 0 . 0 C O M M E N T П Р Е О Б Р А З О В А Н И Е М А С С И В А S T А N 2

6 1 . 0

В М А С С И В S T A N 1 I

С*6 4 2 : = S O V I C { C O N 1

, 2 4 )

;

6 2 . 0

C O N 1 : = O N O R ( 1 0 A 8 5 7 5 , 1 ) ;

6 3 . 0

3

: = 0

;

6 а , о

F O R

1 : = 1 s т е р

I U N T I L

N D O

B E G I N

6 5 . 0

к и с : = O N O R ( 1 , 2 5 ) ;

в : = S T л и г и ) « C O N 1 ;

6 6 , n

P E R E N O S ;

в : = S T A N 2 [ I ) . C O N ? ;

в : = s o v I u ( в , - 2 A ) ;

6 7 . 0

P E R E N O S E N O

F S T A N I ;

6 8 . 0 K N S T : = 0 ;

6 9 . 0 C O M M E N T П О С Т Р О Е Н И Е К А Т А Л О Г А И С П И С К А ,

7 и , о и с х о д н о й

и н ф о р м а ц и е й

я в л я ю т с я ;

F t , О М А С С И В S T A N 1 И J '

Ч И С Л О Н Е Н У Л Е В Ы Х

7 2 . 0

Э Л Е М Е Н Т О В В М А С С И В Е S T A N 1 ;

7 J , О 8 E G I N

I N T E G E R

L , K P N S , P S С , N S R , К 5 О , И , I 2 ;

7 а , о I N T E G E R

A R R A V

K S I O : 9 9 J ;

B O O L E A N

A R R A V

U P S T A N M U ) ;

7 5 . 0

C O M M E N T

U P S T A N - м я с с и в

н о м е р о в

с т а н ц и й ,

7 6 . 0

У П О Р Я Д О Ч Е Н Н Ы Х П О X А Х 5 .

К S - Т Д Б Л И Ц А , В К О Т О Р О Й

7 7 . 0 « М П - Ч И С Л О

Н О М Е Р О В С Т А Н Ц И Й в М А С С И В Е U P S T A N ,

7 8 . 0 И М Е Ю Щ И Х Х А Х 5 = Ц

7 9 . 0

F O R

L : = l S T E P

I U N T I L

з о о

8 0 . 0

B E G I N

N R I U : = P 1 0 N

( S T A N 1 [ L ] , A , 2 ) ;

8 1 . 0

I F

N R t L ] < 0 T H E N G O T O

K P P S E N O

I

8 2 . 0

F O R

P S ' G : = O ;

1 U N T I L

9 9 0 0 B E G I N

K S l L J I s O ;

8 3 . 0

L ; = O S T E P

8 A , o

F O R

I * = I S T E P

I U N T I L

з о о

B E G I N

A : I S T A N 1 1 1 J ;

ПРИЛ,

U

ПРИЛ.

э

ПРИЛ.

&

ПРИЛ. &

8 5

, 0

I F

! £ N R 1,1

U L T H E N

с о т о

£ 2 ; Х 2 : = Р Ю

Ы ( д , I ,

3 ) ;

8 ь

, 0

^ K O T H E N

G O T O K P P S ;

A : = D N Q R ( 1 2 , 1 ) ;

111,

О

KPPS: END

1 1 2 ,

О

END' процедуры ‘ Д Э Р О Л О Г К Ч Е С К И й С Л О В Л Р Ь

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

•

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

» • ........................................................................................................................

* . П й К t т . о о

П Р И Л .

6

МР

|Л .

ПР-ИЛ . J

ПР

1 1 3 , ( 1

I N P U T ( S 2 ) ;

і и , )

а э р о л о г и ч е с к и й

c n o B « P M S , x , S 2 , N , N 4 , K N s n ;

1 1 5 . 0

0 U T P U T ( 5 , K ) ;

1 1 6 . 0

s o ( 1а « о о о 1 о з * , 1о ' , ‘ и ’ , з ) ;

1 1 7 . 0

S P ( ' i M 0 0 t , 1 0 J , , , U , , , L ' , K ) ;

1 1 8 . 0

O U T P U T ( K N S Г , N R ) ;

т л в л и ц ы

с о о т в е т с т в и и

1 1 9 . 0 C O M M E N T ф о р м и р о в а н и е

1 2 0 . 0

С Л О Ж Н Ы Х

Н О М Е Р О В

Н О М Е Р 1 М

8

1 2 1 . 0

п о с л е д о в а т е л ь н о с т и

п и

в о з р а с т а н и й ;

1 2 2 . 0

F O B

T : = I S T E P

I U N T I L

2 к N о о

N N I т ] : = о ;

1 2 3 . 0

F O R

T : = I S T E P

I U N T I L

K N 5 T U O

B E G I N

1 2 - 4 , 0

M M : = N R [ 1 ) ;

n : = 1 ;

1 2 5 , C

F O R

N ; = 2 S T E P

.I U N T I L

K N S T U O

B E G I N

1 2 6 . 0

I F

N R t N 1 > 1 О О 0 0 O T H E N

G O T O

L ;

1 2 7 . 0

I F

N R ( N ] < M l N T H f c N

B E G I N

!

L : t N и

;

1 2 8 , r

M i N ; = N R ( N ] i

H : = N E N U

1 2 9 . 0

N N i a 1 : = T ;

N R [ n 1 : = 1 о о 1 O O E N U

;

130.0

C0P9INN,'

П

'

coPviNN,' 12’

1 3 1 . 0

с о р у і ' і г ’ . ' х ' . н н ) ;

O U T P U T I N N ) ;

1

3

2

. 0

E

N

D

1

3

3

. 0

E

N

U

1

3

4

. 0

. ..................................................... I ................................................................

/і К E T . 0 0

• * • • •

-ПРИ Л ,

?

ПРИ Л .

?

П Р И Л

,

7

П Р И Л . 7

1 . 0 B E G I N C O M M E N T П Р О Г Р А М М А С О С Т Д В Л Е Н И Р

2 . 0

с и н о п т и ч е с к о г о

с л о в я р я ;

3 . 0

^ N T E G E R

N J

l N P U T ( N ) ;

н , ы ;

A ,

о B E G I N

I N T E G E R

I , J

, K , M ;

B O O L E A N

5 . 0

B O O L E A N

я R R я у

н о м е р [ 1 : 2 « N J , C O N

I о : < ] ;

д я н н ы х - N ,

b ,

о C O M M E N T

р а з м е р н о с т ь

м а с с и в а

и с х о д н ы х

7 . 0

м а с с и в

д в о и ч н ы х

н о м е р о в

с т а н ц и й

- н о м е р ;

8 . 0

P R O C E D U R E

5 Р ;

L I В R А Я у | 1 6 6 1 ’ ) ;

9 , 0

V A L U E K R ;

1 0 . 0

B O O L E A N

P R O C E D U R E

S O V I G I f l . K R ) ;

1 1 . 0

B O O L E A N

Я ;

I N T E G E R

K R ; B E G I N

B O O L E A N P ;

1 2 . 0

I F

K R C O T H E N

K R > = I O O - K R ;

;

1 3 . 0

S p ( ‘ 7 0 1 > , Д , K R . , P ) ;

S O V l O t r P E N u

H i d

I N T E G E R

P R O C E D U R E

V N O R I я , N R ,

K R ) ;

V A L U E

N R , K R ;

1 5 . 0

B O O L E A N

Я ; ^ I N T E G E R

N R , K R ;

B E G I N

I N T E G E R

P ;

1 5 . 0

S P ( 1 7 0 3 1 , Д , N R , K R , P , 1 ) ;

1 7 . 0

V N O R ; = P E N D

;

T O G D I A . B I ;

A , B ;

I B , O

B O O L E A N

P R O C E D U R E

V A L U E

1 9 . 0

B O O L E A N

A , 8 ; B E G I N

2 0 . 0

B O O L E A N

P ;

5 P ( ' 7 0 4 ’ , A , B , P ) J

T O G O : = P E N D

;

2 1 . 0

8 0 0 L E A N

P R O C E D U R E

0 N o R 1 A , N R 1 ; V A L U E

A . N R I

2 2 . 0

I N T E G E R

A , N R ;

B E G I N

U N O R : = P E N L

;

2 3 . 0

B O O L E A N

P ;

S P ( ' 7 0 2 ’ , A , N R , P ) ;

2 4 . 0

I N T E G E R P R O C E D U R E P 1 0 N 1 G , N S , к S ) !

2 5 . 0

V A L U E

G . N S . K S i

2 5 . 0

•

I N I £ £ E 2

N S , K S ;

B O O L E A N

G ;

2 7 . 0

B E G I N I N T E G E R

f l , S , I , M , B ;

2 B , o

в : » 2 9 - ( N S * K S ) « я ;

s : = o ;

м : = i ;