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

« • « • • • П А К Е Т . 0 0

••*••

1 2 1 Ш 0

F O R

L : = 1 1 г о о B E G I N

I F

N R = H T H E N

B E G I N

І 2 2 Ш 0

В P G ( 5 ) I

N S T : = T T N ( G , 1 , 5 ) :

E U 3 E

1 2 J 'll 0

N Ö T < O T H E N

G O T O

K O H E U E N O

t 2 N UJ 0

B E G I N

В p G ( J ) ;

N S T : = T T N ( G , 1 , 3 ) ;

I F

N S K O T H E N

1 2 І Ш 0

G O T O

к о н е ц ;

N S T ; = N R » 1 0 0 0 * N S T E N O

;

І 2 6 Ш 0

C O M M E N T

в ы д е л е н и е

и н д е к с а

и п р и з н а к а ;

I 2 7 U I 0

K : = N 3 T - ( N S T T 8 ) « B ;

J : = ( N S T - ( N S T T 2 0 A 8 ) « 2 0 A 8 ) T B

І 2 Ѳ Ш . 1

C O M M E N T

о п р е д е л е н и е

г р а н и ц

у ч а с т к а

C S P I ;

І 2 9 Ш Т

If к 7 3 T 4 E N

I

- . Z P E L S E

I

; = I

;

Пито

as:=C B C A T tI,о );

с :=свсдт[i,o*i];

l J i u o

і : = ( и - < « і * Г ) « і 2 ; . м ; = v N 0 R ( e a , i , i 2 ) ;

13211J0

M; = V N C R

( c ,

1 ,

I

2 I

;

I :=N S T T 2 O <8;

C S P I .

і з з ш с

C O M M E N T

п о и с к

с т а р л и х

б и т о в

в

із <ш г F O R J := N * I 5 T E P

I U N T I L M D O

I a s m -

B E G I N

o n : = c s p i ( о ) ;

1 3 6 ui г

N : = ( и ♦ П * 6 ;

M i V N O R O o . N . a ) ;

1 3 7 C J :

I F

4 = 1 T H E N

G O T O

O A E N ' J

;

с о т о

К О Н Е Ц :

І 3 8 1 1 Г

Д А I C M A K l 5 ] : = T T N ( G , 1 . , 2 ) ;

С М А К [ 6 J ; = T T N ( , J , 3 ) ;

1 3 9 lU ••

C M A M - U i s y y ;

C M A < | C l : = U 5 i

м о ш о

с м а к i 7 ] : = . i * T N P S [ к j j

G O T O

C 2 < ;

к о н е ц :

E N J L ;

I M t J O

C O M M E N T

a E B K A

П Е Р В О Й

Г Р Ѵ П П Ы

I « 2 | J J 0

. С У Х О П У Т Н О Г О

С О О Б Ц Е Н И А

H A

‘ S P ' ;

н з а ю

к I : ;

a P : ( 5 j ;

G O T O

C 2 7 ;

H A U J O

I F

G t 1 ] X ' N S T G l 2 ] X W P T H E N

1 * b -U П

C b K C B t l ;

I . F C H 0 P > 2 T H E N

G O T O

C 2 7 ;

i i k j ;

г M а к [ - 1 j ; а с у у ;

C M A K [ . I ] : =

C G G ;

I и 7 л г-

с м д и I 1 I : = i ;

с м а к t < ] : = c I w ;

C M A K I S ] : = C Q ;

M b i n

г м ' М t ~ 1 : = C S H

;

с м а к l 7 ] : = C O L ;

ПРИЛ. 2

ПРИЛ. 2

ПРИЛ, 2

ПРИЛ. 2

І З В Л О

F O R

T : = | S T E P

' U N T I L зоо

св я P

t М ,

т1 : = о

!

1 5 9 Ш 0

C B l C j a F A L S E

і

C B K P S I E T R U E

!

С К 5 Д Р

:»о;

1 6 0 Ш 0 C O M M E N T

П Р О В Е Р К А Н Я

' N A T E N ' ,

' I C E '

И • Л Е Д * I

1 6. 1 III 0

c4 :

B P S

( 5 )

1 6 2 ц ] 0

I F

С I 1 ) = N W * C t 2 ) = W A « G [ 3 ) = W T T c ( 4 ] = W E

