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

Скачать файл
Заказать решение

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

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

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

Добавлен: 23.10.2024

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

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

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

 

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

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

« П А К Е Т .

0 0

• •

 

іірмл. г

 

 

 

 

 

лР.1л . г

 

 

 

п р и л . г

 

 

пРил

233Ш0

 

1F

 

СМЛК [

15 )*5 0TH EN

В Е Щ N

 

 

 

 

 

234Ш0

 

 

IF

С4AK [ 15J7CMAKI23 П Н Е N

СОТО С|3;

 

 

235Ш 0

 

 

С О Т О

С 12Е N U

;

 

 

 

 

 

 

 

 

 

23MU0

 

IF

 

CMAKM5J<CMAKC23]»CMAK123]<50THEN

 

 

237ШЛ

в н і . 1 9

с 1 г :

сок :

=сэк ♦

1 ;

ст 11 к ч

і : =ст і

і « в ] *

I E N O

;

238шт

Сіз: IF

C^'AKt 10)>5 ATHEN

BEGIN

 

 

 

 

 

 

2391110

сок:-сэк‘і;

cTii<9]:=cTil<9]*isND

;

 

 

 

г <

ишо

СК - M : IF CMAKl9)»tbSCMAKt9JF99T4Evl

 

 

 

 

г <

іш о

Ч 8 С 1 Ч

C C K :=C O K * I ; C T I I 5O 1:=C T I [50]*I E N D

:

2< 2 1ІС

 

IF

 

CWA((eJ<C4AKll6J»CMAKM«>]y 0THEN

BEGIN

 

 

с о к : г с о к ♦ 1 ;

с т 1 [ 5 1 ] : =C T 11 i 1 j ♦ 1 ;

G O T O C M E N O ;

2< 4 1 4 (.

 

IF

 

CWAKilb|<)THEN

G O T O

c 1 6

;

 

 

 

 

2<5Ш0

 

IF

 

СЬ*Д-<С 15]=3TH EN

BtiilN

 

 

 

 

 

 

246UJC

 

 

I

F

с

м а

к

I 1 г

) «

5'jT H E N

с о т о

с H

> ;

 

 

 

24

7 IIJ «

 

 

' . с т

о

c

1 5 i N

и

;

 

 

 

 

 

 

 

 

 

24

3.и0

С Ц :

IF

 

CPAKl|9J=0«CMAKtl7)=0THEN

 

 

 

 

249 и "

? - : і , н

C

I 5

: : I K : = : Ü K *

I J

с т і

і S T

J : = с т і

I S T ]*I E N U ;

251J О

с и :

IF

 

pi=»3T4-N’ G O T O

 

сг

■>;

G O T O с I 9 ;

 

 

 

25 1',-

 

- «

i

 

F

1= .ч? ;

 

 

 

 

 

 

 

 

 

 

 

252 J J '

С ] Ч 1 ; 1 1 Т

 

3 J ' l : O E ' l K E

о С Ч » Р

Г Р J П П

' / / / / / '

Н А

М Е С Т О

2 5

3 Л Т

 

 

 

! т : 4с . Т 1 J O ' J ' X

Q C H O b H s J X

Г Р У П П ;

 

 

 

Э S < -и п

р З ' . :

I F

 

7 ' I I E J T H E N

 

с о т о

P O G I ;

 

 

 

 

 

2 5

5 31 о

 

] ,

 

Л * Р Т = Л Ч с Ч

i V t G I N

 

 

 

 

 

 

 

2 5

6 . л

 

 

- ' Т р

 

r ; = i j T = P

, U N T I L

5 о C

3 E G I N

 

 

 

2 5 7 0 )

 

 

C ^ S F I * , T j : г с ч к Р

[ : , т ) ;

c B R P [ 5 , T ] : = C B K P t < , T J i

258 1)

 

 

I f i i p i < , T 1 : : . < Я Е 9 Г

E N D

 

 

 

 

 

 

2 5

9

 

r-■_ 3 c

;

 

1 M

 

 

 

 

 

 

 

 

 

 

 

2 5

2 ,4 0

 

 

1-

F

 

Г ;

 

1 S Г E 0

1 U N T I L

5 J 0

B E G I N

 

 

 
Р о в

прМ. ?

ПРИЛ. 2

п р и л . а

ПРИЛ. 2

2 6 І щ о

C B R ? [ 6 , T l ! s C a R P H , T l i

C B R P [ S | T ] | s C B R P ( ] | T ] i

