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

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

..........

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

«•••»

ПРИ«, - 5

ПРиЛ. J

ПРИЛ, 3

ПРцЛ, J.

1.0 BEGIN

2,D I N T E G E R

M O N T H ,в а у ,т і м е .R E G I M E .S E A S O N ,N ?R T ,

4 . 0

I N T E G E R

ARRAy к м м і і :іе>,і :ь ];

ь ,о

P R O C E D U R E

S P ; L IB R A R V (166i');

6.0

P R O C E D U R E

с о р у ; L IBRARy (‘656 •;;

7 . 0

B O O L E A N P R O C E D U R E D N O R I A .N R ); V A L U E A ,N R ;

B ,O IN T E G E R A ,N R ; B E G ^ N

9.0

BOOLEAN

P;

SP (1702' ,A ,NR ,P)1 DN0RI=PEND !

10.0

BOOLEAN

ARRAV WREM(0;200];

n . o

I N T E G E R P R O C E D U R E V N O R I A .N R .K R ); V A L U E N R ,H R ;

— — — — — — — -• — - — — —T” — ~

—

12.0 BOOLEAN A;

INTEGER NR.KRJ BEGIN

INTEGER P;

"■ — — — —

— —

—

1 3 . 0

SP t 1 7 0 3 1 , A , N R , K R , P , 1 ) ;

is.o

B O O L E A N

P R O C E D U R E

T O G D I A .B J ; V A L U E

A ,B ;®

———————

——“— —TT——

-----

■ . < , , :

B O O L E A N A ,в ; B E G I N

-------------

- n----

1 7 . 0

B O O L E A N P ;

