Файл: Кастин, О. М. Система первичной обработки метеорологической информации.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; |
|
|
|
|
|
|
|
|
9»
прил. |
г |
|
|
|
|
• ‘ • • • • • • • • • • • • • • • • • • • • П А К Е Т |
. 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 ) ; |
|
|