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

Скачать файл (6,81Мб)

Заказать решение

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

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

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

Добавлен: 23.10.2024

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

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

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

ПРИЛ.

П Р И Л ,

ПРИЛ. 3

1 9 7 , 0

0 : = О » Ю і

I F

К = 1 T H Е N B E G I N

1 9 в ( 0

£ F

0 < О T H E N 0 1 = 5 0 0 - 0 ;

G O T O N E N D

1 9 9 , 0

К = 2 T H E N B E G I N

R U F

Q < I 0 0 0 T H E N '

2 00 .0 G O T O N ; G O T O N I E N O

;

N I ;

2 0 ) , о

N 1 : o : = D - 1 o o o ;

I F

D > I O O Q T H E N

с о т о

2 02 ,0

N ; l : = E N T

(O)i

В М Я К (к ♦21: = <в м « к iк * 2 1 » c в 1 2 1 )1

2 0 3 . 0

O N O R ( I , 3 5 ) » C B [ 6 1 i B I T ; = T R U E

;

2 0 4,0

3 = 1TH E N

GOTO

Qll

Q = 2 T H E N

GOTO

Q2J

205," Q

1F 0 = 3 T H E N

GOTO

Q3 i

GOTO

Q 4 ;

2 06 ,0

Q 1 :GO TO

к 1 3EN0

;

2 Q 7 . 0

T 2 ; s T [ K ] « N V [ 1 1 / C T [ П 1

2 0 8 . 0

I F

( Я - Т 2 ) > - 2 5 2 ( Я - Т 2 ) < 0

2 09,0

T H EN

B Ej lN

T 1 IК 1 :=T tК J ;

fl:=T2I

GOTO

ITENO ;

2 1 0 . 0

G O T O K U E N J

G O T O N 1 3 ;

2 1 1 . 0 K s : a : = N v l u ; B :=N V T [L ); ^ F A B S

(A I <B T H E N B E G I N

212.0

BBNV:=FflLsE

;

flBS

(fl)>0 .6 . BTHEN

B B N V :=T R U E

2 1 3 . 0

G O T O

K 3 £ N Q

;

2 1 4 . 0

K T R L = 2 T H E N

GOTO

K7;

И 6 ;IF

flBS

(NVI L- 2])«

2 1 5 , 0

2 1 6 , 0

2 1 7 , 0

2 1 6 . 0

2 1 9 . 0


N V T [ L - 2 1 T H E N G O T O			K 7 I		L i : = L - 2 I		G O T O		K i l l
к 7 : L K s U - l J		I F 7 B K U R T H E N				G O T O	N 9 ;	1_F		f l B S I N V I U - l l l »
N V T [ L - 1 J T H E N		G O T O	К	1 0 ;	к : =ти[ L		i	I F		Л Е Т Н Е М
B E G I N	I j s T U t U ) ;			I F	A B S	( T И ] - T t I			) ) « 2 0 T 4 E N
I H 1 8 E G I N	H 1 [ K ] 1 = H I K ) j				ü 1 = H	[ К ]	- N T	[	L ] . j

220 ,0 H[K ): =o ;

2 2 1 . 0		а ;	= г ;	G O T O	I	M H ;
2 2 2	, 0	Q 2	:			: G 0 1*0 K 1 2 Ë N D
2 2 3 . 0			B I T : = T R U E			: G 0 1*0 K 1 2 Ë N D
2 2 4	, J	Т 2	1 = T { к 1 + N V (			L 1 / С Т [ L 1 ; I : = > T U I L 1 J I F	f l B S	< T 2 - T [ \| ] ) > 2 ,

138

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

»•••

ПРЦЛ.

ПР..Л.

ПРИЛ. .3

ПР.1Л.

225,п

T H E N

G O T O

к I I ; т ц к ц я т п ч ;

д:=тг;

2 2 ь ,о

1 т :т Iк ]:=я ; д:е(Емт

[ д«ю)тг)«г;

я <о

22?,Г

THEN

Я:= - ЯМ ;

ВМЯК [К *2 ]:= (ВМЯК [К +2 ]«С В I 11)*

228 , -

ONOR( Я , 2 5 ) І С З t7 ] ;

BIT:=TRUE

;

GOTO

I 2EH £

;

229,?

я :=т 1 к );

1 :=ти Iи − 1

); в: =т [П ;

<д -в )>-2 5 7 (я -в і <о

гзо,о

T H E N

G O T O

1н ; Tj:-fl»Nv(Ll/CTiL);

(т?-В)>-25*

23 1,0

(T2-i)«nTHEN

GOTO

IT;

GOTO

4 |]:

232 ,0

в 9: Iг

ЯЭ5 (NVtL-П )» 0 .6»NVTtL-1]THFN

GOTO

К 10 J

233 ,1

3rNVT4EN

23я,о

B F '.IT

U :=L » I ;

G O T O K I O E N Q

;

IF 3NT T H EN

235 ,0

G O T O

к 12 I E :=NV [u );

я в з

(E I *5T4E N

G O T O

КЗ;

238 ,0

H 91 :

<:=T0[L*1);

K S ^TKEN

;

237,1

5 Е С І М

CT^rt 1J3J : = С Т Я Т 1

10в]*1;

GOTO

K)2£ND

238,0 Я;=1[к]; HltK]I-H[KJ;

239,-

о ;=я-F ;

-'(K);=o;

»: = •;

G O T O

I «H ;

2 9 и , 0

0 J ;

•_ : = L » 1 ;; О Г 0 к 9 1 ;

2 5 1 ,?

к I:<:=TGti.l;

я :

=N V [

];

B :=N V (:.-I ];

292 ,:

гi

;

= ;т I■_);o :=c TfL - 1j;

293 ,:

r ;=IH IlL - t];

SIGN

(я«8 )>rFflas

1Я/Т2-

299, •

■ M b F l . ; ; / T 2 - T / U T H E N BEGIN

TltK);=TlK);

295 ,

Я ;= T1В ]H E « F . 3 »;l/|T2»f. 0»E) ; GOTO

!TcNи

?. <6 ,‘

1•

SIGN

(о»i )<1«

257,-:

t'U

1в*» H r lMt*F)T4EN

298,-

.:=>• i•:); HI ;ь j:

[к );

а : = я ;

2 9 9 ,

и ; _ r i , ( ,i * r - V * c j / { r * F ) ;

4 ( K ] : = D ;

G O T O

I M H ;

250,01л;

25 1,-

JО Г0

rC12É-I„ ;

2 5 2 ,

к 1I:- , i .

T :- T и: ;

I(I B U 2TH E N

I :

I + I ;

ЦРИЛ.

ПРИЛ. 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

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

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

K = I*K =2T H E N

с т я т [n

1+к 1:=с т я т [11 і*кі +1і

268,0

К 15;М1 :=м 1*17 ;

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 с т д т [ ) ) : = о ;