3 P ( ' 7 0 4 ’ , A , B , P ) ; T O G D I = P £ N O i

I B .O

с о р у (')зог ,км м );

1 9 . 0

M O N T H :=K M M I

іо ,i I; о л у ; = к м м П б , 2 1 1

т I M E :=K M M {;6, J 1;

20.0

REG IM E :=K M M [1 ь ,4 1;

N Z R T :=K M M [ jь ,5 1;

21.0 ouTPUT(K M M );

22 ,О

3E>.IN

23.0

BOOLEAN

CO ,C1,C2 ,C3,C4,C5,C6,C7 J

24.0

BOOLEAN

С 11,С 12,C 13,С 14;

2 5 . 0

I N T E G E R W . G C ;

2b,n

I N T E G E R

ARRAy C T A T I Q ;220];

27.0

BOOLEAN

ARRAy БУ4>t II400 ];

26.0

SP(*705’,CO, 1,'0’,'1777' ,'7777', '6000' )i

2« ,0

SP1• 70 5 ',C 1,2, '0377 ',' 7777 ','7777 ','7777 ',

30,0

'200 0’,'0 ',■0 1,‘O' );

31,0

SP(■705 *,C3,2,11000 ','0' ,'0 ',‘Э '(

32,0

■O’,* 0' ,' 777 7','7777’);

33 10

34^0

COMMENT

УПОРЯДОЧЕНИЕ АЭРОЛОГИЧЕСКИХ

СООБЩЕНИИ

35,0

BEGIN INTEGER

1,0,P ,0 ,ACM,ДАР Л ,ЗОНА,A ,СЛН,НМ;

36 ,0

INTEGER

A R R A Y

о т ец ;5 ].СЛОВ Ci: 90 0 ];

37,0

B O O L E A N

A R R A Y

лею; 1 6 0 0 0 1 ,ар л (1 : 4 0 0 о1

$

SB ,0

39,0

PROCEDURE

ПЕРЕНОС;

40 ,0

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

I ,K ,L ,Q,Al;

B O O L E A N

A ,в ,С ;

4 1 , 0

B O O L E A N

п о в т ;

п о в т : S F A L S E

;

4 2 . 0

в : * д р л і о j I

R P T ;

д : = д с I P i ;

С О Т О C f l E N O

;

4 3 . 0

I F

Т О С О ( А , С 1 ) T H E N

B E G I N

А С [ Р ] : х В ;

4 4 , О

I F

T O G O ( A , B ( T H E N

B E G I N

4 5 . 0

по а т :* T R U E

; G O T O

C A E N D

;

4 6 . 0

с : = о ; I : s i ; к ; = ч 4 ;

L : = 4 5 i

4 7 , О

F O R

1 1 = 1 0 , 1 0 , 7 , 7 , 1 O D O B E G I N

4 0 , О

A 1 : S V N O A ( A , K , 0 ) ;

I F

A I S O T C [ 1 1 T H E N . A I 1 S V N O R (B , « , a ) ;

4 9 , 0

L ; = t - o s

p : = C » D N O R ( A i , L ) ;

i : = > i t i i

K : * K - O E N O

;

5 0 , 0

а с і р ц = с ;

с л ;

P ; = p + 1 ;

o : = o + i ;

в : = д р л и і ;

5 1 . 0

I F

V N O R ( B , 4 5 , l ) = 0 « Л Д А Р Л Т Н Е И

G O T O R P T )

5 2 . 0

I F

n O B T T H E N B E G I N

C T A T (1071;s C T A T (107)♦!

5 3 . 0

IF

p-HM?13 T H E N

5 4 , О

E L S E

C T A T ( 1 0 6 1 1 s C T A T I 1 0 6 ) ♦ 1 E N O

;

ПРИЛ,

1

ПРИЛ,

3

ПРИЛ. 3

ПРИЛ, J 'II

і

B 5 , 0 I F

A S 0 » A = 2 T A = 1 * A = 3 T H E N B E G I N

С Л H I = 0 N O R ( C 5 , 3 J , 1 0 )

S 6 , 0

P ; г с л о в [ с л н 1 « 1 7 - 1 6 ;

H M ; = P ;

с 6 : = а с і р ) і

3 7

, 0

I P

T O G O ( C 6 , C 1 1 T H E N

A C I P ] : = C 5 E L S E

3 8 , 0

I F

д е ( H M J : г д е [ н м ] « с I 2 ;

P : = P + I ; J : = J + 1 i

8 9

, 0

A = 1 ? A = 3 T H E N p : = P * 1 i ;

9 0

, 0

П Е Р Е Н О С ;

G O T O П К E N Q С У Ш А ;

9 1 , 0

C O M M E N T

М О Р С К И Е А Э P 0 Л 0 Г И H E С К И ё С О О Б Д Е Н И Я ;

9 2 ’ 7 С 6 I з С 5 » C 4 ;

F O R

P : = 1 5 0 1 2 S T E P

1 7 U N T I L

H C M O O B E G I N

9 3

, 0

С 7 : = A C 1 Р ) * С 4 ;

I F

T O G O ( С 6 , C 7 ) T H E N

B E G I N P : = P *

9 4

, 0

н м : = p - i ;

9 5

, 0

■

С Т А Т 1 1 0 5 1 : = С Т А Т [ 1 0 5 ] ♦ 1 ;

9 6

, 0

а с 1 н м ) : = л с і н м ] « с 1 г ;

P : = P * I I ;

9 7 , 0

o : = 0 * i ;

I F

A = 5 T A = 7 T H E N

9 6 , 0

п е р е н о с : G O T O П К E N O П О В Т О Р Н Ы Й К О Р А Б Л Ь ;

9 9 , 0

E N D

п о и с к п о в т о р н ы х

к о р а б л е й ;

1 0 0 , 0

р ; з д с м ;

Д с і Р ) : = с 5 ;

O : = J + I ; P ; = P * I ;

3 0 1 , 0 . I F

A = S T A = 7 T H E N

р : = р * 1 1 ;

1 0 2 . 0

П Е Р Е Н О С ; Д С М : = А С М + 1 7 ;

1 0 3 . 0

П К :

I F

0 * А А Р Л Т Н Е Ы

G O T O R P T ;

1 0 4 . 0

L ;

i : = I + 1 ;

G O T O

L L ;

W L :

1 0 5 . 0

f l c [ 0 ] : = O N Q R ( A C M , I ) * D N О R ( M O N T H , 1 9 )

1 0 6 . 0

B E G I N

J O N O R ( О А У , 2 5 ) « D N O R ( T І М Е , 3 1 ) ;

1 0 7 . 0

B O O L E A N

A R R A U C B 1 i : 8 ] , В М Й К ( i : 1 7 ) :

1 0 8 . 0 а и д д у

C l 1 : 4 2 j ,н, т ,н1 , T 1 [ 1 : 1 5 ] , T U [ 1 : 1 6 1 , N V , N V T , C . T 1 1 i M ) l '

1 0 9 . 0

R E R L

F 1 , T 2 , A , B , U , E , F ;

1 1 0 . 0

£ N T E G E R

К , L , L 1 , 1 , 0 , K T R L , Q , M 1 ;

1 1 1 . 0

B O O L E A N

B N T , B B N V , B K U R ; B I T ;

1 1 2 . 0

C O M M E N T N V - Н Е В Я З К И , T U - Т А Б Л И Ц А У Р О В Н Е Й ,

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

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

........................................... п а к е т . о з

• • • • •

П Р И n . - 5

П Р .1 Л . 5 . .

ПО И Л )

n P r t n . i

1 1 5 , 0

В З М Ѵ - Б О Л Ь И ' Д Д Н Е а Р 3 К A , в к и я - к р д й н и й У Р О В Е Н Ь ;

1 1 6 , 0

С [ 1 ) : = 1 о . 1 0 9 9 ;

c l 2 ) : = 9 . B 7 2 5 i s ;

