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

ПРИЛ. 2

I I Р И Л .

2

ПРИЛ.

3

П Р И Л . 2

3 7 3 Ш 0

R ( 3 3 , 7 2 3 ) |

R < 5 6 , 7 1 6 ) ;

4 ( 5 7 , 4 1 2 ) ;

4 ( 5 8 , 4 0 8 ) ;

374IU0

8 ( 3 9 * * 7

0 1 ) ;

Я ( Ь 0 , 7 2 3 ) ;

R ( 6

1 , 7 1 6

)

;

R ( 6 2 , 4

I 2 ) ;

3 7 5 Щ 0

R ( 8 3 , 4 0 8 ) ;

R (64 , - 7 О 1 ) ; R ( 6 5 , 7 0 2) ;

R ( 6 6 , - 7 l 4 ) j

3 7 6 Ш 0

K O N M S M :

3 7 7 ш

О

I F O M S M - S M S M < 1 2 T H E N B E G I N

F K M M ( 1 , 3 M 3 M - 1 , M s M ) ;

3 78 Л

О F O R 3 M 3 Ц 1 * 1 3 T E P l U N Г I L O M S M O O

3 7 9 Щ

О

чзм[ sMsM): =T 4UE

; S *4S M := I ENU

;

З В 0 Ш 0

кзмятI C O MM E N T

K O H E U

к з м я т ;

381Ш О

I F

V S M R T T H E N G O T O

C 3 7 ;

3821110

c2 s i C N S :B N Z S :=O ; G O T O

C R S T ;

3 8 3 Ш 0 C O M M E N T

А Н А Л И З В О З М О Ж Н О С Т И П Р О Д С Л Ж Е Н И Я Р А С К О Д И ­

3 8 4 Ц І 0

Р О В А Н И Я С И Н О П Т И Ч Е С К И Х

С О О Б Щ Е Н И Й

или

385ці0

Н Е О Б Х О Ц И М О С Т И В Ы Х О Д Я из Б Л О К А R S T ;

с2 71 IF

З в Ь Щ О

CN330THEN сNчs :=ч т ; C N S :=C N S » I ;

3 871110

IF

CN S <3TH 'EN

B E G I N

C R S T E N D

;

3 в вщО

N T j l r N

T S * i ;

G O T O

4

О В Ш О

S P t * Г1 2 '

, C T I ) i

•

4

0

9 l'J О

C O M M

£ N T

В Ы З О В

П Р О Г Р А М М Ы

С О Р Т И Р О В К И

М А К Е Т О В

4

1

0 U .0

L I B R A R Y ! ' 0 4 0 0 2 1 1 1 0 0 • . ' 0

0 0 0 0 3 * ,

4

U

'j 0

' 0 0 0 1 4 0 0 0 0 0 ' , ' 0 0 4 1

0

0 ' ,

4

1

2 J O

, c ? i o c o < 4 0 a '

, ‘ 0 0 0 2 0

0 ' ,

А1

3 j О

' 3 1 6 1 4 4 0 0 0 0 '

, ' 3 0 4 0

1

3 ' ,

4

1 4 jj О

' 1 3 6 П 0 0 0 0 0 И ’ , ' 3 0 4 0 0 0 ' ) ;

4

I S u O

E

N Ü

i

4 1 Ьщ О

=

ч ь

9

6

0 , В

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

..........

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

«•••»

ПРИ«, - 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

;