книги из ГПНТБ / Кастин, О. М. Система первичной обработки метеорологической информации

ПРИЛ. 2

ПРИЛ .

2

прил

ПЙИЛ

- 5 0 9 , 0

я з т а і і 3 : = f l s r B L N T s + i - i J - O S T I R ;

3 I 0 , 0

Д 5 5 В : = D P Е л * 1 ;

N T S : = 1 ;

3 1 1 . 0

мо:

OB S T :m s :=F ALSE

: K S G :=O ;

3

1 2 , 0

N s c : rflsTBtN T s i ♦ <i

s s : =eusTiNsc-

i;

3 1J , О

B 3 : a t f U S T ( N S G - 3 ) ;

r , s : = B U S T ( N S C -

1 !

3

I « , 3

P S : = B U S T t s s i - 1 1 ;

N S S : = N S G * S S + G S ;

3

1 5 , 0

N S 1 : = N G 2 : = N C 3 : = o ;

3 1 6 , 0

E N O

R 1 u

;

3

1 7 , 0

3

1 в , О P R O C E D U R E

B P C I G U G I ;

V A L U E C D G ;

I N T E G E R

C O G ;

3

1 0 , 0 C O M M E N T

B P G

в ы д а е т

в

G

г р у п п у

п о т р е б о в а н и я G D G

3 2 0 , 0

ж е л а е м а я д л и н а

г р у п п ъ 1

,

5 3 0 , 0

м i : s o : = K G i - ы е i ♦ i ;

5

, 0

F O R

i : = N G 1 3 T E P

( U N T I L

K G 1 0 0

3 3 2

, 0

I F O T S I N T H E N

с

t I - N G 1 ♦ П

; = W S L E L S E

B E G I N

3 3 3 . 0

s I M V : S B U S T

1 1

] ;

I F

S I M V > 3 2 T H E N

B G ; = B G * I ;

3 « ,

G [ I - N G 1 ♦ 1 J : = s I M V E N O

I ;

ЗЗІ ,О

N G I :

S N G 2 |

K U

I

: = K

G 2

;

N G

2 : P

N G 3 ;

3 3 6

, О

. K G Ü S K G S ;

N G 3 : = K S 3

; = A ;

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

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

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

П А К Е Т . 00

• •

ПРиЛ.

2

ПРИЛ.

2

ПРИЛ,

2

ПРИЛ

337(0

( 2 0

Т0

F

I N

8 P U E N

D

N

0

1 * 0

;

338,3

N S G :s N S

G +

K S

G J

K S

G ; = 0 ;

339,0

^IF KSTHEN

ВEU 1N

OBST:=TRUE

1 NT5!»NTS*1j

RICENO

i

340,0

SCIB BUSTEN S".] ;

3

^ 1 , 0

I F

S G < G 3 G T H E N

B E G I N

3

42 , 0

F O R

1 := 1 s т e в

I U N T I L

S G O O

B E G I N

3 4 3 , 0

S I M V : = B U S T I N 3

C *

I 1

;

1 F

S I M V > 3

2

T H

E N

BU:=BG+i;

3 44 , 0

uti]:= s I M V E N O

п е

р

е н

о

с г р у

п п

ы

с

визг

в и ;

3 4 5 , 0

м з с : = N s u » s u » 1 : I F

S G = G D G T H E N

G O T O

F I N B P U ;

З 4 6 ' , 0

£ F

S G = l 7 G l n = W E Q T H E N

3 4 7 , 0

B E G I N

K T i = T R U E

J

G O T O

F 1N B P G E N D

;

3

4 8 , 0

C O M M E N T

О Ь Ь Е Д И Н Е Н И Е

Г Р У П П ;

3 4 9 , 0

C T 1 1 8 ]: = C T 1 1 8 ]♦ 1 i

3 5 с , 0

м 2 : I F

N S G + K S G = N S S T H E N

G O T O

М 2 ;

3 5 1 , 0

N p G : = N 3 u * K S U ;

S P G : = B U S T EN P U J ;

3 5 2 , 0

I F

S G * S P G > G C l G T H E N

G O T O

F I N B P U ;

3

5 3 , 0 .

F O R

I - . B l S T E P

1 U N T I L

3 P U 0 0

B E G I N

п р и л . г

ПРИЛ.

г

ПРИЛ.

2

п р и л . г

з & 5 I о

м 3 і $ і м ѵ : C B U S T [ K G 1 J ;

I F

s i M V = w E Q * s t M v - 3 2 = w E a T H E N

З Ь Ь , 0

B E G I N K T : = T R U E

i G O T O M / E N D

;

3 f t 7 , 0

5 1 I = T T N ( B U S T , N G 1 , 1 ) < ■

;

S N : = T T N ( B U S T , K C 1 , 1 ) < 0 I

3 f t B , U

I F

S 1 « S N » 7 S 1 « 7 S N T H E N

G O T O F I N O D C ;

3 f t 9 , j

I P S 1 T H E N

N G 1 ; = N G 1 ♦ 1 E U S E M A ;

K G C = K S 1 . t |

3 F 0 , 0

I F

G O T O F I N o O G c N O

I L S !

3 F 1 , 0

S G = | o T H E N

B E G I N

K G 2 : = N S G * 1 9 ;

3 F 2 . 0

M b ;

K c i ; = N S C * S i

N G 2 : = N S G * 6 i

3 F 3 , 0

I F

G O T O F I N O O G E N O

J

3 F A , 0

5 G c 1 I T H E N

B E G I N

N G 2 : = N S G + 7 i K G 2 : = N S G * l l i

3 F 5 , 0

M F •

К С 1 : c N S G « S I

3 F 6 j 0

I F

G O T O F I N O O G E N O

;

3 F F , 0

S G = 1 5 T H E N B E G I N

M 6 E N D

;

3 F B , o

N G 3 : = N S G * U ;

K G 3 : = N S C M S {

G O T O

3 7 9 , и

I F S G M 6 T H E N

B E G I N

I : = м з с : + f e ;

3 3 0 ) 0

N G 3 : = N S G » I 2 ;

к о з : = м 5 с * і ь ;

M F E N Q J

3 8 1 . 0

I F

T T N ( B U S T , I , I ) » 0 T H E N

G O T O

M f t E L S E G O T O

3 3 2 . 0

I F S G * 1 7 T H E N B E G I N

;

3 8 3 . 0

N ; 3 • S N S G * 1 3 ;

K G S : = N S C * 1 7 ;

G O T O

M F E N D

3 В A , 0

G O T O M 1 0 E N Ü

G D G = S ;

3 8 5 . 0

I F G 0 G = 3 T H E N

B E G I N

K G I : = N S G * A ;

;

3 5 6 . 0

I F S G X A T H E N

B E G I N

G O T O

M J E N O

3 8 7 . 0

—.4.I F S G = 8 T H E N— B E—G—I——N K G i : s N 3 G * 3 ;

F I N O O G E N O

;

з в ѳ . о

I F

N G 2 : = N S C * A ;

K G 2 ‘. 3 N S G * B ;

G O T O

3 8 9 , 0

S G » 9 T H E N

B E G I N

K U ' , : = N S G + 3 ;

F I N 0 D G E N 0

J

3 9 0 . 0

N G 2 ; = N S G * 5 i

K G 2 ! = N S G * 9 ;

G O T O

3 9 1 . 0

G O T O M 1 0 E N 0

G o G = 3 )

3 9 2 . 0

I F G D G X 2 T H E N B E G I N

S E V E N ;

« Л , О

B O O L E A N

Р С Р , S 1 Р , R £ G P , S P A C E P і

4 2 2 , 0

С И [ J ) : = C T l І З І + 1 І

i

< 2 3 , 0

Р С Р 1 = S 1 Р I a R E G P : = 5 Р А С Е Р ; = F A L S E

P N I I : = T R U E E N D J

< 2 4 , 0

I t

S P N l s l T H E N

B E G I N

N R ; a 4 4 ;

R E C : = o ;

< 2 5 , O J : = f l S T B [ N T s ] i

S S : = B U S T [ J ] ;

G S : = B U S T l a *г1 ;

4 2 6 . 0

P s : = B u s T l j * 3 ] * i ;

