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

ПРИЛ,

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 ;

2 9 . 0

F O R

I : = 1 3 Т ер

I U N T I L

K S O Q

B E G I N

30.0 R:=vNpR(G,й, 4)i е:=а»<;

3 1 . 0

£ F

A < I O T H E N

G O T O

M E T ;

3 2 . 0

O U T P U T ( G ) j

P I O N : = - R ;

G O T O

M E T K J

3 3 . 0

M E T ; S : = S + M » R ;

M : = M « I O E N U

P I O S ;

3 4 . 0

P 1 0 N ; s S ; M E T K 1 E N D P 1 0 N ;

3 5

, 0

C O N ( 0 ] ; = 0 N Ü R ( 6 3 , 1 2 ) ;

3 6 . 0

4 0 0

B E G I N

3 7 . 0

F O R

I ; = 1 5 T E P

1 U N T I L

3 8 . 0

J : = 1 2 M l - l ) + i ;

C O N [ I ] ; a O N O R ( 4 0 9 5 , о > E N D ;

3 9 . 0

W ; = F « L S E

;

Ф О Р М И Р О В А Н И Е М Л С С И В А Н О М Е Р I

4 0 . 0

B E G I N £ O M M E N T

4 1 . 0

B O O L E A N

/)•

B O O L E A N

A R R A Y