1 6 3 Ш 0

»

C

[ S

] = W ; , T H E N

C o m

св;

G O T O

С 7 і

' 6 4 щ 0

I F

7

( G [

l ] s ' / t l Y G ( 2 ] a W C E C [ . S ) B W E ) T H E N

1 6 5 Ш 0

I F

7

( U I

1 ] E

N L » C ( 2 ) = W E 9 C [ 3 1 = W(

) T H E N

сото

С7;

1 6 6 Л 0

сз:

С М А К

t 2

)

: = 1

i

i N T S ; s N T S * l i

С О Т О

C 1 1 1

1 6 7 Щ 0

е в :

O B S T ; = T R U E

1 6 B UI 0 с7 :

I F

C t 3 C ] 3 r t E * C ( S C ] = W P 0 T H E N

B E G I N

' 6 9 Ш 0

свI сI a T R U E ;

corn

cR E N D

;

1 7 0 Ul 0

I F

S C « 4 T H E N

С О Т О

C O )

І 7 1 Щ 0 C O M M E N T

И С К Л Ю Ч Е Н И Е В С В Я Р И С К А Ж Е Н Н Ы Х Г Р У П П ,

1 7 2 Щ 0

И С П Р А В Л Е Н Н Ы Х П О П Р А В И Л У

' Е ' , . '

» •

I F

• *

1 7 3 щ 0

C B 1 C T H E N

B E G I N

C B I C I B F A L S E

;

174ш 0

C T

1 [ 4 5 ) I B

C T 1

[ 4

3

J *

I i

I73ш 0

F O R

T

I B - ' S T E P

' U N T I L C K C R P - 1 D 0

1 7 6 ц ) 0

IF С в Я Р І Т , 1 } в С М ] ' Г с В Я Р [ Т , 2 ) з С І 2 ] 7 С В Я Р І Т , 3 ) = і

П Р И л ,

2

П Р И Л .

2

П Р И Л .

2

П Р И Л .

2

1 7 7 0J П

« C B R P t T . 9 ) = C t 9 ] 7 C B R P [ T , S ) = S l 5 ] T H E N

В E U I N

1 7 3 dJ 0

C K G R p : = т + 1 ;

1 7 9 Ш 0

F O R

M I s C K G R P S T E P

l U N T I L

2 1 0 0

\ч і и и о

F O R

9 5 : = 1 S T E p

l U N T I L

S O O

C 3 R P t Ч , Я 5 ] 1 = 0 i

1 ѳ 1 ш с

« О Т О

С 9 Е N O

T J

1 8 2 d l 0

E N D

С В 1 « i

1 8 3 ill 0

F O R

Д 5 : = 1 S

T E P

l U

N T I L

5 D O

1 8 < Ш п

C È R P [ C K G R P , Я 5 ] ; = G [ Д 5 ] J

C K G R P 1 = C K G R P * 1 i

1 В 5 ш '

'

I F

C K « R P = 2 | T H E N

G O T O

C 6 J

18 6 Ш ' .

С 9 :

I F

N T Т 4 E N

G O T O

c s ;

і а п и -

I F

7 K 3 T и E N

G O T O

C < ;

2 '1 2 щ 1)

p !

о г о c 4 ;

П Р И Л . J

ПР.ІЛ.

!

прил

ПР3;:- 3

2 0 6 iD О

с 1 1 ; сок:=»;

гобщо

IF

Р I=WS ТНЕ N

BEGIN

ао?ло

IF CKGRP«»THEN GOTO CTTi

iqemo

COMMENT

ЗАНЕСЕНИЕ

ИНФОРМАЦИИ

ОСНОВНЫХ

2

О 9 Щ О

ГРУПП СООБЩЕНИЯ

В МАКЕТ;

2

1 О Ш О

C M K T I F O R

T := I S TE P

I U N T I L

S D O

в IT );=C B R P [о,г ]j

г11 шо

cMAK[ä):=TTN(B,i,n;

C M A K C9]:=T T N (B ,2,2);

2 2

9 Л U C O M M E N T

з и м а ;

2

3

О ш О

IF

SEASONS OTHEN

2

3

1 л О

FÜR

т:=23,24,70,72,7400

2

3

2 ш О

IF

СМАК(5] = ШТШ1_00Т0 с 13}