' D O

B E G I N

4 2 7 . 0

F O R

5 I : = P S S T E P

- 1 U N T 1 L

B I ;

E N D

4 2 8 . 0

л з :

P C P ; = T R U E

U

;

S I M : = W N L ;

G O T O

Z S P ;

J

4 2 9 , 0

S G i a B

u s

T

j ;

о := 0

*I; яг: s i : = B U

5 T [ 0 1 ;

4 3 0 , a

I F

S I > 3 2 T H C N

B E G I N

s i : = s i - 3 j ;

4 з Г , о

i f

R E G * * L R T H E N

B E G I N

R E G : = W U R ;

в 2 :

4 3 2 , o

я 1 : R E G P : K T R U E

;

S I M : = R E G ;

G O T O

Z S P ;

E N D

J

4 3 3 . 0

G O T O R E N D

Г

f l ;

4 3 4 . 0

I F R E G = W D R T H E N

G O T O

' 4 3 5 , 0 R E G ; = W D R I

G O T O

Я 1 ;

G O T O Z S P ;

4 3 6 . 0

я ;

S I P : = T R U E

;

S I M : = S I ;

4 5 7 . 0

вз:

0 : =

j + i

;

S

G

: =

S G -

I ;

< 3 8 , 0

I^F

5 G X 0 T H E N

G O T O

A 2

;

Z B P ;

8 4 :

G S : = G S - I ;

4 3 9 . 0

S P A C E P : = T R U E

;

S I M : = N S P ;

G O T O

4 4 0 . 0

I F

G S ü O T H E N G O T O A 3 ;

4 4 1 . 0

P N I [ 5 Р N I ] I = P N I 1 ;

B E G I N

С T I Г 2 ] : = C T I J 2 I * S P N I ;

