Файл: Кастин, О. М. Система первичной обработки метеорологической информации.pdf
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 23.10.2024
Просмотров: 96
Скачиваний: 0
|
• ....................................... |
|
|
|
|
|
|
........................ |
|
|
|
|
|
........................... |
|
|
|
|
П А К Е Т . 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 |
|
|
|
3 5 |
4 |
, 0 |
|
3 |
5 |
5 |
, р |
3 |
5 |
ь |
, о |
3 5 |
7 |
, |
0 |
|
3 5 В |
, |
0 |
||
3 5 |
9 |
, 0 |
||
3 |
8 0 , 0 |
|||
3 |
6 |
1 |
, о |
|
3 |
6 2 |
, 0 |
||
3 |
6 |
3 , 0 |
||
3 6 4 |
, |
(I |
|
5 I M V ; = 8 U S T l N P U + I J; I F |
|
S I M V > 3 2 T H £ N |
3 G ! = B G + l i |
||||||
|
G [ S G + I ]; s 5 l M V E N D |
I |
; |
|
|
|
||||
|
S C : = S G + S P C J |
K S C := K S G * 5 P G * 1 ; G O T O |
4 2 ; |
|
||||||
E N O |
5 G |
< G O |
G ; |
|
|
|
|
|
|
|
C O M M E N T |
И С П |
Р А В Л Е Н И Е |
Д Л И Н Н О Й |
Г Р У П П Ы |
( S G > G 0 C ) ; |
|
|
C T |
1 19]:= с |
т I [ 9 )+ 1 ; |
|
N c |
u s K |
s c |
+ i ; |
|
|
I F |
U O G = 5 T H E N |
B E G I N |
|||
|
I F |
S G = 6 T H E N |
B E G I N K G 1 1 = N S G + 6 | |
||
|
C O M M E N T |
И С К Л Ю Ч Е Н И Е Л И Ш Н Е Г О |
СИМВОЛА В ГРУППЕ
( К Р А Й Н Е Г О )
I L S ;
п р и л . г |
|
|
ПРИЛ. |
г |
|
|
|
ПРИЛ. |
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 ; |
|
|
|
|
|
|
|
92
|
|
п р и л . |
2 |
|
|
|
|
п р , і л . |
г |
|
|
П Р И Л |
|
пга |
к е т . о о |
ПРИЛ I |
|||
|
|
|
|
|
|
|
|
|
|
|
|
||||||||
3 9 3 , 0 |
|
I E |
|
S G = 7 T H E N |
B E G I N |
K - 4 E V £ = N 3 e * 2 i |
|
|
|
|
|||||||||
394.0 |
|
|
|
N G 2:=N S G »B ; K G 2:=N S C »7; |
G O T O F I N O O G E N O |
: |
|||||||||||||
3 9 5 . 0 |
|
I F |
|
S G = 8 T H E N |
B E G I N |
K f f U ' = N S C ♦ 2 ; |
|
|
|
|
|||||||||
396.0 |
|
|
|
N G 2:=N S G +<; |
K G ?:=,N 5G +8 J |
G O T O F I N O O G E N O |
; |
||||||||||||
3 9 7 . 0 |
G O T O |
W I C E M U |
G D G = 2 ; |
|
|
|
|
|
|
|
|
||||||||
3 9 8 . 0 |
^ F |
G 0 G = 4 T H E N |
B E G I N |
|
|
|
|
|
|
|
|
|
|||||||
3 9 9 , 0 |
|
I F |
|
S G = 9 T H £ N |
6 E G £ N |
K G 1 : : = N 5 G * 4 ; |
|
|
|
|
|||||||||
400.0 |
|
|
|
N G 2:=N S G *5; |
K G 2:=N S G *9; |
G O T O F I N O O G E N O |
; |
||||||||||||
4 0 1 . 0 |
|
I F |
|
S S = 1 0 T H E N |
B E G I N K G l , : = N S G * « i |
|
|
|
|
||||||||||
4 0 2 . 0 |
|
|
|
N 5 2 : = N S G » 6 i |
K G 2 : = N S G * 1 0 ; |
G O T O |
F I N O O G E N O |
i |
|||||||||||
4 r 3 , о |
E N U |
|
|
G O G = < ; |
|
|
|
|
|
|
|
|
|
|
|
||||
4 0 4 , 0 |
M i o : |
|
I F |
|
S G < 7 T H E N |
B E G U N K G 1 : = N S G * S G J |
|
|
|||||||||||
4 0 5 . 0 |
|
F I N O O G ; |
|
O T S I N : = F A L 5 E |
i G O T O |
M 1 1 E N D ; |
|
||||||||||||
4116.0 |
|
IF |
SGF12THEN |
B E U N |
|
|
|
|
|
|
|
|
|||||||
407.0 |
|
|
|
N-.3:=N3G»i; |
K G S :=N S G *5E N O |
; |
|
|
|
||||||||||
40B,o |
|
K G I :=N S G *5; |
N G2:=N I G » T ; ксг:«ксі; |
O T S 1N :*T R U E I |
|||||||||||||||
409.0 |
N11: |
|
NSG :*N3€*SG* 1; |
gffi'Tg' M 1; |
|
|
|
|
|||||||||||
410.0 |
F I N B P G : |
|
J^F |
N S G =N S S '!N C I* O T H E N |
|
|
|
|
|||||||||||
411,0 |
|
M 12: |
|
K S :=T «U E |
: |
|
|
|
|
|
|
|
|
||||||
4 1 2 . 0 |
F O H |
|
I - S S G » 1 S T E » |
1 U N T I L |
6 D 0 |
G ( I ) : = W 3 L : |
|
|
|||||||||||
4 |
U |
, O |
E N |
U B |
|
P G |
; |
|
|
|
|
|
|
|
|
|
|
|
|
4 |
1 4 |
. 0 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
4 1 5 , C |
P R O C E D U R E |
2 P N 1 ; |
|
|
|
|
|
|
|
|
|
|
|||||||
416.0 |
С о |
ч ч |
- |
' Т |
Г І К Р Е Ч О С |
Н Е О П О |
З Н А Н Н О Й |
С Т Р О К И |
С |
B U S T |
|
||||||||
4 1 7 , : , |
|
. ) |
ч . С С И В |
P N I С |
П О Б А Й Т Н Ы М |
Р А З М Е Щ Е Н И Е М ; |
|
||||||||||||
4 1 8 , - |
в е - . м |
|
O W N |
I N T E G E R |
N R , R E G ; |
|
|
|
|
|
|
||||||||
4 1 9 . 0 |
I N T E G E R |
J , P S , S I , S I M , S S , G S , S G ; |
|
|
|
|
|
||||||||||||
4 2 0 , 0 |
О N N |
B O O L E A N |
P N t l l |
|
|
|
|
|
|
|
|
|
п р и л , г |
п р и л . г |
п р и л . г |
П Р И Л . 2
« Л , О |
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 |
; |
|
|
|
|
94
|
|
|
|
|
П р И Л . 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 ) : = о ; |
|
|
4 6 1 , 0
4 6 2 , Q
4 6 5 , P
4 6 4 , 0
46 5 , П
4 6 b ,
46 7 , n
< 6 8 , Q
*6 9 , :
*7 . , ( l
< 7 1 , 0
< 7 * , '
<7 . S , .
4 7 4 , 0
<7 5 , C
<7 6 , 0
F O и 4 P |
; = 1 S T E P |
|
F O R |
J P |
; = 1 5 T E P |
F O R |
j p : = 1 S T E P |
P E R v j p я ; = T R U c |
|
|
||||||||
w A |
: |
- |
5 t ; |
*'.■);=5 3 | |
||||||
« в |
: |
= э l |
; |
r t K J s b ? |
|
|||||
4~ ' |
= |
4 1 |
; |
‘’•L |
: |
- |
4 1 ; |
|||
w o |
: = ь n ; |
и и ; |
г о |
9 ; |
||||||
•■ 'E |
; |
= |
< F |
; |
•*' 6’ |
: |
= |
J |
ь |
! |
rte |
: = |
э < |
; |
г |
; |
= |
j |
ь |
; |
|
vt G |
: |
|
|
|
л p |
: = 4 5 ; |
||||
< H |
; = i ? ; |
|
" c : = o i |
|
; |
|||||
|
: = < 4 ; |
• о |
: |
= |
4 2 ; |
O H S MDO M s « [ NP ) ; |
s j ; |
D P N I D O P N I [ N P ] : |
= 3 ; |
7 0 0 0 C T I [ N P ] ; = 0 ; |
|
^ s |
: |
- 5 2 ; |
|
г |
: |
= з з |
; |
« j |
: |
= ь о |
; |
n v ; = 4 7;
N : = 5 7 ;
w X : = 5 s :
" ч; = 5 3 ;
"•l: = 4 9 ;
w 1: |
= 2 9 ; |
н е м : = 2 ; |
ь 2 : |
= 2 5 ; |
W N L : = 3 ; |
w j : |
= 1 6 ; |
W L P : = з 1 ; |
w < ; |
= 1 о ; |
W O H : = 2 7 ; |
W 5 : |
= I ; |
w S о : = 4 ; |
w 6 : = 2 1 ; |
и p о : = 7 ; |
|
vs 7: = 2 0 ; |
w c o : = 6 ; |
|
W B : = 1 2 ; |
w E Q : = |5 ; |
■ > о : = 1 3 ; w 9 ; = з ; W S L : = 2 3 ;
с |
г г' 11 |
0 ] |
: = i-.o ; |
о т T N [ 1 J: =oii 1 |
c T T N t a i |
: = w a ; |
с т т м ( з ) |
с |
г T * ң |
* ) |
: = 1-, 4 ; |
C T T N ( S ] : = r f i ; |
C T T N ( 6 ) |
: = W 6 ; |
C T T N [ 7 ) |
C T Г M t г ] |
; = V, В ; |
с T г N [ 9 ] ; = ы c 1 |
|
|
|
95