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

ВУЗ: Не указан

Категория: Не указан

Дисциплина: Не указана

Добавлен: 23.10.2024

Просмотров: 97

Скачиваний: 0

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.

п Ри л . г

п р и л . г

п р и л , г

п р и л . г

п р и л . г

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 ;

96


. ............ .............. ...........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

 

 

9?


п р Ал , 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;

 

 

 

 

 

 

 

 


прил.

г

 

 

 

 

• ‘ • • • • • • • • • • • • • • • • • • • • П А К Е Т

. 0 0

• • • • •

 

 

 

 

 

п р и л .

г

 

 

 

п р и л . 2

 

п р и л . г

 

 

 

 

 

 

 

 

 

 

 

 

561. 0

к 1 1 :

м т : = N т s ;

P

I ; =

W

T ;

сото

к і о і

 

 

 

5 6 2 . 0 K s :

 

I F 5 S < 3 3 T H E N B E G I N B P C I 2 I ;

 

 

 

5 6 3 . 0

 

 

I F

( C M J a W T U C l 2 ) = W T T C ( 1 J « N U » C t 2 J * H U |

 

 

5 6 4 . 0

 

 

 

2 ( G [ 3 ] = W f l 7 G ( 4 1 = w a T G l 3 j n W C * G ( 4 | « W C | T H E N

5 6 5 . 0

 

 

 

G O T O K 1 2 E L S E G O T O И 6 E N Q ;

 

 

 

5 6 6 . 0 K i 2 : o c : = T R U E

; с т i [ і з і : * с . т п и м

j N Z J : » O ;

с о т о H i l l

567. 0

K

i c

 

 

R I G

;

G O T O

К б ;

 

 

 

 

 

 

 

5 6 8 . 0

ню:

C O M M E N T

 

К О Н Е Ц

 

P Z S V ;

 

 

 

 

5 6 9 . 0

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

5 7 0 . 0

COMMENT

С Р Г Я Н И Э У Ю Щ Я р

ч я с т ь ;

 

 

 

5 7 1 . 0

 

 

 

I F C C * P I ± w T T H E N B E G I N G O T O R A T ;

 

 

5 7 2 . 0

ѵ д я т :

 

\r O C T S S » 4 0 T H E N

B E G I N

 

 

 

5 7 3 . 0

 

 

 

 

P l : = r t H |

G O T O R S T E N U

;

 

 

 

5 7 4 . 0

 

 

 

 

I F 7 0 C T H E N

G O T O P Z S V ;

 

 

 

5 7 5 , c

 

 

 

 

Z P N I ;

N T S : = N T S * I ;

 

 

 

 

5 7 6 . 0

 

 

 

 

0 h 5 T : ; T R U E

1 G O T O P Z S V E N O ;

 

 

5 7 7 . 0 S y i . O P l U O T C P S T ;

 

 

 

 

 

 

 

 

 

 

5 7 8 . 0 V R S T ;

I F C C T h E N - B E G I N P 1 1 = W T ;

 

 

 

579. 0

 

 

 

G O T O

 

ч а т ь

s o

;

 

G O T O P Z S V ;

 

 

 

5 8 0 . 0

F I

N

;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

5 8 1 , Г I F 5 Ч Я Ч 2 1 T H E N F K 4 M ( 0 , 5 Ч Я М . 1 , М Я Ч ) ;

 

 

5 8 2 ,

-

I F

S - I S » * 1 T H E N

F K M M ( 1 , S M S M - I , M S M ) ;

 

 

5 8 3 , -

CT i ik 1 : = с т 1 l < І * S = N1 ;

 

 

 

 

 

 

 

584 , -

e r

1 и г

j

: = c r

I L

i r

j -'cT

I

[

11 j - c T

I п з ] ;

 

 

 

ses,.-

KMv(is ,1 ]:=M3NT4 ; K M M [•6,2 ):=ояѵ; кмм[у ь ,з 1:=ті м е ;

5 8 ь , п к ч н и * , < 1 :

 

 

1 i t ;

к м м ( і 6 , 5 J : = N Z R T ;

 

 

5 8 7 , 0 с о Р 9 I К М М , •

1 3 о1 ’ ) ;

 

 

I N F

 

 

 

 

 

588 , 0

O U T P U T

( K M f

, CT

1 )

;

O U T

( P N I

, S O N I -

1 ) ;