4 4 2 , 0

I F

O P N I - 1 5 < S P N 1 T H E N

4 4 3 , 0

O U T I N F ( P N I , S P N I ) J

R E G : = O E N D

;

4 4 4 . 0 P N I I : = T R U E

;

N R : = 4 4 ;

S P N I : = I ;

4 4 5 , 0

Z S P ;

G O T O

F I N ;

B E G I N

4 4 6 . 0

I F

N R < 2 T H E N

i

4 4 7 , 0 P N I [ 5 P N I 1 : = P N l 1 J

P N l l J s T R U E

4 4 в , o

N R : = < 4 ;

S P N I : = S P N I и E N D

;

П р И Л . 2

■ « • • « ■ • п а к е т . о о

• • • • • <

П Р И л . 2

п р и л .

г

п р и л . а

< 4 9 , 0

P N И : = P N И * D N O B ( S I M , N R ) ; N R I a N R - b J

4 5 0 , 0

I p S I P T 4 E N B E G I N S 1 P ; = F A L S E ;

G O T O В J E N 0 •

4 5 1 . 0

_[F O C P T H E N B E G I N P C P : = F f l L S e

;

G O T O B I E N D i

4 52

, 0

I F S P A C E P T H E N

BEGj ^ N

s P AC E P : = F A L SE ;

G O T O В A E NO

!

45 3 , 0

I F H E C P T H F N D E * I N R E C P ; = F A L S E i G O T O В 2 E N Q

J

45 4 , 0 F I N :

E N D

Z P N 1 •

4 55

, 0

4 5 5 . 0

C O M 4 E N T Н А Ч А Л Ь Н Ы Е П Р И С В А И В А Н И Я ;

4 5 7

, (J F OR NP : a 1 S T E P

1 U N I I L

1 6 0 0

4 5 8 , 0

F O R

a s : = 1 S T E P 1 U N T I U 5 0 0

J

< 5 9

, П

K MMI

4 P , B S ] ;

= 0 ;

s K H w : = o

<6( ,

, 0

F O R r j p ; = 1 5 r E p

t U N t l U

OMAMOO

H A M t N p ) : = о ;

п Ри л . г

п р и л . г

п р и л , г

п р и л . г

п р и л . г

477,0

Tviotij:«rto;

T » I D U U =*8;

ir.vnD 15): =W7 i

478 ,0

TVI 0 l4 J;=W5 1 TVIDtS

1NV.I0 I5 J:=W5 ;

479,0

ТѴЮІ7] :=ww;