c l 3 j : s 9 . 5 8 7 Т 5 9 ;

1 1 7 , 0

с [ < ) : = 9 . 0 9 5 5 1 9 !

c [ 5 ! ; = 8 . 7 6 8 9 3 2 !

С t 6 1 : =B . 3 4 7 9 8 9 ;

1 1 6 , 0

с [ 7 1 : = 9 . " в 1 ;

с ! э ! : = 7 , 7 5 5 5 6 3 ! с ( 9 ] : = 7 . j з 1

1 19 , Г

с [ 1о 1: = & . 7 І 9 9 9 І

! C l 1 1 ) : = 6 . 2 1 7 9 7 4 S C t 1 2 ] : = 5 . 7 2 5 5 2 3

1 2 0 , 0

с [ 1 з ] : = < . 9 7 7 В 9 3

; c l i 5 i : = 5 . 3 0 5 4 6 6 ; c [ 1 5 ] I = 3 . 3 6 9 9 9 6

12 1 , 1

с [ 1Ы : = 1;

с t 17 )

: = J ;

c i i 8 ] : = 4 ;

c ( 1 9 ) : = з ;

c t 2 о ] : = 4 ;

12 2 , ”

С ( 2 1 ) : = 5 ;

с і 2 2 )

: = 5 ;

c t 2 3 ] : = 5 ;

о t ) 4 ) : = 5 ;

c 12 5 ] : = 5 ;

1 2 3 ,

- и ы : = і ;

с і 2 7 ) : = 5 ;

c 1? в 1 : = 5 ;

= t -> 9 j :

;

1 2 4 , 3

с t з о ] : = < . з ;

с 1з 1 1 : = 5 ; c l 3 2 ! : = 5 !

C [ 3 3 ) : = 5 ; с c 34 ] : =

1 2 5 , 3

С ( о 5 ) :-7 ;

с 1і и

; = 7 ;

c [ 3 7 ] : = 7 ;

: t j a j : r 7 j

C 1 3 9 ] : п 7 !

1 2 6 , 0

с [ < .1) : = 7 і

С [ 5 1 )

: = 7 ;

c 1 4 2 1 : = a ;

1 2 7 , 0

S P ( ‘ 7 0 5 ’ , Cd , 3 , ' 6 7 7 7 1 , 1 6 0 0 0 1 , 1 7 7 7 7 1 , 1 7 7 7 7 ’ ,

1 2 0 , 0

' 5 5 J0 ’ , 1 1 7 7 7 1 , 1 7 7 7 7 ’ , 1 7 7 7 7 ’ , ' 0 ’ , ‘ 1 7 7 7 ' , * 7 0 0 0 1 , 1 0 '

1 2 9 , I? 5 ? ( 1 7 г 5 ‘ . B I T , ! . ‘ J 3 7 7 ’ , 1 7 7 70 1 , 1 0 * , ' .0 ’ ) 1

1 3 0 , 0

с в і б і : = о м г ч ( і , 5 7 1 ;

c a t 7 ] : = O N O P t I , 4 e ) ;

13 1 , ”

с з і 5 ] : - - I T ;

C B і J ) : = O N O P ( I , 4 2 ) ;

с в І Ы : = с в і б і * с з і 7 І

1 3 5 , *

Г; I F T 0 R I M 3 B N V , B 1 T ) T H E N

l i b , ' t: э г а

к

5 ; A c 1 5 1* 1 ] : =A C [ « l * i ) * с в l в 1 ;

1 3 7 , '

f U

а :=

1 Ь Т Е р

1 U N T 1 L

151) о

B E G I N

l - i d . c

н [ , ): -

з ; н 1 [ л ]: = 0 ; г [ к ) : = п ; т 1 1 и ]: = зЕ N гI

1 . 1 9 , -

F -) .

5 ; = 1 S Т ь 3

1 U N Т 1 L

1 5 . 0

N V ( к

) 1 і 0

!

15 > j , о

F 9 . ; - S : = 1 & т е -з

I U N T I L

і 7 о о

в ч а к

t к 1 :

= а с [ аі * к ) ;

Ml ,0

Fon

К ; = І $ Т Е Р

1U N T 1L

16U0 T Ut Kj la O;

М 2 , 0

