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

• • • • • • .............................. ....................................................................

• ....................

• • • п а к е т . OQ

. . . • •

5

? , О

4 S S M I L + 2 6 1 : = V N G R ( Д , 1 5 , 7 ) ;

M 5 S M [ L * 2 7 ] 1 B V N O R ( А , е , 4 ) J

5 а , о

L N 5 :

5 9 . 0

л : = S S M [ 1 + 5 1 ;

I F

к = I * 1 + 5 » D S S M T H E N

5 0 , 0

к ; з ѵ м р я ( л , 4 S , 1 ) ;

ы , о

B E G I N I := I*S ; G O T O M J E N O ;

6 2 . 0

M S 5 M I L O J ] ; = V N O H I Д , 4 J , 7) ;

M S S M I L + 2 4 ) I * V N O R ( Д , 2 9 , 7 ) J

6 5 . 0

M S S M I L * 4 1 ] I B V N O R I Д , 5 6 , 7 ) J

6 4 . 0

M 5 5 M [ L * 2 5 ] : = V N 0 R U , 2 2 , 7 ) J M S S M l L * 2 1 ) ! з Ѵ N O R ( A , 1 5 , 4 ) )

6 5 . 0

M S S M [ t . * 2 2 ] I s V N O R І А , 1 1 , 4 ) i M S S M l L + 2 S 1 I a V N O R ( A , 7 , 7 ) i

6 6 . 0

и ы ь : я : = s s M t I + » ) ;

K : = V N O R ( A , 4 5 , n ;

6 7 . 0

I F к = 1? 1 * 6 > 0 5 3 М Т Н Е М B E G I N

6 B,o

I ; = I + 6 ; GOTO MSEND

; MS SMCL +5 9 ) : =V N O R (я , 4 о, 7 ) i

7 5 . 0

К : = V N O R ( Я , 4 5 , И ;

I ; ® I + 7 i G O T O M 3 £ N D ;

7 4 . 0

I F K = I « I + 7 > 0 S S M T H E N B E G I N

7 5 . 0 , M s S M C L + 4 2 ) : = V N 0 R ( f l , 2 9 , 7 ) ;

M S S M ( L + 4 4 ] ! = V N O R ( A , j 5 , 4 ) I

7 6 . 0

M 3 S M I L + 4 5 ) ; B V N O R I fl , 2 2 , 7 ) ,

7 7 . 0

M S S M ( L 4 4 5 ] : = V N O R I Я , 1 1 , 4 ) J

M S 5 M I L + 4 6 ] I = V N O R ( Д , 7 , 7 ) J

7 B , o

L N B : я : = S S M I i » в ] ; к : = V N O R i я , 4 5 , i ) j

7 9 . 0

1_F К = 1 ♦ I + 8 > 0 S S M T H E N

B E G I N

*

a o , o

1 : = 1 + 8 ; G O T O

M S E N O

і M S S M I L + 4 7 ] : = V N O R ( A , 2 9 , 7 ) ;

B l ,

=• 5 S M ( l. •> 4 6 1 :

V N O Я I Я , 12 ,7) J

4 5 5 4 l L. ♦ 5 Э 1 : = V N O R l Л , 1 I , 4 ) i

З 4 ,

J : - / N O I! I A , 1 i , 4 1 ;

в J ,

L ' . •> > I

■ . и I ,i « , <, i I ;

L N 9 ; R : S S S M I i < 9 ) ;

i — ,

4 У

| I

l- = . + l « 9 » U 5 S M T H t N B E G I N I ; i l » 9 i

ПРѴіЛ. 5

ПР|Л. 5

ПРИЛ. S

ПРИЛ. і

1 1 0 , 0

I N T E G E R

A R R A Y

M S S M I ' I : I ь 3 2 ] , B U F 1 I : I J O I ;

1 1 1 , 0

т е к с т ( ' к о р а б е л ь н ы е

с и н о п т и ч е с к и е

с о о б щ е н и я * ,

1 1 2 , 0

ом, 1 , з , 1 1 ;

1 1 3 , 1 1

т е к с т ( • к о р л б с л ь н ы е с и н о п т и ч е с к и е с о о б щ е н и и ' ,

1 1 4 , 0

OM , 2 , 8 9 , 1 );

, С Т Я Т ,

1 , 0 , ; 1 ' , ' 2 0 0 ’ , 5 , 1 , 2 , 3 , 6 , 5 ) ;

1 1 5 , 0