2 6 2 Ш 0

C B R P ( J , T J : = N S L ; C Ö R P ( O , T l : * W S L E N D E N D

1

2 6 3 I U 0

I F 7 ( C B R P l 5 , J l = N S L « C B R P l 5 , 4 ] * W S L * C B R P £ S , S J » H S L >

2 6 4 J 1 0

2 6 5 Ш 0

2 6 6 Щ 0

2 6 7 0 1 0

2 6 8 Л 0

2 6 9 Ш 0

2 7 0 ц] 0

2 7 5 л і

2 7 2 Ш 0

2 7 3 j j ü

2 7 4 л 0

■ 2 7 5 0) 0

2 7 6 0 1 0

2 7 7 Ш 0

2 7 6 ц ] 0

2791110

2 â 0 Ц| 0

THEN

B E G I N

F O R

T i a i S T E P

l U N T I L 5 0 0

B E 6 1 N

 

I

 

♦

 

 

 

 

 

 

 

 

 

S

—

 

SNO

 

 

 

 

 

 

 

C B R P £ 5 , T 1 : W S L E N O

 

C B R P [ 6 , T ] : = C B R P 1 5 , T ] ;

 

13

-оО

L>

7«

 

 

 

 

 

 

 

 

 

——

 

 

111 1

C K G R P < 5 T H E N

 

B E G I N

 

 

 

 

 

 

 

 

1 :

I F

 

 

 

 

 

 

 

 

 

 

F O R

M : = C K G R P S T E P

I U N T J L

O O O

 

 

 

 

 

 

 

F O R T : = 1 S T E P

l U N T I L

5 0 0

 

 

 

 

 

 

 

 

C A R P [ M , T J : = N S L ;

 

;

 

 

 

 

 

 

 

C K G R P ; i i ; G O T O

C 1 7 E N O

 

 

 

 

 

 

I F C N P T S O T H E N B E G I N

 

 

;

 

 

 

 

 

 

 

C H P G : = O ;

G O T O

 

C M K T E N D

 

 

 

 

 

 

C K G R P : E C ^ G R P ♦ C N P T ;

- l U N T I L

5 0 0

 

 

 

 

 

F O R

M ; S C K G R P - 1 S T E P

 

 

 

 

 

 

F O R

T : = I S T E P

l U N T I L

s o o

 

 

 

 

 

 

F O R

c a R P i M . T i i s c s R P i M - C N P T . T ) :

 

 

 

 

 

T : = 1 S T E P l U N T I L

5 D 0

С В R P [ 4 , T ] : = W S L ;

 

 

I F C K P T 3 2 T H E N

l U N T I L

5 0 0

C B R P [ J , T J I s W S L t

 

 

F O R

T : = 1 S T E P

 

2 а 1m o

с 1 7 : С HP G » 3 l J C T I 1 4 6 ] ; = C T 1 [ 4 6 ] ♦ 1 ; G O T O C M K T J

2 3 2 0 J U

C O M M E N T

К ^ Н Е Ц P O G J

G O T O С М Л К Е Т 1

2 3 І Ш 3

C I S ;

I F

C H O P = 0 L H E N

2 ä

u

C T T ;

I F C H P G K O T H E N B E G I N

2 6 5 ( 0 0

 

c O K : = J i G O T O

K 5 M R T E N D ;

2 â 6 ц]

о

 

G O T O C K R M ;

 

 

2 в 7 Л

0

C 1 9 :

I F

C H Ü P 3 1 T H E N G O T O

е г о ;

? 8 6 .0 1 0

 

I F

C Q K = O T H E N G O T O

с м я к е т ; G O T O с т т і

124

П Р И л . 2 П В . і Л , 2 П Р И Л . 2 П Р И Л . 2

2 В 9 Ш 0 с 2 С : IF C 0 K > 3 T H E N B E G I N

G O T O C T T E N O ;

2 9 0 LU О

C T I [ 3 2 ] : * C T I I 5 2 ) * 1 j

29 T10 C O M M E N T 0 Б Р ( І 5 0 Т К Д ш е с т о й

группы;

2 9 2 Ц І 0

2 9 3 ш 0

2 9 < Ш 0

2 9 5 Ш 0

С М Я К Е Т :

I F

C K £ R P = 5 T H E N G O T O С 2 2 І C K O G ! = 5

.

F O R

Т : = 1 5 Т Е Р 1 U N T I L 5 0 0 В

I

Т ] I = C B R P ( S , Т ] ;