0 A H ( 1 1 N 1 I

4 2 , J

I N T E G E R

A R R A V

P [ l ; 2 ) ;

4 3 . 0

C O M M E N T М А С С И В И С Х О Д Н Ы Х Д А Н Н Ы Х „ Д А Н *

4 4 . 0

I N P U T ( д д н ) J

м : = о ;

N 0 0

4 5 , О

F O R

I J * 1 5 Т е р

1 U N T I L

4 6 . 0

B E G

I N

A ; = S 0 V I G ( H , - 2 4 ) I

А7 ,О

Н ; е Д А Н ( П ;

4 8 , О

p t i l : = P 1 0 N ( A , 1 , 5 ) I

P [ 2 ) : * p 1 O N ( H > ! , 5 ) ;

4 9 . 0

F O R

K : * I , 2 0 0

5 0 . 0

B E G I N

'

51.0

.

I F

P t K I » O T H E N

5 2 . 0

B E G I N

о ;=P [к 11 н о м е р (м 1;=D N O *(3•t)

5 3

, О

м:=м+і;

5 4

, 0

E N D

1

B E G I N

5 5 . 0

I F

P l K ] < 0 T H E N

5 6 , о

C O M M E N T Н О М Е Р О Ш И Б О Ч Н О Й С Т Р О К И - I ;

п Р ЛЛ .

. 0 0

п р и Л ,. 7

П Р И Л .

7

7

П Р и Л ,

' 5 7 , 0

O U T P U T

1 ) ;

и ; = т R и Е

5

6

, 0

Е N

U

5 9

, 0

c

N

j

т-------

6 0

, 0

Е

9 0

;

6

1

,

0

N

: -

м

;

6 2 , 0

C O M M E N T

Ч И С Л О

С Т . ' Н Ц И Й

И

С Л О В А Р Е

- N

i

6

5 , 0

O U T P U T ( N J і

6

4 , 0

I F

l\ Т Н t N

С О Т О

К О Н Е Ц ;

6

5 , 0

E N Ü

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

М А С С И В А

н о м е р ;

6 6

,

о

6 7 , 0

B E G I N

C O M M E N T

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

С Л О В Д Р Я

-

6 ö , 0

Т Д В Л И Ц Ь І . К Д Т Д Л Э Г Д . С П И С К Д ;

6 9 , 0

I N T E G E R

А Я Я д У П Р И З Н А К 1 1 : N J ,

Т Д Б Л И Ц Д І С ;

8 ) ;

7

0 , 0

B O O L E A N

д я я д у

к д т д л о г ( о : 1 , о : 2 5 6 ] ,

с п и с о к і ;

7 1 , 0

г O R

I : = 1 S Т Е р

1 U N T I L

N 0 0

7

2

,

0

B

E G

I

N

7

5 , 0

Н ; = Н 0 М Е Р І П ;

П Р И З Н А К

( ! ] : = ' ' N O R M

, 1 1

7 5 , 0

E N Ü

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

М А С С И В А

П Р И З Н А К ;

7

5 , 0

F c a

I : = о , i D Q

7а,0

F O R

J : = O S T E P

l U N T I L

2 5 b 0 0

7

7 , 0

к д т А л о г ( 1 , о 1 : = T R U E

;

7

В , 0

F O R

I : = 1 S T E P

l U N T I L

1 5 0 0 0 0

7

9

,

0

с п и с о к [ П

: = T R U E

;

8 0 , 0

A , d [ o ; 7 ) ;

B E G I N

I N T E G E R

A R R A Y

а 1 , о

F O R

I

: = 0 S T E P

, 1 U N T 1 L

7 0 0

8 2

,

0

E

E

(I

I

Ы

8 і

,

0

а и

1 : = u ;

в ( I ] : = о

8 5

,

’

C N Ü

;

П Р и Л .

'

г

П Р 4 Л .

' 7

І І Р и Л .

t

'

......................................... Л Р й Л ; ' 7

8 5 , 0

F O R 1 : = 0 S Т Е Р

1 U N Т 1 L 2 5 6 D 0

П...................................................................................Р И Л .

7

i

.

-/ .

.

. . . . . П А К Е Т . 0 0

П Р И Л . 7

П Р , 1 Л .

П Р И Л .

1 и , о

E N D с л о з а р ь

с ф о р м и р о в а н ;

14.0

O U T P U T ( т я б л і ц я ) ;

1 1 5 . 0

O U T P U T ( к а т а л о г ) ;

1Iь ,о O U T

P

U T ( с п и с о к ) ;

. Т Я Б Л И ц Я ) ;

1 1 7 . 0

S P (

' 0 9 0 0 0 1 0 3 ’ , * 0 1 , 1 1 0 '

118.0

5 0 {

‘

0 9 0 0 0 1 0 3 ’ , 1 о

' , ‘

1 0 0

1 1 . К А Т А Л О Г ) |

1 1 9 . 0

S P ( ‘ О 9 0 0 0 Ю З ' , • а 1 ,. ‘ 3 7 1 7 ’ . с п и с о к ) ;

1

4

9

, 0

F O R

о : = 1 5 т е р

I U N T I L

W O O

1

5

0

, 0

ö £ U 1 N

1

5

1

, 0

I

1

5 1 , 0

F O R

1 i s ]

t M ^ H l L E

I < N - M O O *

1

5

3

, 0

P O R

1 : = J , 1 М Ч Ц 1 L E

1 ^ N - M U 0

1

5

4

, 0

I p

H O M E P 1 0 [ I ] > H O W E P 1 0 I I * 4 ] T H E N

1 5 5

, , )

3 E ü I N

1

5

6

, 0

Р :

= H O M E P

) о t 1 » M ) ;

1

5

7

, 0

н о

м е р n

и

* w )

; = H O M E P 1 о ( 1 ] ;

1

5

8

, 0

H O M E ® 1 " [ 1

) : =

P ;

1 5 9

, 0

к : = i * A;

1 Ь0 , 0

F O R

К ; = K - M W H I D E

K > M O O

1 4 1 , 0

I F

Н О М Е Р 1 ГТ [ К - М ) > Ч О М Е Р l c [ К J T H E N

1

о 2

,

0

3

E

s J N

1

Ь6, j

° : = H O M E P l o [ к

] ;

1 6 4 , 0

н о м е р

1 о I K 1 ; = ч о м е р l ' H - M l J

1

â 5 , -J

н о м е р

1 с 1 к - ч

J : = P

1

5 6

,

j

-

■ ; £

1

Ь ? , J

E L : « .

. - а т г

i i ;

1 6 8

, .

1 1 I

I : 2 u

< ,