S P ( ‘ 7 2 0

* , O M , 3 , 3

1 1 6 , 0

S P ( ‘ 7 2 0

’ , O M , 4 , 3

, С Т Я Т ,

1 , 0 , 1 1 ' , 1 2 0 0 ’ , 6 , 1 , 2 , 0 , 1 0 0 , 5 )

1 1 7 , 0

S P ( ‘ 7 2 1 ’ , о м , 7 , 1 3 0 , B U F ) ;

I : = K ; r 1 ;

1 1 8 , 0

w : = и г р I » 3 ; c o p y

( • 1 1 1 , w , S S M ) ;

1 1 9 , 0

SP ( ' 7 2 0 ' , 0 4 1 , 1 , 4 4 , S K M , ) , 1 , ' 1 0 ' , 1 3 ’ , 0 , 1 , 0 , 4 3 . 0 , 1 ) ;

1 2u , 0 S P ( ' 7 2 0 ' , OM 1 , 2 ,

1 6 3 2 , M S S M , 6 9 , 1 , ' 1 ’ , ‘ 4 0 0 ' , '

12 2 , 0 F O R

L : = 1 ST E D 1 U N T 1 L 1 6 3 2 D 0 M S S M [ L l l = 1 0 0 1 1 :

1 2 3 , 0

L : = I

: =

1 ; м 2 : 4 : =

S S

M I I ] ;

M S S M [ L

): = V N O R I

я , 4.a , 2 ) ;

1 2 4 , 0 M S S ' M L * г 1 : = V N O R ( я , 3 4 , 1 о ); M S S M [ L » 3 ) : = V N 0 n ( 4 , 2 4 , 3 )

1 2 5 . 0

Ч 3 5 Ч І

I : = ѵ , ю л ( л , 2 1, 1 1 );

4 5 S M U - *

1 1 1: = ѵ м о ч ( л., 1 о , io );

1 2 6 . 0

Lѵіг: л:=5s

м tt+ 1 j; мз5Ч(с*5і:=ѵмоя(я,<к,<);

1

2

7 . 0

M S S 4 1 L * 5 ] : = Ѵ Ч О П ( Я , « 5 , 7 ) ;

4 S S M [ L * r i : = ѵ

м о а ( я , 5 J , 7 ) і

1 2

8 . 0

U S 5 4 ( L * З С ) 1 = V 4 C R

< 4 , 2 6 , 7 ) J

M S S M t L * 1 2 ] : = V N 0 4 ( 4 , 1 » ; 7 J ;

1 2 9 . 0

H . S54 t L * 1 5 ] : = V N C «

(4

. 1 2 , 4

) !

M 5 S M

t L ♦ 1 6 1 ! = V N 0 4 ( Я ,8 , 4 ) !

1 3 6 . 0

* 1 7 ]

: = Ѵ М С - Ч ( Я , - 4 , 4 )

;

U M ; . ;

4 ; s S S M ( I + 2 ] ;

1 3 1 . 0

M S S 4 [ L * 1 3 ] : = V N 0 4 ( 4 , 4 4 , 4 ) ;

^ 4 S S M t L *1 4 ] : s V N O R ( 4 , 4 0 , 4 ) i

1 3 2 . 0

M S S M I L + 3 ] : = V N o « ( f l , 3 6 , 7 > ;

M S S M [ c * 9 Г . = ѵ ч о я ( я , 2 9 , 7 ) ;

1 3 3 . 1 MS SM i l » 1 <■ ] : = V N 0 R ( Д , 2 2 , 4 ) J

M S S M l U * 2 0 ) : s V M O R ( я , 19 , 4 ) ;

1 3 4 .0

M S 3 4 [ L * 2 1) : = V N O H ( я , 1 4 , 1 0 1 ; M S S M I L . » 1) : = V N O R ( я , 4 , 4 ) j

1 3 5 , 1'

L 4 3 :

я ; = s s si 11 ♦ 3 j ;

к ; = V N O R ( я , 45 , 1) ;

I F

K = I * I » 3 > O S S M

1

3

6 . 0

Т Ч Е Ч

B E 2 1 N

I : = I ♦ 3 ;

S O T O

M 3 E N O

1 3 7 , :

4 S S 4 1 L

1 * 8 ) : = V N O R ( Я , 4 3 , 4 ) ;

M S S M t L + 1 9 ] : a V N O R ( 4 , 3 9 , 4 ) i

1

3 8 , :

M S 5 4 H . ч 2 9 ] : = V N O R ( 4 , 3 5 , 7 ) !

M S S M [ L * 3 1 1 : a V N O R ( 4 , 2 8 , 1 0 ) ;

1

3

9 . 0

M S S 4 1 L * 3 2 ) : = V N O R ( 4 , 1 8 , 4 ) ;

