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

ПРИЛ,

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 ;