C T Д Т [ 104 1 :з с Т Д Т [ 1

04 )* 1

;

М 3 ,0 C O M M E N T » О Р М И Р О З Д Н И В Т А Б Л И Ч Н Ы Х м а с с и в о в ;

M l

, 0

L ;

S

4 : «

I

;

з I

т

:ас в (4 ];

F

т и ;в в м ѵ := в м л к (к ♦ г )«в I т ;

M 5 ,0

м

T O G O (В I Т , B B N V )THEN

B EG IN

к :« К*і;

GOTO F T U E N O ;

M 6

,o

F T i i u T u i U : * * ;

i:=o;

L :=L + I ;

M 7 ,0

F T U 2 1 I F

Х з і і Т Н Е Ч

GOTO

CO;

M S ,o B B N v : = B M * K i K * 3 ] « B i T ; IF T O C O <B I T ,B B N V I T H E N

149 •0 5££l!l »1***1»

IF

I<2 гHE N

150 ,0

B E G I N

K ;*K » I ;

G O T O

F T U 2 E N O

;

151

,o

IF

L » 2 T H E N

G O T O

с о ;

B N T :=T B U E

;

G O T O K M E N O ;

152

,о

К ;a n ♦ 1 ;

153

Iи

«о то

F T U I

;

15« ,0

C O I T U t L J l a j ;

155 ,0

FOR

к :a ISTEP

1UNTIL

L - 2 00

BEGIN

156

, 0

l M T u

t K

i ;

j

; c

T u ( r t «

i ]

;

I F

3 -

I

= I T H

E N

157

to

K T R L : * I 5 E L S E

K T R U ;=29;

N V T [K

]: = c [ 1*K T R L );

I5 В ,о

от и

1 :cc 1 1 ]-cIj 1 END

;

159

,о

о := L ;

160 .0

FOR

I ;= 1STEP

1U N T 1L U - 100

л ;avnoR tu i ,4 4 , 1 о );

161 ,o

B E G I N N

к : = т и і П ;

L 1: =вмдк Iк*2 ];

162 ,0

в :e V N O R ( L 1 ,34,10)/ 10 ;

IF

в » 9 9 9 ТН ЕЧ

Я;=0 .99|

163

,0

I_F

в * 9 от H E N

B := 99E L S E

164

,о

I F

V N O R I L 1 , 1 5 , 1 )s iTHEN

B : = - B ;

165

,0

H (к j jел I

T (K j: =a ;

R P :E N D

; д ; = н і г і/ і: ;

166 ,o

IF

я«7отне.ч д := д* іо о;

н [ 2

);яд;

д;анізі;

16 7 ,0

£F

A»30 0 T H EN

Я ; з Д / 1 0 * 2 0 0 Е и 5 Е

Я 1а Д / 10,300 J

16S

,0

Н І З Ц . Я ;

1 6 9 , 0

Я ' . і Н І П і

I P

f l » 5 0 C T H E N

Н Ц I 1 = ( 5 0 0 - Л ) / 1 J

1 7 U , 0 ■

E L S E

Н [ 1 ) : = Я / 1 0 і

T H E N

S O T O

K l i

1 7 1 . 0

L i : = T U l L - l ] J

I F

L

•

1 7 2 . 0

I F H ( 7 ] < B 0 0 T H E N

I 1 = 7 E L S E

I 1 = 9 I

1 7 3 . 0

F O B

K : = I S T E O

1 U N T 1 L

L I D O

H t К J ; = H [ К J * 1 0 0 0 i

1 7 4 , 0

I K

L 1 < 1 2 T H E N G O T O

K l ;

F » H [ 1 2 ] 7 1 5 0 0

i 7 b , o

T H E N

K : = 1 3 E L S E

K : = I 2 ;

1 7 5 . 3

F O B

l ; = K S T E P

1 U N 1 1 L

L I D O

H I 1 J ; : Н П

1 * 1 0 0 0 i

1 7 7 . 0

я : = и ( 1 5 1 ;

I F

A * 2 5 O C T H E N

н n

5 J

: = л * 1 o o o ;

1 7 в , о

■< 1 : 4 T Q L • = 1 ;

г l : = □ . 6 ;

K 2 : B N T : = F B L S E

J

!

1 7 9 . 0

B B N V : = F B L S E

; B I T I E F A L S E

i

B K U R : = T B U E

I F

1 8 0 . 0

F O R

| ; = 1 S T E P

1 U N T 1 L L - 2 D 0

B E G I N K : = T U [ l ] i

1 8 1 . 0

T u t i * i ] - T U I I I = I T H E N

B E G I N

д : = н і к * і 1 і

B : = T I K * I ) S

1 8 2 . 0

P : = C [ K * 1 ) E N U

E L S E

B E G I N . Л : = Н І К » 2 і і

В : з Т І К * 2 ) і