T V I D I B M =*2;; тѵцD [9 ]: =ww;

480 ,0

TVlo llo ]: =N l; тѵ юі илгзмшг;;

т ѵ ю м г і : = н 5 ;

481,0

ТVI0 (15 1:=N5 i ТѴІО [14Q::^MS;;

T V 1D 115 ):=W 1J

482,0

F O R

N T ;= 1S T E P

I U N T I U я*®®

ITUUNT , 2 ]: =wo ;

485,0

Tu( 1 •l]:»wj; тиіг ,11 :=*re;; ітшц з ,1 ]: =W7 5

484,0

TU14, ll:=w5;

TU15, 1 ]

iTjL.il5 ,1 ): -Ho ;

485,0

To 17 ,rl :=W2 ;

rul7, 2

1

TT.u[[a ,1 ]: =нг:

485,0

T u 19 ,i j : =w 1 ; T U [9 , 2

1 :=*$;;

і т о і и , п ; = « і !

487,0

TUI 1.1,1):*47 i TUI 12 ,U-5=«S;;

.TUl 15, 1 1:=W5;

488,0

Tuii4,u:=N2i

Tuns,i3:=wn:;

489,0

TU12.21:=N S ;

490 ,0

NT5: = ii K S N B ;=U ; 0 вs т2 -ігошо

;

491,0

S M AM ;=S H 5M ;=S PN 1 := 1 ;

492,0

AM ZU :=7o7;

495,0

1NPUT ( КЯТ ,ASP 1,СВСATrtCS-PII„TN 'P s );

«94,0

4 9 5 , 0

P z s v :

- П О И С К

З А Г О Л О В К А С В О Д К И С О О Б Щ Е Н И Й ;

COMMENT

PZSV

4 9 5 , 0

4 9 7 , 0

сті

i іо] :=сті

м о і + і ;

4 9 8 , 0

O C I S F A L S E

J

V V : = G G : =03

4 9 9 , 0

к 1 S

RIG;

5 0 0 . 0

I F S S < 1 2 T H E N

BEGIN .

B P C ( 4 ) ;

5 0 1 . 0

I F S S c 4 T H E N

B E G I N

5 0 2 . 0

I F

G I 1 ) * W N « G I 2 ) = s W N « G 1 3 1 ? W N « 3 [ 4 ) = H N T

5 0 5 . 0

Ü 1 1 1 = W Z « G ( 2 I = r t C « G [ 5 1 = W Z S G [ 4 ) = W C

5 0 4 . 0

T H E N G O T O

S K I P P E L S t

G O T O K 6 E N D ;

. ............ .............. ...........n^Ktr.oa

•••*•

п р и л .

г

п р я л ,

г

п р и л .

г

п р и л . а

501,0

СОТО

K2END

SS«12;

506,0

COMMENT

ПОИСК

УКАЗАТЕЛЯ

ДАННЫХ UO(UO1,UO2 1 і

50 7,0

в р с (6);

и0

і:= с 11 ];

иогіесіг);

508,0

IF

UUlsWUTHËN

RЕС 1N

509,0

IF

UD2sWMTue2=rtS*U02=WCTUQ2aWLTHEM_______'

510,0

BEGIN

NZSjsNTSt

С T 1[11]:ВС T It 11]♦ 1*, СОТО

K4EHO

511,0

END

T E M P ;

51 г ,о

IF

UOIsNSTHEN

B E G I N

515,0

IF. U J

2=WM*UD 2=VN1THEN

SOTO K3EN0

S4NOP;

5 4 , *

K S G :auri 1 :=uo2 ;to;

N T S :=N T S * I ; R I G ;

511,0

T :=ss; N T S :=N T S - I i R I G ;

116,0 IF TT17T4EN GOTO K5J

517,0

COMMENT

ПОИСК

СРОКА н а б л ю д е н и я ;