M S S M ( L » 2 2 1 : = V N O R ( 4 , 1 4 , 7 ) ;

1 4 0 , 0

4 S 5 M ( L t 2 3 ] : 3 V N O R ( 4 , 7 , 7 1

;

L Ч 4 :

4 : = s s J [ I » 4 1 ;

1 4 1 , 0

к : s v N O R ( Я , 4 5 , 1 ) ; I F

к = і Т і * 4 » D S S M T H E N

B E G I N

1 4 2 . 0

1 I = I ♦ 4 ; G o t o M 3 E N 0

J N S 5 M [ L * 3 8 ) 1 = V N O R ( Я , 4 0 , 7 ) J

1 4 3 . 0

M S S M ( L * J O ] : a V N O R ( Я , 3 3 , 4 ) ;

M S S M l L * 3 6 l : = V N 0 B I f l , 2 9 , T ) ;

1 4 4 . 0

M S S M l L * 3 7 ) : = v N O R ( Я , 2 2 , 7) ;

M S S M I L « 3 3 ) 1 = V N 0 R ( Я , 1 5 , 4 ) j

1 4 5 . 0

M $ S M I L * 3 4 ) : a V N O R ( Я , 1 1 , 7 ) ;

M S S M [ U * 3 5 1 : = V N 0 R ( A , 4 , 4 ) ;

1 4 ь , о

L N 5 :

д : = S S M ( 1 * s ) ;

к : = V N O R ( A , 4 5 , 1 1 ;

I F

K = I T I * S » O S S M

1 4 7 . 0

T H E N

B E G I N

I : = I « 5 ;

G O T O

M 3 E N D

i

T 4 B , 0 ' M S S N [ L » 4 0 ] : = V N O B ( f l , 4 3 i 7 ) ;

M S S M t L * 2 7 1 : = V N O R ( я , 2 9 , 7 ) ;

1 4 9 . 0 M S S M I L * 4 3 ] : = V N O R ( я , 35 , 7 1 ;

150.0

MSSM(L*28JIsVNoRІЯ,22 ,7>;

MS$M[L*24]:=VNOR(Я ,)5,4) ;

151.0

MSSMIL *25]:=VN0R(Я,П

,4);

M5SMlL*25]:=VN0R(Я ,7,7)J

r»2,o

L N 6:

л:3SS M (I*6 11

к I

S

V N O

R

(fl, 4 5 , i);

IF

K =I *I *6»D S S M

1 5 3 . 0 T H E N

B E G I N

1 : = 1 * ь ;

G O T O

M 3 E N D

;

1-5 4 , 0

M S S 4 t L * 4 1 j : = » N O R ( f l , 4 0 , 7 ) ;

1 5 5 . 0

M S S M t L * 4 2 ) ; a V N O R І Я , 3 3 , 4 ) ; M S 5 M [ L * 4 7 ] : = V N O R I Я , 2 9 , 7 ) j

1 5 5 . 0

M S S M t L * 4 8 ) ; a V N O R ( A , 2 2 , 7 1 ;

M S S M l L ♦ 4 4 ] : = V N O R ( Я , 1 5 , 4 ) J

1 5 7 . 0

M S S M ( L * 4 5 J : S V N O R ( Я , 1 1 , 4 1 J M S S M t L * 4 6 ) 1 = V N O R ( Я , 7 , 7 ) i

1 5 8 . 0

L N 7 :

я : s S S M l I * 7 1 ;

N : S V N O R ( Я , 4 5 , I l I

l _F

K = I » I * 7 > 0 S S M

1 5 9 . 0

T H E N

B E G I N

I : = 1 ♦ 7 S G O T O M 3 £ N O

i

1 5 0 . 0

M S S M [ L * S 2 J : = V N 0 R ( Я , 2 9 , 7 ) ;

M S S M l L * 4 9 1 : = V N O R t Я , 1 5 , 4 » •

1 5 1 . 0

M S S M t L * 5 3 ] : c V N O R І Я , 2 2 , 7 ) ;

1 5 2 . 0

M S S M l L * 5 0 1 I S V N O R ( Я , 1 1 , 4 ) ;

M S S M t L * 5 I ] 1 = V N O R ( Я , 7 , 7 ) I .

1 5 3 . 0

L u e ;

A : a S S M I I * 8 ] I к : = V N O R ( Я , 4 5 , 1 ) ;

I F

K 3 1 T I » B > 0 S S M

1 5 4 . 0

T H E N B E G I N

1 1 * 1 * 9 ;

G O T O M S E N D

I

1 6 5 . 0

M S S M t L + 6 2 ) : a V N O R ( Я , 2 9 , 7 ) ;

M S S M l L ♦ 5 4 ): = V N 0 R I Я , i 5 , 4 ) ;

1 6 5 . 0

M S S M t L + 5 6 ] • a V N O R ( Я , 2 2 , 7 1 ;

1 6 7 . 0

M S S M t L * 5 5 ) J a V N O R ( Я , П , 4 ) ; M S S M I L ♦ 5 6 1 1 a V N O R ( A , 7 , 7 ) i

1 6 8 . 0

L N 9 1 Я-. a S S M I I * 9 ] i

К • = V N O R t A , 4 5 , 1 ) I

I F

K = 1 T I * 9 » D 3 S M