1 8 3 , <•

0 ; = 0 [ K * 2 ) E N J

;

N V [ 1 ) : = A - H [ K ) - ( C [ K 1 - 0 ) « ( T I K ) + B * 5 4 6 ) ;

1 8 4 ,

- E N D

;

1 8 5 ,

L : = L - i ;

185.0

сото

КЗ I; КЗ:«кия:=FALSF

; *3I :L :=L -I ;

1 8 7 . 0

I F

L »3 T ч E N I O T O

к s ; L I : = I ;

1 8 8 . 3

I F L = l T N V [ 1 ) > N V T t 1 J T H E N

B N T : = T B U E

J

1 9 9 . 0

I F

L « 1 T H E N С О Т О

К 1 3 ;

G O T O

К 9 І

I F

A 8 S ( N V ( l l )

1 9 0 f Q

>

1 F

B B S

( N V ( 2 l ) > N V T ( 2 ] T H E N

1 9 1 , С

»* г£ 1 1 т н е м 3 E C I N

к ; = т и с1 1 ; L : = L I : = 1 ;

1 9 2' , Г

I :

г л з 1 ;

л : E T [ 1 1 ;

в : = т С к j ;

( A-

В ) < 2 0 )

1 9 3 , . ’

11. ( 1 > 2 7 ( А - - ! ) > | о 2 5 7 ( Д - В ) < 0 ) * ( | г г И Д В В

1 Э 4 , ■

Т ч ^ 1

Е - . ; I м

ч 1 [ « ] : = н ( к ] ;

о : = н [ к I * N V [ і ] ;

и [ к 1 : = o ; a ; = 1 ;

1 9 5 , - .

1 м 1' : I F

^ г 7 Т 11 N G O T O

M 1 ;

I F

K = 7 T H S N

G O T O

1 9 о , С 1 к Л ' i7 4 « t T l c N G O T O

N ;

ПРИЛ.

3

П Р И Л ,

3

П Р И Л ,

3

ПРИЛ. 3

1 9 7 , 0

0 : = О » Ю і

I F

К = 1 T H Е N B E G I N

1 9 в ( 0

£ F

0 < О T H E N 0 1 = 5 0 0 - 0 ;

G O T O N E N D

1 9 9 , 0

К = 2 T H E N B E G I N

R U F

Q < I 0 0 0 T H E N '

2 00 .0 G O T O N ; G O T O N I E N O

;

N I ;

2 0 ) , о

N 1 : o : = D - 1 o o o ;

I F

D > I O O Q T H E N

с о т о

2 02 ,0

N ; l : = E N T

(O)i

В М Я К (к ♦21: = <в м « к iк * 2 1 » c в 1 2 1 )1

2 0 3 . 0

O N O R ( I , 3 5 ) » C B [ 6 1 i B I T ; = T R U E

;

2 0 4,0

IF

3 = 1TH E N

GOTO

Qll

IF

Q = 2 T H E N

GOTO

Q2J

205," Q

1F 0 = 3 T H E N

GOTO

Q3 i

GOTO

Q 4 ;

2 06 ,0

Q 1 :GO TO

к 1 3EN0

;

2 Q 7 . 0

T 2 ; s T [ K ] « N V [ 1 1 / C T [ П 1

2 0 8 . 0

I F

( Я - Т 2 ) > - 2 5 2 ( Я - Т 2 ) < 0

2 09,0

T H EN

B Ej lN

T 1 IК 1 :=T tК J ;

fl:=T2I

GOTO

ITENO ;

2 1 0 . 0

G O T O K U E N J

J

G O T O N 1 3 ;

2 1 1 . 0 K s : a : = N v l u ; B :=N V T [L ); ^ F A B S

(A I <B T H E N B E G I N

212.0

BBNV:=FflLsE

;

IF

flBS

(fl)>0 .6 . BTHEN

B B N V :=T R U E

J

2 1 3 . 0

G O T O

K 3 £ N Q

;

2 1 4 . 0

IF

K T R L = 2 T H E N

GOTO

K7;

И 6 ;IF

flBS

(NVI L- 2])«

2 2 1 . 0

а ;

= г ;

G O T O

I

M H ;

2 2 2

, 0

Q 2

:

: G 0 1*0 K 1 2 Ë N D

2 2 3 . 0

B I T : = T R U E

2 2 4

, J

Т 2

1 = T { к 1 + N V (

L 1 / С Т [ L 1 ; I : = > T U I L 1 J I F

f l B S

< T 2 - T [ | ] ) > 2 ,