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

П Р И Л . 3

ПР г і П ,

3

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

. 0 0

,

П Р И Л .

Л

П Р И Л

4 4 9 , 1 1

н м : = V N O R ( С 5 , 2 7 , 7 ) і I F H M « 10 О Т НЕ N

4 5 0 . 0

B E G I N

с т я г I H M ] := с т я т [нм ] 4-1;

4 5 1 . 0

IF C T Д T [H M * 1 2 0 ] = 0 T H £ N

О U Т Р U Т ( - 9 , 1 , С 5 ) j

4 5 2 , 0

С Т Д Т [ Н М * 1 2 С ] : = 1 E N D

E L S E

4 5 л I о

1 : s 1 * ? £ N о

;

4 5 4 , :

E N L

S ?

і;

2 0 '

, 6

У «

,

1 , 220 , С Т А Т ,

2 0 ,

1 ,

4 5 5 , 0

( '

7

456,-

■Г , '500', а, 2, 10,19, о, з ) ;

4 5 7 ,

5 Д ( 1 72 1 • ,D y » ,50 ,0, ■ 0 ’ ) !

4 5 В , -:

I : = м і в т * 2 ;

с о р у [ с т я т , ■ 1 Г

, I > ;

<59, с EM'J

О Б Ъ Е Д И Н Е Н И Е С И Н О П Т И Ч Е С К И Х

С О О Б Щ Е Н И Й

4 6 0 . 0

Р А З Н Ы Х С Е А Н С О В с в я з и ;

4 6 1 . 0 E N U

У П О Р Я Д О Ч Е Н И Е С И Н О П Т И Ч Е С К И Х С О О Б Щ Е Н И Й ;

4 6 2 . 0

ENJ

;

4 6 3 , с C O M M E N T

н а к о п л е н и е

н а м л а э р о л о г и ч е с к и х

< 6 4 , 0

в Е ;

м

С О О Ь Н е ЧИИ

Л И

ВСЕ

С Р О К И ;

, Я

Р [

і : 4 о с о

) ;

46 5 , :

B O O L E A N

к

ляд у

я [

о ;

г л

5

о о ]

< 6 6 , .

I Ч Т г -3 Е р

с л , ! . я , з о н д , 1 , 3 , к ;

B O O L E A N

C l ;

4 6 7 , 1

ІЕ

Л ЕС IчЕ = О THE N

Л ( 0) ;=0 N О Я ( 1 , 1 )Е LSt

464,3

эе;і, і:=N zлт*5; COPVI'II’.I.OIENO

;

4 6 9 . 0

с і : = . і [ о і ;

с л : = ѵ

. о я ( С і , і 5 , і 5 ) ;

i :

= i ;

4 7 0 ,0

: i t : n

-<"м i I ,г )= I>T H E N

с о т о

с ё з ;

47 I , 3

IK

4.'"i I , D s O T H E K

G O T O

CfiEil;

472 ,−1

_J ;=<". -Ч 1,2 ];

зонд:=кик( I,3 ];

4 7 3 , -

c v v

i з о н д , л я ) ;

к : = с л ;

с д : = с д * о а ;

4 7 4 , -

E 3 I

J ; s K 5 I E P

I U N T I L

О Л О О

f l [ J ] : = A P [ 3 - K + l ] ;

4 7 5 , -

. 1; 1 ; = I * 1 ;

С О Т о

С Л д ;

< 7 6 , 0

c- _ : I ( э j : - I -N j . i ( с л , 1 ) ;

I ; = N Z 4 T * 5 ;

с о р у ( r. , 1 1 1 1 , i ) ;

2,0

PROCEDURE COPY; LIBRARY(‘656>);

3,0 BEGIN BOOLEAN ARRAY PAM10;1600 0],

4,0

OMI1:301,o«u 1:so];

5,0

INTEGER ARRAY уроэнии:і6і,тт[і:8оі;

6,0

INTEGER I,K,L,m; BOOLEAN A,c; ARRAV BUFtHUOJi

7.0

INTEGER ARRAY MAM;,мдмг,мднз,MAM4,MAMSn :B5];

в,0

PROCEDURE SP; LIBRARy( ‘ 66 1');

0.0

PROCEDURE текст; LIBRARY('7M ');

10,0

INTEGER PROCEDURE VNOR IA ,NR,*R>;

11,0

VALUE NR,KR; BOOLEAN A;

12,0 INTEGER NR.KRJ BEGIN INTEGER P ;

ю.;

sp(1 703',A ,NR ,KR ,P ,1); VNOR:=DENO ;

14,0

BOOLEAN PROCEDURE T3GO(A,B)I

15,0

VALUE A,В; BOOLE. N A, В;

16,0

BEGIN BOOLEAN PJ SP (•r−>4•,A,a,p); T3CO:=PEN3 ;

17,0

SPI'/OS' ,C,1,'0377 ','7777’,'7777','7777’);

18,0

1NPUT(NZRT);

10,0

FOR L:=ISTEP IUNTIL вsoо BEGIN MAM 11L ]:=1 о11;

20,0

MAM21L];=1о11; МДМЗtu :'=111 i

