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

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

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

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

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

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

Добавлен: 23.10.2024

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

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

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

П Р И Л . ,

п?ил. .<

П Р И Л . 7

ПРиЛ , . т

2 9 . 0

F O R

I : = 1 3 Т ер

I U N T I L

K S O Q

B E G I N

30.0 R:=vNpR(G,й, 4)i е:=а»<;

3 1 . 0

£ F

A < I O T H E N

G O T O

M E T ;

3 2 . 0

O U T P U T ( G ) j

P I O N : = - R ;

G O T O

M E T K J

3 3 . 0

M E T ; S : = S + M » R ;

M : = M « I O E N U

P I O S ;

3 4 . 0

P 1 0 N ; s S ; M E T K 1 E N D P 1 0 N ;

3 5

, 0

C O N ( 0 ] ; = 0 N Ü R ( 6 3 , 1 2 ) ;

3 6 . 0

4 0 0

B E G I N

3 7 . 0

F O R

I ; = 1 5 T E P

1 U N T I L

3 8 . 0

J : = 1 2 M l - l ) + i ;

C O N [ I ] ; a O N O R ( 4 0 9 5 , о > E N D ;

3 9 . 0

W ; = F « L S E

;

Ф О Р М И Р О В А Н И Е М Л С С И В А Н О М Е Р I

4 0 . 0

B E G I N £ O M M E N T

4 1 . 0

B O O L E A N

/)•

B O O L E A N

A R R A Y