11•

Ь [ 1

] = W 9 « B I 2 ] = r t 9 T H E N

B E

G

I N

 

с м д к і 2 2 1 : = T T N ( B , а , з ) ;

C K O G : = 6 E N O i

2 9 Б Ш 0 C O M M E N T З А Н Е С Е Й И с И Н Ф О Р М А Ц И И д О П О Л Н И Т Е Л Ь Н Ь І Х

2 9 7 Ш 0

Г Р 9 П П С О О Б Щ Е Н И Я В М Д К Е Т ;

2 9 8 Ш 0

C M U G ;; м 1 : = л г ; т 1 : = л о i

2 Р 9 Ш Р

F O R M : = C K O G 5 T E P I U N T I L C K G R P - D O B E G I N

3 0

0 Ш 0

3 0

І Ш 0

3 0 2 Ш 0

3 0 3 u l 0

3 0 « Ш0

З О Ь Ш О ■ c O L G :

3

0

6 !li o

 

3

0

7.110

 

3

о в ш о

C M 7 :

3 0 9 Ш 0

3

1

о т о

C M B ;

3

1

1 ш о

3

1

 

2 Ш 0

 

3

1

З Ш 0

 

3

1

4 Ш 0

 

3

I

S u io

C M 9 :

з і ь ш о

F O R a « ; = | S T E P

I U N T I L 3 0 0 В [ Я 4 ] ! = C ' B R P t M , Я 4 1 i

T : = u t

1 ] ;

 

 

 

I F

T = N ? T H E N G O T O С М 7 І

I F

T S W B T H E N

G O T O

C M B ;

I F

T = N 9 T H E N G O T O

C M 9 ;

I F

T = r t 2 T H E N G O T O

С М 2 !

I F

P l = W 5 T H E N

 

G O T O C 3 G , ;

I F T = W O T H E N G O T O

C M O J

I F

T

1---------- ---------------

 

1 f H E N G O T O C M 1 I G O T O C 3 G ;

С М Я К І 2 И : = T T N ( B , 2 , 2 ) i

С М Д К 1 2 7 3 : = T T N ( B , 4 , 2 ) I G O T O C J I ;

I F M I » 6 2 T H E N G O T O C 2 I J

с м я к ( M l ] : = T T N ( B , 2 , 1 ) ! •

с м

я к ( M I ♦ 1 ] : = т T N ( в , 3 , 1 1 ;

с м

я к [ M 1 1 2 ] i = T T N ( B , 4 , 2 ) j

ч

1 : = м 1 + 5 ; G O T O C 2

1 ;

I F T 1 > 6 5 T H E N G O T O

C 2 1 ;

125

ПРИЛ. I

3 17010

31BUI0

3 1 9Ш0

заоло См2;

заіоіо

зааіло

згзши

згвл

323ц) J

за6ло

Згзшо

згвшо emo:

3 29111 О

ззоши C M i;

33 1Ш0

ззгша esc:

ЗЗЗшО

334Ц|о

335|Ц9

ЗЗ б л о

ЗЗ З Ш О

ззвшо

339Ш0

звошо

34 1ШО

342Ш0

34 Зц|О

3 4 4щ О

 

ПРИЛ. 2

 

п р ил . з

приЛ. а

с м я к [ті]:=T T N <в,г ,г);

 

 

 

смяк tт 1 ♦п :=т T N (в (4,г);

 

 

т 1! =т 1 * ь ; сото сз1 j

 

 

 

IF PIsWSTHEN ВЕС IN

 

 

 

смяк tг9]:=T T N (в iг .г );

 

 

смяв[зо 1:=T T S (в,4,i)j

 

 

смявi3i):=T T N (в ,s,ij ENO

 

 

E L S E

B E G I N

 

 

 

 

СМЯКІ29):= т т м (B ,2 ,1 1;

 

 

с м я к і з j ) : * T T S ( B , 3 , 2 ) J

 

 

с м я к 1 3 1 ) : = T T M i n , 5 , 1 1E N D

: с о т о

с г г j

СМЯК 123]:=TTN(В,4 ,г);

 

 

 

СМЯВ І2 8 ):=TTN(B,2,2) i с о то

С 2 1

 

смяв(бЗ]:=ттч(в,?,з);

 

 

 