21,0

МДМ4ІLJ!=111i MAM5IL):=1001IEN0 ;

22,0

POP I:=1sтEP IUNTIL ібоооио рдм[і]:=с;

2 9

. 0

у р о в н и [ п

j : = i g ;

у р о в н и [ i 2 ) : = 7 o i

у р о в н и ! I 3 j : s S о

l

J O , о

у р о в н и I и

] : = з о ;

у р о в н и с і о ] : = 2 0 ;

у р о в н и ( ю ] : « і о

;

л , о

Т е к с т < « м а к е т ы

д э р о л о г и н е с к и х

с о о б щ е н и й 1 , о н , і , з

, п і

3 2

. 0

т е к с т ( ' м а к е т ы

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

с о о б щ е н и й ' , о н , г , « о , і > j

3 3 . 0

5 Р ( ' 7 2 0 * , 0 М , 3 , 3 , С Т А Т , 1 , 0 , 1 1 ' , ' 2

0 0 ' , 6 , 1 , 2 , 0 , 6 , $ ) }

3 4

. 0

з р і л г о ’ . о н и . з . с т д т . і . о . ' і ’ . ' г о о ’ . б . і . г . о . ю о . з п

3 6 . 0

S P ( ' 7 2 1 ' , О М , 7 , 1 3 0 , B U F ) J

N Z R T : = N Z R T + ' !

3 6 . 0

м I :

с о р у ( • 1 1 * . N Z R T , р д м ) ;

і : = к : = і ;

3 7 . 0

i p

I M 6 0 0 0 T H E N

с о т о

м 5 ;

я : = р а м [ і і ;

3 6 . 0

м з : I F

T O G O ( А , С ( T H E N

B E G I N l : = I + l 7 i

G O T O M 1 E N D I

3 9 . 0

F O R

L l c l S T E P

1 U N T I L

1 7 U O

B E G I N

P A M t К ] ; * P Я м I I ) J

4 0 . 0

к : = K » 1 ;

I ; = 1 + 1 E N O

J

G O T O

M I ;

м 5 ;

д р д м ; = и - і ;

4 1 . 0

М 2 :

O U T P U T ( Д Р А М ) ;

4 2 . 0

S P ( ' 7 2 0 ’ , O M 1 , 1 ,

0 ’ , 0 , 1 , 0 , 1 S , 0 , 3 ) ;

4 3 , u

1 6 , У Р О В Н И , 0 , 1 , ' 1 2 0

4 4 . 0

S P ( ' 7 2 0 ' , O r t 1 , 2 , 3 0 , T T , 1 6 , 1 , ‘ 1 * , * 2 0 0 ' , 2 5 , 1 , 4 , 1 6 , 5 , 2 1 )

4 5 . 0

S P ( ' 7 2 0 ' , О М 1 , 3 , 8 5 , М Д М 1 , 1 7 , 1 , ' Г

, ' 3 0 0 ' , 2 6 , 1 , 4 , 1 6 , 3 , 1 ) !

4 6 . 0

S P ( ' 7 2 0 ' , O M 1 , 4 , В 5 , М Я М 2 , 1 7 , 1 , , 1 * , , 3 0 0 > , 2 3 , 1 , 4 , ) ^ , 1 ? , | )

4 7 . 0

S P ( * 7 2 0 ' , О М 1 , 5 , 8 5 , М Д М 3 , 1 7 , 1 , ' 1 * , * 2 0 0 " , 2 5 , 1 , 4 , 1 6 , ) 6 , П

• 4 8 , 0

S P t * 7 2 0 > , 0 М 1 , 6 , в 5 , М Д М < , 1 7 , 1 , * 1 * . * 2 0 0 > , 2 5 , 1 , 4 , 1 6 ,

4 9 . 0

S P 1 ' 7 2 0 ' , О М 1 , 7 , 8 5 , М Я М 5 , 1 7 . 1 , ‘ 1 ' , ' 4 0 0 ' , 2 5 , 1 , 4 , | 6 , 9 ? , J I

5 0 . 0 к : = о ; L : = I ;

м 4; F O R

і : = I S T E P

I U N T I L

д р д м о о B E G I N

5 1 . 0

A ; = P Я М l I J ; П 1 : = V N O R t A , 4 5 , 1 ) I

I F

П 1 A 1 T H E N B E G I N

5 2 . 0

n 1 ; = V N O R ( A , 4 4 , 1 0 ) J

I F

>1 1 * 1 0 2 3 T H E N

M A M 1 [ L ) I = П t j

5 3 , |J

П 1 : = V N 0 R I A , 3 4 , 1 0 ) ;

I F

H 1 X 1 0 2 3 T H E N

M A M 2 [ L ] l = n i J

5 4 . 0

n 1 1 = V N O R ( A , 2 4 , 7 ) i

I F

n i * 1 2 7 T H E N

M A M 3 [ L ] : = n i J

5 5 . 0 п 1 ; = V N 0 R ( A , 1 7 , 7 ) ;

I F

П 1 A I 2 7 T H E N

M A M 4 [ L ) : = n 1 ;