0 A H ( 1 1 N 1 I

4 2 , J

I N T E G E R

A R R A V

P [ l ; 2 ) ;

4 3 . 0

C O M M E N T М А С С И В И С Х О Д Н Ы Х Д А Н Н Ы Х „ Д А Н *

4 4 . 0

I N P U T ( д д н ) J

м : = о ;

N 0 0

4 5 , О

F O R

I J * 1 5 Т е р

1 U N T I L

4 6 . 0

B E G

I N

A ; = S 0 V I G ( H , - 2 4 ) I

А7 ,О

Н ; е Д А Н ( П ;

4 8 , О

p t i l : = P 1 0 N ( A , 1 , 5 ) I

P [ 2 ) : * p 1 O N ( H > ! , 5 ) ;

4 9 . 0

F O R

K : * I , 2 0 0

5 0 . 0

B E G I N

51.0

I F

P t K I » O T H E N

5 2 . 0

B E G I N

о ;=P [к 11 н о м е р (м 1;=D N O *(3•t)

5 3

, О

м:=м+і;

5 4

, 0

E N D

B E G I N

5 5 . 0

I F

P l K ] < 0 T H E N

5 6 , о

C O M M E N T Н О М Е Р О Ш И Б О Ч Н О Й С Т Р О К И - I ;

п Р ЛЛ .

. 0 0

п р и Л ,. 7

П Р И Л .

П Р и Л ,

' 5 7 , 0

O U T P U T

1 ) ;

и ; = т R и Е

, 0

Е N

5 9

, 0

т-------

6 0

, 0

9 0

;

: -

;

6 2 , 0

C O M M E N T

Ч И С Л О

С Т . ' Н Ц И Й

С Л О В А Р Е

- N

5 , 0

O U T P U T ( N J і

4 , 0

I F

l\ Т Н t N

С О Т О

К О Н Е Ц ;

5 , 0

E N Ü

Ф О Р М И Р О В А Н И Е

М А С С И В А

н о м е р ;

6 6

6 7 , 0

B E G I N

C O M M E N T

‘Ф О Р М И Р О В А Н И Е

С Л О В Д Р Я

6 ö , 0

Т Д В Л И Ц Ь І . К Д Т Д Л Э Г Д . С П И С К Д ;

6 9 , 0

I N T E G E R

А Я Я д У П Р И З Н А К 1 1 : N J ,

Т Д Б Л И Ц Д І С ;

8 ) ;

0 , 0

B O O L E A N

д я я д у

к д т д л о г ( о : 1 , о : 2 5 6 ] ,

с п и с о к і ;

7 1 , 0

г O R

I : = 1 S Т Е р

1 U N T I L

N 0 0

E G

5 , 0

Н ; = Н 0 М Е Р І П ;

П Р И З Н А К

( ! ] : = ' ' N O R M

, 1 1

7 5 , 0

E N Ü

Ф О Р М И Р О В А Н И Е

М А С С И В А

П Р И З Н А К ;

5 , 0

F c a

I : = о , i D Q

7а,0

F O R

J : = O S T E P

l U N T I L

2 5 b 0 0

7 , 0

к д т А л о г ( 1 , о 1 : = T R U E

;

В , 0

F O R

I : = 1 S T E P

l U N T I L

1 5 0 0 0 0

с п и с о к [ П

: = T R U E

;

8 0 , 0

A , d [ o ; 7 ) ;

B E G I N

I N T E G E R

A R R A Y

а 1 , о

F O R

: = 0 S T E P

, 1 U N T 1 L

7 0 0

8 2

8 і

а и

1 : = u ;

в ( I ] : = о

8 5

’

C N Ü

;

і72

П Р и Л .	'	г	П Р 4 Л .	' 7	І І Р и Л .	t
		'				......................................... Л Р й Л ; ' 7
8 5 , 0			F O R 1 : = 0 S Т Е Р	1 U N Т 1 L 2 5 6 D 0

<3 6	,	Ü
6 7	,	0
8 8	,	0
â 9	,	0
9 0	f U
9 1 , 0
го•О	,	о
9 3	,	0

9 4	, 0
9 5	, 0

9 6	,	0
9 7	,	0
9 6	,	0
9 9	,	0

1 0 0 , 0

1 0 1 , 0

1 0 2 , 0

1-0 3 , 0

1 0 4 , 0

1 0 5 , 0

1 0 6 , 0

1 0 7 , 0

1 0 8 , 0

1 0 9 , 0

1 1 0 , 0

1 1 1 , 0

1 1 2 , 0

в Е	з I N	м	: =0 ;		1 U N T I L		N 0 0
	F O R 0 : = 1 S Т Е Р				1 U N T I L		N 0 0
	1 F 1 = П Р И З Н Д К [ 0 1 T H E N
		B E G I N		I N T E G E R L ;
			н : = н о м Е р 1 о ] ;				к : = V N O R і н , з , 1 ) і
			L : = 6 « K * 6 ;			в ( к ] : = в [ к 1 ♦ I ;
			н : = н * C O N 1 о ] ;
			с п и с о к [ в [ к п ; =
			C n n c O K [ B C K ] ] ’ S D V i G ( H , l . - i 7 )
		E N D
	f c L S E
		B E G I N			H 0 M E P l M j : = M i ? M E P t 0 1 i
			м : = ч ♦ 1 ;		H 0 M E P l M j : = M i ? M E P t 0 1 i
			п р и з н д к і м ] : = п р и з н я к t a j
		E N D Ц И К Л n o j ;
	N : = м ;
	F O R	к : = 0 , 1 0 0				l U N T U -		3 0 0
	F O R		0 I = 0 S Т d Р			l U N T U -		3 0 0
		B E G I N
			м : = д і з + к » < ] j
			H ; = K f l T R n o r [ K , 1 1 7 o N O R ( M , J « l 3 t U i
			к д т д л о г і к , і 1 : = н ;					д [ 0 * к > 4 ) ; 5 8 [ ' о * к ч ]
		E N O ц и к л			п о	к , о ;
E N G Ц И К Л П О I ;
Т Д Б Л И Ц Д І 0 ] : = 0 ;				1 U N T I L		7 0 0
F O R	I ; = 0 5 Т Е Р			1 U N T I L		7 0 0

т д в л и ц д [ і + і і : = т д б л и ц д і і і * д і і і

П...................................................................................Р И Л .		7	i	.	-/ .	.	. . . . . П А К Е Т . 0 0	П Р И Л . 7
		7	П Р , 1 Л .				П Р И Л .	П Р И Л . 7
1 и , о			E N D с л о з а р ь	с ф о р м и р о в а н ;
14.0	O U T P U T ( т я б л і ц я ) ;
1 1 5 . 0	O U T P U T ( к а т а л о г ) ;
1Iь ,о O U T		P	U T ( с п и с о к ) ;			. Т Я Б Л И ц Я ) ;
1 1 7 . 0	S P (	' 0 9 0 0 0 1 0 3 ’ , * 0 1 , 1 1 0 '				. Т Я Б Л И ц Я ) ;
118.0	5 0 {	‘	0 9 0 0 0 1 0 3 ’ , 1 о	' , ‘	1 0 0	1 1 . К А Т А Л О Г ) \|
1 1 9 . 0	S P ( ‘ О 9 0 0 0 Ю З ' , • а 1 ,. ‘ 3 7 1 7 ’ . с п и с о к ) ;

120.0

12 1,0

122,0

123,0

1 2 - 9 , 0

1 2 5 . 0

7 26,0

1 2 7 . 0

1 2 8 . 0

1 2 9 . 0

130.0

13 1,0

1 3 2 . 0

1 3 3 . 0

13 9,0

1 3 5 . 0

1 3 6 . 0

137.0

1 3 8 . 0

139,0

19 0,0

B E G 1 9 C O M M E N T Б Л О К У П О Р Я Д О Ч Е Н И Й ;
I N T E G E R			P , Q , n ;		B O O L E A N		.4 , V ;
I N T E G E R			Я R Я Я у Н О М Е Р 1 0 [ 0 ; т Я Б Л И ц Я ( в 1 1 I
Кі : = о ;		н о м Е Р і о і о ] : = о ;
F O R	к : = и , l o o				1 U N T I L		3 и о
F O R		I : = 0 S T E P
O J :	F O R		J : = O S T E P			I U N T I L		2 5 5 0 0
		B E G I N
			ѵ : = к я т я л о г ( к , л . с о л [ і * і ] ;
			H : = K A T q n O r [ K , J * l ) . C O N ( 1 * 1 ] ;
			I F	T O G U ( V , W ) T H E N					G O T O	а я ;
			P ; = V N O R ( V , ( I + l ) « 1 2 , l 2 ) ;
M M :			o : = V N O R ( W , ( 1 * 1 ) « 1 2 , 1 2 ) ;
			F O ^	M : = P + I S T E P				I U N T I L		Q U O
			B E G I N		R ; = I * K « 9 ;				у : =suvi G i V , ) 1 . ( . « R ) ;
				у : в с п и с о к [ м ] ;
				V : = V * C O N [ 0 ] ;				1	) T O N O	R ( J , 9 ) ;
				\|4:' = V « 0 N 0 R ( R ,
				и : B N +		1 ;
				H O M E P i r [ N ) : = v N O R ( w , 1 7 , 1 7 ) ;

174

			П Р и Л .			7
1 4		1	,	0
1	4	1	,	0	Л Л	'■
1	4	1	,	0
1	4	4	,		U
1 4		3	, 0
1	4	6	, 0
1	4	7	,	0
1	4	В	,		0

		І 1 Р И Л .		7	П Р И Л .	7	П Р И Л . 7
		t	N о	м м	:
		E N D	J 3 ;
C O M M E N T		М А С С И В		Н О М Е Р О В С Т А Н Ц И Й		В	словарном
п о р я д к е		- н о м е р		ю ;
O U T P U T ( Н О М Е Р Ю ) ;
F 0 Ч	M : = 1 , 4 M W H I L E				2 t Ч < N D 0
а :	= м ;
Р О Я	Ч : = 2 1 <1 , M / l r t H 1 L E М 5 2 , Ю 0

1	4	9	, 0	F O R	о : = 1 5 т е р		I U N T I L	W O O
1	5	0	, 0	ö £ U 1 N
1	5	1	, 0		I
1	5 1 , 0				F O R	1 i s ]	t M ^ H l L E		I < N - M O O *
1	5	3	, 0		P O R	1 : = J , 1 М Ч Ц 1 L E			1 ^ N - M U 0
1	5	4	, 0		I p	H O M E P 1 0 [ I ] > H O W E P 1 0 I I * 4 ] T H E N

1 5 5			, , )	3 E ü I N
1	5	6	, 0	Р :	= H O M E P		) о t 1 » M ) ;
1	5	7	, 0	н о	м е р n	и	* w )	; = H O M E P 1 о ( 1 ] ;
1	5	8	, 0	H O M E ® 1 " [ 1			) : =	P ;

1 5 9		, 0		к : = i * A;
1 Ь0 , 0				F O R	К ; = K - M W H I D E				K > M O O
1 4 1 , 0				I F		Н О М Е Р 1 ГТ [ К - М ) > Ч О М Е Р l c [ К J T H E N
1	о 2	,	0		3	E	s J N
1	Ь6, j						° : = H O M E P l o [ к			] ;
1 6 4 , 0							н о м е р	1 о I K 1 ; = ч о м е р l ' H - M l J
1	â 5 , -J						н о м е р	1 с 1 к - ч		J : = P
1	5 6	,	j		-	■ ; £
1	Ь ? , J			E L : « .			. - а т г	i i ;
1 6 8		, .	1 1 I	I : 2 u		< ,

175

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

Кацура, А. А. Высокотемпературное трение окисных керамик на основе корунда.pdf

Клюкин, Н. В. Экономико-географический анализ концентрации производства (исследования концентрации производства в производственно-территориальных комплексах).pdf

Коровин, Н. В. Электрохимические генераторы.pdf

Коршунова, М. Ф. Джакомо Кваренги.pdf

Красовский, А. А. Фазовое пространство и статистическая теория динамических систем.pdf

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

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

Информация

Списки файлов

Дополнительно