CMftK(6a]-.sTT4(B,4, u ; сото

сг 1

 

IF T=«3THEN B E G I N

 

 

 

смякізг):=ттч(в,2 ,г> »

 

 

СМЯК[331!=TTN(В,4,2) ; м :=м*

 

If MsCKGRPTHEN C O T C сгг;

 

 

FOR Д4:=1$ТЕР lUNTlL 500

 

 

в[Я4]:=сзнр[м,д.)|

 

 

 

смяк[34]:=T T N (в ,i,2 );

 

 

смяк[35):=ттм(в,з ,і)»

 

 

смяк[35):=T T N (в ,4,г ); м; =М+ 1

 

IF

М=СКGRP T H E N

с о то

сгг;

 

 

FOR

fl4:=lSTEP

1UNTIL

500

 

 

8 tя4):=CBRP[M,Я4 ); смяк[33):=T T N (в ,1 ,a );

126

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

 

г

 

.....

п р м л .

і

 

прил.

і

 

 

прил.

 

прил, а

345Ш0

 

 

смяк[ за) : = T TN(в , з , і ) і

 

 

 

 

34бшо

 

 

СМЯК [ 39 ]

=TTN (В , 4,2 1;

 

 

 

 

3 4 7Ш0

 

СОТО

C22ENO

 

T=W3J

 

 

 

 

3 4 8 010

С2і: END

цикл м;

 

 

 

 

 

 

 

 

349Ш0

С22: СМЯК[ з ] ; =сок;

IF

COK70THEN CT I l 47))*СТ11471♦ 1i

35 0U10

ст 11 53 1: =ст 1153 1+1;

ст1154 ] : =ст П 54 ] +смяк[ п

;

35 НПО COMMENT

уляковкя

мякетя;

 

 

 

 

3 5 2|110

L:=SM5M; LENlsFflLSE ;

 

 

 

 

 

 

353Ш0

LEN 1;=ONCR 11, 45 ) ;

R(- 1, 54 0 )J RIO, 535);

R(1,)4t)i

3 5 4 ш0

0(3,247);

R( 1-4, 10 0 1);

IF

CMflK[U = lTHEN

BEGIN

117,11111

3 5 5іЦ0

3(5,322) ;

RI6, Г 1025 )END

ELSE BEGIN

R(6,10|l)|

356010

R(5,-721)ENO ; R(3,44|); 3(9,734);

i

 

 

357010

P»( 10 , 72 7 »;

4(23,720 ) ;

R115,7 | 3 ) S R( 1В, 4 0 9 ) ;

 

3 5 ѲШ0

R(19,405);

R(20, -40l)i

R()6,44));

 

R(17,437);

 

3 5 9ШЗ

я ( 11,73 0 );

4(12,723);

N(13,4)9);

Я( 2 1, 4 (,5 ) ;

 

3 6О11І0

4(22,1005);

Я14,-40 1) ;

Я124,44Q) i

 

Я(25,436)|

 

3 Ь 1ш0 4 ( 28,729) ;

R(2В , 7 о В) ;

R(27,70 i ) ;

R(67, | Q19);

 

362Ш0

R(6a, -4l5)j

IF СМЯК[21 = 1THEN R(2,)43);

 

 

363Ш0

4(34,734);

R(3*, 430 );

R(3 2,7 23) i

3(33,7)5)1

 

3 6 4 ШС. LENLEN:

 

 

 

 

 

 

 

 

 

 

3 6 5Ш0

 

СМЯК( 1) = 'THEN BEGIN

R(29,412);

 

R(30,705)END

366Ш0

ELSE BEGIN 4(29,709)1 R(30,4o5)sND i

 

 

ЗЬ7ійО

R(31,-40l);

R( 3 6,7 3 7 ) ;

R( 39,730 );

 

R(4 0,7 2 3) 1

 

3 Ь8.1) 0

4(41,716);

R( 4 9,4 I a ) ;

R(43,4'OB);

R(44,-701)i

 

3 6 9 ШС (F

7aВTHE N GOTO KONMSM;

 

 

 

 

 

3 7 0010

R( 3 7 , 7 3 4 ) ;

R(3 В, 4 3 0 ) ;

4(45,723) 1 4 ( 4 6,7 16 ) ;

 

3 7 11110 R(47,412);

4(48,408);

3(49,-701);

 

4(50,723)1

 

3 7 2 iü 0

4(51,715);

3(59,4)2);

r C5 3 , 4 о 8 ) ;

3 ( 54 ,-70 ));

 

12?

Смотрите также файлы