518,0

кз:

FOR

T :=I S T S P

I U N T I I

S O P B E G I N

519,0

a P

G ( b

) ;

IF

5G=6TH EN

B E G I N

S2U ,0

IF

TTM(G,1,2)*0T4EN СОТО К7І;

521,0

<72:

yy:=T T N (G, 1,г );

G G :*T I N <S ,3 ,2 )i

522 ,С

IF

УУ>3 |TGG*2«THEN

GOTO К F iJ GOTO

K9EN0

!

52 5 ,п

IF

5 ;= <5e GrC7G5 =2THEN

GOTO K72;

К 7 1 1

520 ,J

IF

< і т и -,G= aT H E N

B E G I N

у у :=с с :=с ; G O T O

K O E N Q

J

521, п

<5c:=";

< S :=F «L 5E

E N D

T ; с о т о

к :« ;

526 ,Г

C C M -AENT

а н а л и з

ь г о р о й

с т р о к и з а г о л о в к а

сводки;

52 7 ,с к q:

р 1 :=кя :=(1 ; N Z S :=N T S ;

528 , с

F O R

г := 1 ь т £р

U I N T I L

SDO

B E G I N

5 29 ,0

N T S :=N T 5M ; н і с ;

55 0,0

IF

5

T < l

2 T H E N B

c G |

N b

P G ( 4 ) ;

551,0

TF

G[ 1)=:.V.|irCl2]=WM«a|3)=Wx«Cl<]=NXTH£N

532 ,0

в F GI N

IF

yy = 0 THEN

A I I B C GIN B P G 1A ) J

п р Ал , 2

ПР,1Л, 2

ПРИЛ. 2

ЛРИЯ..2

$33,0

ОУіаТТИ (С, I ,2 ) і

с с :=ТТN (G ,3.2 I;

534.0

IF ѵ « > з I T G C »24T H E N

B E G I N vv:sGG:=q;

541..0.

. -5212. Х7Е N£

1

C T | ( n K « C T i ( H l t l i

ЕЧР VVfO J.

536.0

P I :«W S ;

сото и г ; E N D

;

537.0

IF

G(1)>WN7G[2] B WN >G [3 ) S W)('BG[4]E WXTHEN

538.0

B E G I N

P I M W H ;

G O T O

K Z E N O ;

539.0

IF

G( IlsWOTlG 12 )EN9>G (3 )S W9THEN

540.0

BEGIN

N R :« T T N (C ,4 ,2 ) i GOTO

K7ENO

J

541.0

IF

V9 E 0?UQ1*0?7KSTHC N СОТО

All

GOTO K7£ND

SS<l2j

542.0

GOTO

К 70 i

543.0

K7;

END

T; СОТО

K i 7 ;

544.0

N 7 0 : N T M N T S J

54$,0

COMMENT

ПРОВЕРКА

НА

ЗАГОЛОВОК

СВОДКИ

546.0

СИНОПТИЧЕСКИХ

СООБЩЕНИЙ;

547.0 £F UOI.OTHEN BEGIN

54B,0

IF

P|BN3THEN

СОТО

К П І

549.0.

IF

NRFOTHEN

СОТО

Кв;

550.0

IF

PlzWHTHEN

СОТО

К Ю І

551.0

Kl7;

NTSJaNZS;

СОТО

К M E N D

i

552.0

i f

PI=0THF.N KB:BECIN

IF

9« = 0THEN

СОТО

К 17 j

533.0

P|;aHSEND

; сото

кіо;

554.0

к a':

IF

GS42THEN

BEGIN

555.0

'

U O 1•s N S ; *BPG(2)J GOTO К 3 END

;

556.0

К 6 •

Z P N l ;

5 5 7 . 0

SKIPP:

O B S T :»T R U E J

N T S ;=N T S + I ;

G O T O

к 1 ;

556.0

M i

FOR T;»lSTEP 1UNTIU 5D0 BEGIN

559.0

NTS'.E N T S M ;

R I G ;

IF

SSV12THEN

GOTO

К 1 IE NO

j

560.0

GOTO

к 17;