книги из ГПНТБ / Кастин, О. М. Система первичной обработки метеорологической информации
.pdfЦРИЛ. |
3 |
|
|
ПРИЛ. 3 |
|
|
ПРИЛ. |
3 |
ПРИЛ. 3 |
|||
253,0 |
KiaiBBNV'.i^LSE |
і L :=L I ; G O T O |
к з ; K I S :L I «JI |
IF 7B N T T H I N |
||||||||
254 ,0 |
сото |
К 1Ьi IF |
3IT«KTRL=2THEN |
GOTO |
к II IF KTRL*2THE N |
|||||||
235,0 |
орто к |
1 4 j K T R L :=K T R L +i; F I :=O .F S ) сото к a ; |
|
|||||||||
256 ,0 |
К 14 ;1F |
BNTTHtN |
ВМЯКt1J;= В М Я К И JTCBt31; |
|
||||||||
257,0 |
К 16 ; |
|
|
|
|
|
|
|
|
|
|
|
25В ,0 |
If |
KTRL»1THEN |
СТЯТ[109 }:=СТЯТ1109)♦1; |
|
||||||||
259_,0. IF |
atTTeNTTH^N |
|
|
|
|
|
|
|
||||
260 ,0 |
FOR |
!:*15TEP |
lUNTJL 17J 0 |
ЯС[M 1♦I]:-BMЯКIIJi |
|
|||||||
261,0 |
K ;=L :=OJ F O R |
I :=3S T E P |
I U N T I L |
I7OO |
|
|
||||||
262,0 |
B E G I N |
B K U R ;гвмяк[I ); |
|
|
|
|
|
|||||
263,0 |
IF |
V N O R I B KU R ,4 7 ,1 )= I T H C N |
K :=K + I ; |
|
|
|||||||
264,0 |
I^F |
vNoR (BK U R ,46 ,1) = I T H E N |
L :=L + IEND |
: |
|
|||||||
265,0 |
стятМіі1:= стятиіП*к; стятціи):=стятмі9]*иі |
|||||||||||
266,0 |
K:=K*L| ^F |
K»2THEN стяT M 14 ):=CTЯТ[114)♦1J |
|
|||||||||
»267,0 |
IF |
K = I*K =2T H E N |
с т я т [n |
1+к 1:=с т я т [11 і*кі +1і |
|
|||||||
268,0 |
К 15;М1 :=м 1*17 ; |
IF |
M K 160 00THEN GOTO |
КО! |
|
|||||||
269,0 |
E N O |
с т я т и ч е с к и й |
к о н т р о л ь |
; |
|
|
|
|||||
270 ,0 |
СТЯТt101]:=(ЯСМ-15012)/17і |
|
|
|
||||||||
271,0 FOR J;s1STEP 17UNTIL 1600000 BEGIN |
|
|
||||||||||
272 ,0 |
|
С5 :сАС [J ]; |
|
|
|
|
|
|
|
|||
2 7 3 , 0 |
|
I F |
Т 0 С Ь ( С 5 , С 1 ( T H E N Ц 0 Т 0 L W |
|
|
|
||||||
2 7 4 , 0 . |
|
с т я т . р о о і ; = с т я т м о о ] * i ! |
|
|
|
|||||||
2 7 5 , 0 |
|
я с I о ] ; = с 5 » с з і |
|
|
|
|
|
|
||||
2 7 6 . 0 |
|
|
|
|
а |
B E G £ N |
|
|
|
|
|
|
I _ F J « 1 5 0 1 2 T H E N |
I F |
f l < 1 0 0 T H E N |
|
|
||||||||
2 7 7 . 0 |
|
Я ; - = Ѵ Ц 0 Я ( С 5 , 2 1 , 9 ) ; |
|
|
||||||||
2 7 6 , 0 |
I F |
B E G I N |
СТЯ ТІ Я ] : = С Т А Т [ Я ] ♦ 1 ! |
і |
|
|||||||
2 7 9 , 0 |
СТЯТІЯ + |
1 2 0 ) = 0 ТЙ Е N СТ Я Т |
I Я ♦ 1 2 0 ) : = J |
|
||||||||
2 8 0 , 0 |
|
E N O E L S E |
O U T P U T ( - 7 , 3 , С 5 1 E N D і |
|
|
|||||||
I4Q
П Р и Л . 3 |
П Р . і Л . 3 |
П Р И Л . 3 |
П Р и Л , 3 |
||
3 8 1 , 0 |
С Г Д Т 1 Ю З ) ; = С Т Д Т 1 I 0 3 ) + V N Q R ( C 5 , 4 2 , 1 ) J |
|
|||
2 8 2 , 0 |
U /1: Е N D |
0 - С Т А Т И С Т И К А ; |
|
о і ] ; |
|
2 8 3 , 0 |
с т л т [ і о 2 ] : = с т д т і і о о ) - с т д т ( і |
|
|||
2 8 4 , 0 |
С О Р У ( С Т Д Т , 1 I 1 *, N 2 R T I ; |
] ; 3 M Z R T * |
; |
|
|
2 8 5 , 0
2 8 6 , 0
2 8 7 , 0
2 8 8 , 0
2 8 9 , 0
2 9 0 , 0
2 4 1 , 0
2 9 2 , 3
с о р у ( д с , ‘ 11 ■ , 1 ) ;
S P I ‘ 7 2 0 ' , 6 У Ф , 1 , 2 2 0 , Т Т Д Т , 2 0 , 1 ,
' Г , |
' 5 3 0 1 , 8 , 2 , ю , 1 9 , 0 , 3 ) і |
s p t ^ i ' . b y p . s o . o . ' o ' ) ; |
|
E M U Б Л О К У П О Р Я Д О Ч Е Н И Я Д Э Р О П О Г И И ; |
|
C O M M E N T |
у п о р я д о ч е н и е с и н о п т и ч е с к и х с о о б щ е н и й ; |
B E G I N I N T E С Е Я М Б , Д М 3 ; |
|
C O M M E N T |
У П О Р Я Д О Ч Е Н И Е С О О Б Щ Е Н И Й О Д Н О Г О С Е Д Н С Д С В Я З И ) |
2 9 3 , 0
2 9 < , 0
2 9 5 , 0
2 9 6 , 0
2 9 7 , 0
2 9 8 , 0
2 9 9 , 0
3 0 0 , 0
3 0 1 , 0
30 2- , 0
40 3 , 0
30 4 , 0
30 5 , 0
30 6 , 0
30 7 , 0
B E G I N B O O L E A N А Я Я А У С И Н [ 1 1 1 8 0 0 0 1 i I N T E G E R Д С И Н І
C O M M E N T |
О Б Ь Е Д И Н Е Н И Е П О Л Е Й М А К Е Т О В |
|
|
С И Н О П Т И Ч Е С К И Х С О О Б Щ Е Н И Й ; |
|
B E G I N I N T E G E R |
Д С Н , З О Н А , 1 , К , 3 ; |
|
B O O L E A N А Я Я Д У С Н І І М О О О ) ; |
||
F O R l : = 0 S T E P |
l U N T l L 2 2 о 0 0 с т д т [ ) ) : = о ; |
|
С Т Д Т [ 1 1 5 ] : = О А У 1
с т я т 1 1 1 6 ] : = M O N T H i
’ с т а т и і 7 ) : = т і м е ;
д с и н : = о і I : = 1 ;
С Л Д : Ю К М М [ I , 2 1 = 0 T H E N G O T O с е д ;
I F К М М [ 1 1 1 1 X 1 Т Й Е N G O T O С Л Е Д ;
Д С Н ! = K M M t I , 2 ) ;
з о н а : = к м м [ I , о ] ;
С О Р У ( З О Н Д . С Н ) j
3 0 8 , 0 |
к : = д с и н + і ; дсин:=дсин*дсні |
|
П Р И / 1 . 3 П Р и Л . 3 П Р | Л , 5 П Р . | Л , 1
Г ' '
3 0 9 . 0 |
|
|
Р О Я |
JI = K S T E P . ( U N T I L |
|
Д С И Н О О |
С И Н [ J ] : з С Ш О - К * 1 1 ; |
|||||||||
J i o . o |
с л е д : і : = і * і ; |
с о т о с п а ; |
|
|
с е л : |
|
|
|
|
|||||||
3 1 1 . 0 |
E N D |
|
О б ь Е д й Н Е Н и Е П О Л Е Й М д К Е Т О В В С И Н ; |
|
|
|||||||||||
3 |
1 2 , 0 |
|
|
|
о б р а б о т к а |
м а с с и в а |
с и н ; |
|
|
|
|
|||||
3 1 3 . 0 |
C O M M E N T |
|
|
|
|
|||||||||||
3 1 4 . 0 |
B E G I N |
I N T E G E R |
I , Р , Q , Я , С С , H P , Д К , М ; |
|
|
|||||||||||
3 1 5 . 0 |
|
|
I N Т Е С Е Я |
Я Я Я А Ѵ |
Н С П , К С П [о : 9 9 1 , Я М К , Я С В [ 1 : 4 5 0 0 ] J |
|||||||||||
3 1 6 . 0 |
|
|
|
У П О Р Я Д О Ч Е Н И Е К О Р А Б Л Е Й И » О Р М И Р О В Н Й Е С П И С К О В |
||||||||||||
3 1 Г , О C O M M E N T |
||||||||||||||||
3 1 В , О |
|
|
П О Р А Й О Н А М Д Л Я С У Х О П У Т Н Ы Х С О О Б Щ Е Н И Й ; |
|
||||||||||||
3 1 9 . 0 |
B E G I N B O O L E A N |
Я Я Я Д У |
С И Н К [ 0 : В О О J 1 ; |
|
|
|||||||||||
3 2 0 , 0 £ F |
Я Е С I M E s U T H E N |
P : = 3 S T E P |
1 U N Т I L. 8 0 0 1 0 0 С И н К [ P J ! = O E N D |
|||||||||||||
3 2 1 . 0 |
|
|
В Е И Ы |
|
|
|||||||||||
3 2 2 , 0 E L S E |
B E G I N |
P : = N Z R T * 3 ; |
С О Р У ( ‘ I I |
’ , P , С И Н К ) E N O ; |
|
|||||||||||
3 2 3 . 0 |
|
|
I : = 1 ; |
c c ; = o ; |
с 5 ; = с и н к ( о ) ; |
|
|
|
|
|||||||
3 2 К , О |
|
|
Д К : = V N О R ( C S , 1 5 , 1 5 ) ; |
|
9 9 0 0 |
Н С П ( Р ] : в К С п ( р ) ; = П J |
||||||||||
3 2 5 . 0 |
|
|
F O B |
Р : = О S Т £ Р |
1 U N Т I L |
|
||||||||||
3 2 6 . 0 |
|
|
F O R |
P : = l S T b P |
l U N T I L |
|
< 5 0 0 0 0 |
Я М К ( р ] ; = д с в 1 Р ] : * 0 ; |
||||||||
3 2 7 . 0 |
я р т : e s : = с и н [ I ] ; |
я : = V N O R ( с 5 , < ь , 2 ) ; |
|
|
||||||||||||
3 2 B , О I F |
Я = 1 * Д = З Т Н Е М |
B E G I N |
|
|
|
|
|
|
|
|||||||
3 2 9 . 0 |
9 V : = V N 0 P ( C 5 , 4 < , 5 ) ; |
G G : = V N O R ( С 5 , 3 9 , 5 ) ; |
M ; |
|
||||||||||||
3 3 0 , 0 |
I F |
У У = 0 f l V T H E N |
В Е С I N I F |
G C = T I M E T H E N G O T O |
; |
|||||||||||
3 3 1 . 0 £ F |
G G = T I M E - I * G G I T I M E 1 T H E N |
G O T O |
|
M ; G O T O |
M M E N D |
|||||||||||
3 3 2 . 0 |
|
y y = D A 9 - 1 T H E N |
B E G I N |
I F |
7 < G G = 2 4 ♦ G G = 2 3 ) T H E N С О Т О М м ; |
|||||||||||
3 3 3 . 0 M ; 1 F Д = 1 T H E N G O T O С П И С К И ; |
|
G O T O M O P E E N O |
; E N D |
; |
||||||||||||
3 3 4 . 0 |
м м : 1 : = I ♦ 1 j |
|
I F I < n C H H T H E N |
G O T O |
|
R P T ; |
|
|
||||||||
3 3 5 . 0 |
|
|
П 3 *. |
|
|
|
|
|
||||||||
3 3 6 . 0 |
К о н с и н : |
с и н к ( о ] : = D N o a ( а к , i I T D N O R ( M O N T H , 1 9 ) |
|
|||||||||||||
142
П Р И Л . 3 |
.«f. |
. . . . . . П А К Е Т . 0 0 |
. . . . . |
П Р /1 л . 3 |
П Р Ц Л . 3 |
П Р и л • 3 |
3 3 7 , 0
3 3 8 , 0
3 3 9 . 0
зки,о
3 4 1 , 0
• D N O R ( О Д У , 2 5 ) « D N O R ( Т І М Е , 3 1 I !
с т я т [ 1 1 9 і : = л к ;
I : = N I R Т . 3 ; С О Р У ( С И Н К , * 1 1 * , 1 ) ;
F O R |
i : = i S T E P |
I U N T I L д к о о B E G I N с 5 : = с и н к [ і ) ; |
I F |
V N O R ( C S , 4 6 , 2 ) = J T H E N B E G I N |
|
3 4 2 |
, о |
|
3 4 |
3 |
, 0 |
3 4 |
К , О |
|
3 4 |
5 , 0 |
|
3 4 |
6 |
, 0 |
3 4 |
7 |
, 0 |
О Х Д Т 1 1 о 1 ] : ± с т д т 1 1 о1 ] ♦ 1 ; I : = J . 3 E N O E N D |
I ; . |
||
G O T O У Л О Р Я ц ; |
|
||
с п и с к и : |
c c : = c c * i i |
H P : = V N O R ( C 5 , 2 7 , 7 > J |
|
I F |
Н С П І Н Р ) = O T H E N B E G I N |
; |
|
|
н с п ( H P ] : = к с п [ H P I : = c c ; G O T O n 2 E N D |
||
я : = к с г ц н в ) ; |
л е в [ я ] : = к с п ( H P ) : = c c j |
|
|
3 4 8 |
, 0 |
3 4 9 |
, 0 |
3 5 0 . 0 |
|
3 5 1 |
. 0 |
3 5 2 |
, 0 |
3 5 3 , 0
3 5 4 , п
3 5 5 ,1,
3 5 6 , 0
3 5 7 . 0
3 5 8 |
, О |
3 5 9 |
, 0 |
зби.о
п г : |
|
д м к [ с с ] : = i ; i : = i + j ; |
G O T O |
n 3 ; |
|
|||||
M O P E : |
C 6 ; = C 5 4 c o ; |
I U N T I L f l K D O B E G I N |
С 7 1 = С И Н К ( Р ] ; |
|||||||
F O R |
P ; = 1 S T E P |
|||||||||
£ F V N O R ( с ? , 4 6 , a I = 3 T H E N .B E G I N |
C 7 : = C . 7 * C O ; |
|
||||||||
|
|
I F |
T 0 C 0 ( C 6 , C 7 ) T H E N |
B E G I N |
1 : = I + З І |
|
||||
|
|
|
С Т Я Т M 0 3 ) ; = С Т Д Т t 1 0 3 ] ♦ 1 i G O T O П 3 E N O ! |
|||||||
П 4 : |
P : = P + 2 E N O |
E N D |
ц и к л |
. |
p ; |
|
I l d + i ; |
|
||
|
Д К ! = Д К + | ; С И Н К І Д К 1 : = C 5 J |
|
||||||||
I F |
|
I > O C H N T H E N |
G O T O к о н с и н ; |
с ' 4 : = с и н ( 1 ] ; |
||||||
I F |
|
V N O R ( C 5 , 4 5 , 1 ) = o T H E N |
G O T O 1 1 4 ; G O T O |
R P T ; |
||||||
9 n o p я д ; |
E N D |
в ы б о Р к л |
к о р д б л е й |
и ф о р м и р о в а н и е |
с п и с к о в ; |
|||||
C O M M E N T |
|
у п о р я д о ч е н и е |
с у х о п у т н ы х |
с о о б щ е н и й ; |
|
|||||
3 6 |
1 . 0 |
B E G I N B O O L E A N |
ДЯЯДУ |
Б УП С 1 I |
1 2 0 0 0 ] |
, У П М I |
1 I |
4 0 0 0 ) ; |
» |
|
3 6 2 . 0 |
М Б : = 0 ; |
м*. = 1 ; |
я м б : = 1 0 2 5 ; |
|
У Л М [ |
I ] |
: = С 2 ; |
|
||
3 6 |
3 . 0 |
F O R I ; S 1 S Т Е Р |
I U N T I L |
4 0 0 D D O |
|
|||||
3 6 |
4 , 0 |
F O R 1 : = 0 S T E P I U N T I L |
9 9 0 0 B E G I N |
|
||||||
|
|
|
|
|
|
|
|
|
||
I
ПРИЛ. 1 |
ПРИЛ. |
1 |
ПРИЛ. я |
ПРИЛ, .1 |
|
3 6 5 , 0 |
а ; = н с п ( і ) ; I F |
A = I T H E N |
с о т о |
и о н ; |
|
3 6 6 , 0 |
F O R Р I = ' S Т E P |
1 U N T I L 1 2 0 0 0 0 0 |
Б У П ( Р І І = С 1 ) |
|
|
З Ы ( 0
3 6 8 ,0
369,0
370,0
371,0
372,0
373,0
374,0
Згз.о
376,0
377,0
378,0.
379,0
380,0
381,0
382,0
383,0
384,0
383,0
ир1 1 |
р :»д м к [Я)і |
а:=дсв(д]; |
с з і в с и н і р ) |
|
||||||||
|
A:-VNOR(CS,20,10)»12+1; |
Об IвБУПI а 1; |
||||||||||
|
IF TOCO(С 8,С 1»THEN |
BEGIN |
|
|
|
|
||||||
|
пЕ: |
6УП[А);*С5; |
д:=д*і; |
р :=р * і ; с з і в с и н і р ]; |
||||||||
|
IF VNOR(C5, 4 3 ,1)B0lP2flcnHTHEN GOTO ПE ; |
|||||||||||
|
GOTO |
CMCENO |
|
ПЕРЕНОС |
МАКЕТА; |
|
|
|
||||
|
ствт 11 0 2 ]:=ст A T [102 ]* 1 ; |
|
|
|
|
|||||||
U VNOR(C&,48,2)»VNOR(СЗ,48,7(THEN |
СОТО |
П£ |
||||||||||
Смсі |
if O K O T H E N |
B E G I N д :=о ; |
|
|
|
|
|
|||||
|
GOTO |
R P T E N D |
|
K O H E U |
р а й о н а |
. i; |
|
|
||||
C O M M E N T |
п е р е н о с |
м а к е т о в |
C |
syn |
в |
по ле |
у п м ; |
|||||
|
FOR Р: = 15ТЕР |
12U4TIL |
12 00000 |
BEGIN |
СЗІхВѴЩР] |
|||||||
|
IF |
TO G O (C S ,C I ITH EN |
G OT O |
K H ; Q :*P ; A :I P * I2 J |
||||||||
|
ni: |
упм(м]:=сзі |
a:=a*i; |
ч:=м*і; С5:=б у п (і ); |
||||||||
|
I/ |
7T0G0 (C3 ,C 1)>Q <A T HE N |
GOTO |
П i; |
|
|||||||
|
IF |
M >3986T H E N |
B E GI N |
м б :=м б »1; |
M := I ; |
|||||||
|
Со р у і у п ч .д м в ); дчБ:=АмБ*зг; |
|
|
|
||||||||
|
FOR |
G := ISTEP |
H JNT IL |
4 0 0 0 0 0 |
у п щ з ];=C 2 ENO ; |
|||||||
|
K H : |
END |
P |
- |
БУП |
в |
ѵпм; |
|
|
|
|
|
3 8 6 . 0 |
К О Н ; |
E M O |
1 - У П О Р Я Д О Ч Е Н И Е П И К Е Т О В П О С П С К Д М ; |
|
3 8 7 . 0 |
E N D |
IF |
НК 1THEN BEGIN |
М Б : = М Б * і ; С О Р У (У П М , Л Ч Б )E N O |
3 8 8 . 0 |
У П О Р Я Д О Ч Е Н И Е ; |
|
||
389,0 |
END |
о б р а б о т к а м а с с и в а |
с и н ; |
|
390,0 |
EklD |
УПОРЯДОЧЕНИЕ СООБЩЕНИЙ ОДНОГО СЕАНСА; |
||
391,0 |
|
|
|
|
392,o B E G I N B O O L E A N а я я д у пи I о : з о о о о ) , п м б ( 1 : 4 О О О )
............................................................. ........................................* ................................................................................................... |
П А К Е Т * 0 0 |
• • • • « |
П Р И Л . 3
П Р | Л . 3
П Р и Л . 3
П Р и Л . 3
191, 0
3 9 4 , 0
3 9 5 , 0
3 9 6 , 0
3 9 7 , 0
3 9 8 , 0 і 9 9 , 0 4 0 0 , 0 4 0 1 , 0 4 0 2 , 0 4 0 3 , 0 4 0 4 , 0 4 0 5 , 0 4 0 6 , 0
4 П 7 , 0
4 0 8 , 0
4 П 9 , 0
4 1 6 , 0
4 1 1 , 0
4 1 2 , 0
4 1 3 , 0
4 1 4 , 0
4 1 5 , 0
4 1 6 , 0
4 1 7 , 0
4 1 8 , 0
4 1 9 , 0
4 2 0 , 0
|
I N T E G E R н п н . н м . а п м , н м б , н с т і , н с т а , і ; |
|
|
|
||||||||||||||
н п м : = 1; |
я м б : = і о 25 j |
|
|
|
|
|
|
|
|
|
|
|||||||
|
с т я т [ і р 8 ) : = м в : |
|
|
|
|
|
|
|
|
|
|
|
||||||
I F R E G I M ES OT H E N B E G I N . |
|
|
|
|
|
|
|
|||||||||||
|
|
н м : = 3 0 0 0 1 і |
|
GOTO |
|
RPBEND |
; |
|
|
|
|
|
||||||
I : = N z я т ♦ < ; |
c o p y ( * 11* , I , п м ) ; |
|
|
|
|
|
|
|||||||||||
C7 : SIIMI 0 ] І |
f l n M S = V N 0 R ( C 7 , 1 5 , 1 5 ) І |
|
|
|
|
|
||||||||||||
FOR |
|
I ! = n S T E P |
1 U N T I L |
|
Д |
П М |
- I D O |
П М l 3 0 0 0 0 - |
1 ] : SIIM t Д П Ч - |
I ) J |
||||||||
|
н |
м : = 5000і - |
д п |
м |
; |
с |
о |
ю |
|
R P B J |
|
|
|
|
|
|
||
RPT: |
С 5 |
! = |
П М І Н М 1 |
і |
и |
с |
т |
1 ; = V N O R ( C 5 , 2 7 , |
1 7 ) J |
|
|
|||||||
|
|
H C T 2 : = VNO R ( C 6 , 2 7 , 1 7 ) ; |
|
|
|
|
|
|
||||||||||
I F |
HCT 1=HCT2THEN |
|
BE GI N |
|
|
|
|
|
|
|
||||||||
—*“ |
|
|
|
|
|
|
————— |
|
|
|
|
|
|
|
||||
|
с т я . [ 10 5 ) ; = с г я т 1 1o s ) + i ; |
|
|
|
|
|
|
|||||||||||
I F |
V N O R ( C 5 , 4 8 , 3 ) > V N 0 R ( C 6 , 4 B , 2 ) T H E N |
BEGIN |
|
|
||||||||||||||
|
|
с т |
я т |
110Ы |
: = |
с т |
я |
т |
[ i |
о б ) * |
i ; |
|
|
|
|
|
||
R P l : |
п м [ н п м ] : і С 6 ; |
н п м : = н п м + J ; |
|
|
|
|
|
|||||||||||
|
|
и м Б : = н м б + і і |
с е ; = п м б ( н м б ] ; |
|
|
|
|
|
||||||||||
|
|
I F |
V N O R ( C 6 , 4 5 , 1 ) = 0 « C 6 T H EN |
GOTO |
RP 1 ; |
|
|
|||||||||||
|
|
н ч : = н м + г ; |
|
R P 2 : |
|
|
H M ; = H M * I ; С 5 і г П м [ Н ц ) ; |
|
|
|||||||||
|
|
I F |
V N O R < C 5 , 4 5 , 1 ) = 0 * H M * 3 0 0 0 0 T H E N |
GOTO |
R P 2 i |
|
||||||||||||
|
|
ENO |
ELSE |
p E G I N |
|
|
|
|
|
|
|
|
|
|||||
|
|
с T я T 1 1 0 7 ) : = с Т я т [ 1 0 7 1 * 1 ; |
|
|
|
|
|
|||||||||||
и р з : |
п м і н п м ) : г с 5 ; |
|
н п м ; = н п м * і ; |
ң м : = н м * i ; c s ; = п м ( н м ) ; |
||||||||||||||
|
|
I F |
VNOR( С 5 , 4 5 , і ) = 0 « H M < 3 0 0 0 Q T H E N |
GOTO |
R P 3 ; |
|
||||||||||||
|
|
н м б : = н м Б * з ; R P 4 : |
н м б : = н ч б + і ; е в : = п м б і н к б |
] ; ’ |
||||||||||||||
|
|
I F |
VNOR( С 6 , 45 , 1 ) = 0 «C6THEN |
GOTO |
RP4ENU |
J |
|
|||||||||||
|
GOTO |
riPOBcND |
|
|
H C T ] |
= |
H C T 2 ; . |
|
|
|
|
|
||||||
I F |
HCT 1 <HCT2THEN |
|
BEGI N |
|
|
|
|
|
|
|
||||||||
145
П Р и Л . 3
П Р „ Л . 3
П Р . і Л . 3 |
П Р И Л . 3 |
<гі ,о <гг,о <23,0 <24,0 <25,0 <26,0 <27.0 <2-8,0 <29,0 <30,0 <31, <32,u <33,0 <з< , 0
<35,0
<36,0
<37,0
<38,0
<39,0
<<0,0
<<1,0
<<2,0
<<3,0
<<< ,0 <<5,0 <<6,0 <<7,0 <<8,0
R P 5 ; |
п м [ н п м ) ; = с 5 ; |
н п м ; = н п м * і ; |
н м :=нм * і ; С 5 : = п н ( Н н ] |
|||||
|
IF |
VNOR (С 5 ,45 , 1 )= 0» HM 23 0.0 0 0THEN |
СОТО RP5J |
|||||
|
END |
ELSE BEGIN |
|
|
|
|
|
|
RP6 ; |
п м 1 |
н пм ]: = с б ; н п м := н п м + і ; |
|
|
||||
|
н м б ; = н м б + і ; с б := п у 6 і н м б 1; |
|
|
|||||
|
IF |
V N O R ( C 6 , 4 5 , 1 ) = 1 «C6THEN |
GOTO |
RP6J |
||||
|
E N D |
H C T I » < н с т 2 ; |
|
|
|
|
||
п р о а : I F 7 T Ü C U (С6 , С 2 itHiN |
B E O I N |
|
|
|||||
ПРПр11IF |
HMT30 0 0 0THEN |
GOTO |
R Р Г ; |
|
||||
я р 7: |
IF |
T O C D ( С 6 , С j )THEN |
GOTO |
RP 8; |
|
|||
|
п м [ н п м ] ; = с б ; н п н :=н п м » іі н м б :=н м б * і ; |
|||||||
|
с 6 :J п м Б 1н м ь ); G O T O R P 7 E N O ; |
|
||||||
RP 8 ; IF M B F O T H E N B E G I N |
|
|
|
|
||||
|
|
м б: =м ь - і ; н м б := і ; C O P V (я м б ,п м б ); |
||||||
|
д м б :=я м ь *32! |
С 6 : = п н б і і і ; |
G O T O |
п р п м е ч о і |
||||
Rp 9: |
IF |
H H 2 3 0 0 0 0 T H E N |
BEGIN |
|
|
|
||
|
п м ( н п м 1 := п м [ н н ) ; н п м : = н п ч + і ; |
|
||||||
|
Н М ;= Н М + 1 І GOTO |
R P9 EN 0 |
; |
|
|
|||
НЛ М ; з Н П М - 1 ;
лм [о 1: = 0 N 0 R ( Н П Ч ,I )•0 N 0 Я ( M O N T H ,19)
»D N O R (0 Я У , 2 5 ) 2 0 Н 0 Н ( T I M E , Л і ); ст'яті 113] :*НПМ|
I :=NZRT + < 1 с о р J (п м , ‘ п ' ,I );
FOR 1 Js I ST EP lUNTIL Н ПМ ОО |
B EG IN С 5 М П М І П ; |
V N O R ( С 5 , 4 5 , 1 ) = ITHEN |
BEGIN |
С ТЯ Т [ 100 ] ;.=СТ ЯТ [ 10 0 )♦ 1 ;
£F V N O R (с 5 , < 8 , 2 IFoTHEN
ст я т [ 1 э < ] : S C T я т ( іо <)* 1 ;
П Р И Л . 3 |
|
|
|
|
ПР г і П , |
3 |
|
|
|
................................П А К Е Т |
. 0 0 |
, |
|||||||
|
|
|
|
|
|
|
|
|
|
|
П Р И Л . |
Л |
П Р И Л |
|
|||||
4 4 9 , 1 1 |
|
|
н м : = V N O R ( С 5 , 2 7 , 7 ) і I F H M « 10 О Т НЕ N |
|
|
||||||||||||||
4 5 0 . 0 |
|
|
B E G I N |
с т я г I H M ] := с т я т [нм ] 4-1; |
|
|
|
||||||||||||
4 5 1 . 0 |
|
|
IF C T Д T [H M * 1 2 0 ] = 0 T H £ N |
|
О U Т Р U Т ( - 9 , 1 , С 5 ) j |
|
|||||||||||||
4 5 2 , 0 |
|
|
С Т Д Т [ Н М * 1 2 С ] : = 1 E N D |
E L S E |
|
||||||||||||||
4 5 л I о |
|
1 : s 1 * ? £ N о |
; |
|
|
|
|
|
|
|
|
|
|
|
|
||||
4 5 4 , : |
E N L |
S ? |
і; |
|
2 0 ' |
, 6 |
У « |
, |
1 , 220 , С Т А Т , |
2 0 , |
1 , |
|
|
|
|
||||
4 5 5 , 0 |
|
( ' |
7 |
|
|
|
|
||||||||||||
456,- |
|
|
■Г , '500', а, 2, 10,19, о, з ) ; |
|
|
|
|
||||||||||||
4 5 7 , |
|
5 Д ( 1 72 1 • ,D y » ,50 ,0, ■ 0 ’ ) ! |
|
|
|
|
|
|
|
||||||||||
4 5 В , -: |
I : = м і в т * 2 ; |
с о р у [ с т я т , ■ 1 Г |
, I > ; |
|
|
|
|
|
|||||||||||
<59, с EM'J |
|
О Б Ъ Е Д И Н Е Н И Е С И Н О П Т И Ч Е С К И Х |
С О О Б Щ Е Н И Й |
|
|
||||||||||||||
4 6 0 . 0 |
|
Р А З Н Ы Х С Е А Н С О В с в я з и ; |
|
|
|
|
|
|
|
|
|||||||||
4 6 1 . 0 E N U |
|
У П О Р Я Д О Ч Е Н И Е С И Н О П Т И Ч Е С К И Х С О О Б Щ Е Н И Й ; |
|
||||||||||||||||
4 6 2 . 0 |
ENJ |
; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
4 6 3 , с C O M M E N T |
|
н а к о п л е н и е |
н а м л а э р о л о г и ч е с к и х |
|
|
||||||||||||||
< 6 4 , 0 |
в Е ; |
м |
|
С О О Ь Н е ЧИИ |
Л И |
ВСЕ |
С Р О К И ; |
, Я |
Р [ |
і : 4 о с о |
) ; |
|
|||||||
46 5 , : |
B O O L E A N |
к |
ляд у |
я [ |
о ; |
г л |
5 |
о о ] |
|
||||||||||
< 6 6 , . |
I Ч Т г -3 Е р |
|
с л , ! . я , з о н д , 1 , 3 , к ; |
B O O L E A N |
C l ; |
|
|
||||||||||||
4 6 7 , 1 |
ІЕ |
Л ЕС IчЕ = О THE N |
|
Л ( 0) ;=0 N О Я ( 1 , 1 )Е LSt |
|
|
|||||||||||||
464,3 |
эе;і, і:=N zлт*5; COPVI'II’.I.OIENO |
; |
|
|
|||||||||||||||
4 6 9 . 0 |
с і : = . і [ о і ; |
с л : = ѵ |
|
. о я ( С і , і 5 , і 5 ) ; |
i : |
= i ; |
|
|
|||||||||||
4 7 0 ,0 |
: i t : n |
-<"м i I ,г )= I>T H E N |
с о т о |
|
с ё з ; |
|
|
|
|
||||||||||
47 I , 3 |
IK |
4.'"i I , D s O T H E K |
G O T O |
CfiEil; |
|
|
|
|
|
||||||||||
472 ,−1 |
_J ;=<". -Ч 1,2 ]; |
зонд:=кик( I,3 ]; |
|
|
|
|
|||||||||||||
4 7 3 , - |
c v v |
i з о н д , л я ) ; |
|
к : = с л ; |
с д : = с д * о а ; |
|
|
|
|||||||||||
4 7 4 , - |
E 3 I |
J ; s K 5 I E P |
I U N T I L |
О Л О О |
|
f l [ J ] : = A P [ 3 - K + l ] ; |
|
||||||||||||
4 7 5 , - |
|
. 1; 1 ; = I * 1 ; |
С О Т о |
С Л д ; |
|
|
|
|
|
|
|
|
|||||||
< 7 6 , 0 |
c- _ : I ( э j : - I -N j . i ( с л , 1 ) ; |
I ; = N Z 4 T * 5 ; |
с о р у ( r. , 1 1 1 1 , i ) ; |
|
|||||||||||||||
1 4 7
ПРИЛ. |
3 |
|
п р и л , з |
|
ПРИ Л . |
3 |
П Р и Л . з |
||||
477 *0 |
END |
J |
|
|
|
|
|
|
|
|
|
4 78.0 |
COMMENT |
НДКОПЛЕНИЕ |
Не |
ЧЛ |
СИНОПТИЧЕСКИХ |
|
|||||
479.0 |
|
|
|
СООБЩЕНИЙ |
Зй |
ВСЕ СРОКИ; |
|
|
|||
м в о » О B E G I N |
B O O L E A N |
A R R A Y |
с t о : з ю о о ) , с и н и : 4 о о о ] ; |
|
|||||||
а в 1 1 о |
I N T E G E R |
с с , о с , э о н д , |
і , J , K ; |
B O O L E A N |
c i ; |
|
|||||
482.0 |
If |
RECIMEaOTHEN |
Ct0)!=UNOR(1 ,1)ELSE |
|
|||||||
4 8 3 . 0 |
& E G I N |
l ! “ N E R T * 6 S |
С О Р У ( ' 1 1 1 , I , C ) E N D |
! |
|
||||||
484.0 |
ci:>c(o]; C C :*V N O R I C I ,i$, 15); i: = i; |
|
|||||||||
485.0 |
CflflllF |
|
КМ МП ,2 )=OTHEN |
СОТО |
СЕЛ! |
|
|
||||
486.0 |
IF КММІІ ,П * 1THEN |
СОТО СЛЕП! |
|
|
|||||||
4 8 7 . 0 |
о с : * к ч М [ і , a 1 • |
з о н а : = к ч м [ і , з 1 ; |
|
|
|||||||
4ев,о |
с о р у (з о н а ,сйн); к:=сс; сс:=сс*ос; |
|
|||||||||
4 89. 0 |
F O R |
J : * K S T E P |
l U N T I L |
O C O O |
С ( J ) ! = С И Н [ J - К * ; J ; |
|
|||||
4 9 0 . 0 |
с л е д :і :*і »і ; сото |
ела; |
|
|
|
||||||
491.0 |
СЕД;с(оJ:SONOR(СС,1)і l;=NZRT*6! СОР У (С ,'11 ',1)і |
||||||||||
4 92. 0 |
ENO |
; |
|
|
|
|
|
|
|
|
|
493.0E N D
494.0
ПРИЛОЖЕНИЕ 4
АЛГОЛ-текст и пример работы алгоритма выдачи о ИЛ-ПР на АЦПУ, макетов
аэрологических сообщений