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

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

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

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

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

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

Добавлен: 23.10.2024

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

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

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

прил. ...................... а	* .................	. . . . . . . . . . . . . П ДКЕТ, 00
прил. ...................... а	прил, ;	прил.	г	п р и л , а

2 2 5 , 0					С I F R A \
2	2	6	,	0
2	2	7	, 0
2	2 8		, 0
2	2 9		,	Г
2 5 0 , 0					C O M M E N T

I F	S I = W D R T H E N				B E G I N
	R E G : = 0 ;		G O T O		f l E N D	;
I F	R E G = J 2 T H E N				B E G I N
	В G 1	= B G ♦ 1 ;		S i : = 5 1 * R E G E N 0				!
5 G	: = s	G + 1 ;
	З А Н Е С Е Н И Е			С И Н В О Л Я		в	B U S T ;

2	5	1	, 0
2	5 2		, 0
2	5	5 , 0
2	5 4 , 0
2	5	5 , 0
2	5	6	,	0
2	5	7	,	'
2 5		8	,	г
2	5	9	, "
2	*0 , 0
2	4	1	, .
2	4	<	,	0
2	«	6	, г'.
г 4		<	,	г
2	< 5		,	•
2	4 6		,
2	<	7	,	г
2	<	а	,
2	4	9	,	•
2	5 t
2	5	1	,	"
2	5	г	,	]

в :

л и :

B U S

r 1 1 N I : = s 1 ;

i N : = I N *

i ;

I F

S ' : = 1 7 T N E N

G O T O

P I G ;

С О Г О

f l E N ü

S I = . 4 N L I S I = H C R ;

I F

N P R r j T H E N

B E G I N

I F

P P C = 0 T H E N

B E G I N

N N N 1 1 = 1 !

I r

S U r t C q H E N

N N N 1 : 3 Q ;

I f

S O *

' T H E N

B E G I N

O B 1 I i T R U E

;

G O T O

P I G E N O

; .

I F

S S ^ T H E N

B E G I N

P P C ; X 1 ;

G O T O

Я E N U

E L S E

B u s T [ f l s s a i : = s s ;

B U S T [ A S S B + I )

B L ' s T i f l s s e * ; l : r G s ;

B U S T I A S S B *

/ 1 5 S 6 : = t l S s d + $ S + * S + t ;

I F

0 1 T И E N

B E G I N

U B : = F A L S E

;

G O T O

O D E N D

;

P P C : = 1 ;

G O T O

H N U P L

;

V г

p c

0 ;

C O T O

O L a M э

N P R = O ;

I (■

b I u . V N L T 4 t i N 3 E U l N

I f

M V 1, ) = ] T H E N

B E G I N

п р и л . а

п р и л . 2

пРил, 2

пРиЛ. г

2	5	3	, 0
2	5	4	, 0
2	5	5 , 0
2	5	6 , 0
2	5	7	,	0
2 5 6 , 0
2	5	9	, 0
2 6 0 , 0
2 6		1	, 0
2	6	3	, 0
2	6	3	, 0
2 6		4		, 0
2 6 5				, 0
2 6		6		,
2	6	7	,	0
2 6 8 , 0
2 6 9 , 0
2	7	0		, 0
2	7	1	,	0
2	7	2	,	0
2	7	3	,	0
2	7	4		, 0
2	7	5	,	0
2	7	6	,	0

N N N 1 : = 0 i

G O T O

P E N D

;

P S : = P S « I ;

G O T O

P E N D

G O T O

P E N D

N C E L 7 L I O ;

S L Z O N P :

з л я т : = 5 K P T » 1 J

I F

5 K P T 7 6 4 T H E N

B E G I N

z l I x K P T P L O G t S K P T ) ;

I F

T O G O ( Z 1 , 0 ) T H E N

G O T O

S L Z O N P ;

L I 0 : s V N O R I Z 1 , 3 6 , 1 8 ) + 1 I

c T

1 1 1 J :

ост 1

1 1

* L

I D

;

I F

L I O > D M | J T H E N

B E G I N

Т е к с т

' L I O

б л ь ш е

U H I O ' , B K P T , ѵ ,з ,з ) ;

S P ( ' 7 2 1 '

, B K P T , 5 , 2 0 0 , P S P I

) I

O U T P U T ( K P T P L O G , L I 0 , O M I J ) ;

G O T O

F I N E N D

;

N C E L : = I ;

N B ! T ; = 4 4 ;

B E G I N

B O O L E P N

P R R P V

В 1 0 t : : L I 0 1 1

S W I T C H

R Z

: = H Z 1 , R Z 2 , R Z 3 , R Z 4 , R Z 5 J

T E

G E

;

S : x V N O R I Z 1 , 9 , 9

) ;

G O T O

R Z I N 4 L

) ;

R z i :

c o p v ( ■ 1 ' , s , B I O ) ;

G O T O

P E R ;

R z 2 :

c o p « ( ■ a ' , s , в I о j ;

G O T O

P E R ;

R Z J :

C O P V (

' 3

' , s , в I о ) ;

G O T O

P E R ;

R Z 4 ;

C O P V ( ‘ 4 ’ , S , B 1 0 ) ;

G O T O

P E R ;

R Z 5 ;

C O P V ( • 5 ’ , S , B I D ) ;

P E R :

F O R

5 : = 1 S T E P

1 U N T I L

L I J D O

I D [ 5 ] : = B I 0 t S ] ",

2 7 7 , 0 O U T I N F ( I D , L t O ) E N D R E P O !

G O T O V S I

2 76,0

279,0

2 8 0,0

END	. 5	К Р Т 7 ь 4 3	N M L l = N M L * i ;
IF	N M L	7 K M L T H E N	BEGIN
	GOTO R K 1N M L ];

							.... » . П А КЕ Т .00 .
	П Р И	л. 2		П Р И	Л		ПРИЛ.		2	ПРИЛ
2 8 1 , 0		RK 1 :С О Р У ('		,' I '	( K A T A L O G ) J		G O T O	P V T
			'i'	,' I '
2 8 2	, 0	RK2I C O P У	( '2' ,1 1 *		. K	A T A L O G ) j	G O T O	P V T
2 8 3	, 0	R к 3 :с о р у ('		, ' T . K A T A L O G ) J			G O T O	P V T
			'i' ,
2 8 4 , 0		R к 4: с о p у	('1<' ,' 1 ' . K			A T A L O G ) ;	G O T O	P V	T
2 8 5	, 0	R K 5 : c o p y i '5' ,1 I' . K A T A L O G ) ;

2 8 6 . 0

Р Ѵ Т

287.0

288,0

289.0

290.0

291.0 u :

292,0 O P

293,0 E N U P L

O U T P U T ( K A T A L O G ) ;


S K A T : = O ;		S O T O		S L ^ O N A E N D				;
I F	S S + S U = O T H E N				G O T O		F I N ;
I F	S G X O T H E N		B E G I N
	0 L ; = T R U E		i	G O T O		P I G E N Q		;
O B : = T R U E		:	G O T O		e :
K O N I D : = T R U E				i

2 9 4 , 0

C T 1 1 6 ) : = C T 1 1 6 ) ♦ 1 ;

2 9 6 , 0

E N U

;

2 9 6 , 1 '

К S N B : = K S N d * 1 ;

G O T O

M 9 E N D

O B S T ;

2 9 7 , C

I r

A S S B * 6 0 < 3 0 0 T H E N

G O T O

M l ;

2 9 8 . 0

Т Е К С Т ( ‘ П Е Р Е П О Л Н Е Н И Е

Б У Ф Е Р А

С Т Р О К

2 9 9

, 0 .

B U S T '

, в К Д Т , і , 3 , 3 ) )

3 0 0

. 0

S P l ' 7 2 1 ' , B K A T , S , 2 8 0 , A S P I ) i

. 0

O U T B U F ( B U S T , K S N ö ) ;

G O T O

F I N J

. 0

E N O

N T S > K S N B

. 0

l F * 7 0 B S T T H E N

G O T O

M 9 ;

. 0

C O M M E N T

У Д А Л Е Н И Е

О Б Р А Б О Т А Н Н Ы Х

С Т Р О К

ѲU8 Т і 1>

3 0 5 , 0

O S T I а : = A S T B [ М Т Б ] - 1 ;

D P E R : = A S S B - A S T B I N T S J J

J O 6 , O

F O R

I : = I S T E P

I U N T I L

D P E R D O

B U S T I I J : = S U S T I D S T J B + I ]

3 0 7

. 0

K 5 N B ; = K S N B - N T 3 * I :

3oe,o F O R I :=2ST E P I U N T I L K S N B O O

	ПРИЛ. 2				ПРИЛ .	2		прил		ПЙИЛ
- 5 0 9 , 0			я з т а і і 3 : = f l s r B L N T s + i - i J - O S T I R ;
3 I 0 , 0		Д 5 5 В : = D P Е л * 1 ;			N T S : = 1 ;
3 1 1 . 0		мо:	OB S T :m s :=F ALSE				: K S G :=O ;
3	1 2 , 0		N s c : rflsTBtN T s i ♦ <i					s s : =eusTiNsc-		i;
3 1J , О			B 3 : a t f U S T ( N S G - 3 ) ;					r , s : = B U S T ( N S C -		1 !
3	I « , 3		P S : = B U S T t s s i - 1 1 ;					N S S : = N S G * S S + G S ;
3	1 5 , 0		N S 1 : = N G 2 : = N C 3 : = o ;
3 1 6 , 0		E N O	R 1 u	;
3	1 7 , 0
3	1 в , О P R O C E D U R E			B P C I G U G I ;		V A L U E C D G ;			I N T E G E R	C O G ;
3	1 0 , 0 C O M M E N T			B P G	в ы д а е т	в	G	г р у п п у	п о т р е б о в а н и я G D G
3 2 0 , 0				ж е л а е м а я д л и н а				г р у п п ъ 1	,

3 2 1 . 0

3 2 2 , 0

3 2 3 . 0

3 2 « , о

3 2 5 , 0

3 2 6	, 0
3 2 7	, 0
3 2 8	, 0

3 2 0 . 0

И С П Р Д В Л А Е Т И С К А Ж Е Н И Й Ф О Р М Ы Г Р У П П ;


B E G I N	I N T E G E R		1 , S I M V , N P C , S P G j			B O O L E A N	S ! , S N ;
C O M M E N T N P G - Н А Ч А Л О П Р И С О Е Д И Н Я Е М О Й Г Р У П П Ы ,
	S P G - К О Л И Ч Е С Т В О С И М 6 0 Л 0 В b
	п р и с о е д и н я е м о й				г р у п п е ;
с т 1 1 7 1 : = с т I [ 7 1 ♦ 1 ;
вс : = о ;	K T ; = F A L S E			;
N G I F O T H E N B E G I N							г р у п п ы ;
C O M M E N T		з а н е с е н и е			в G ч а с т и	д л и н н о й	г р у п п ы ;

5 3 0 , 0

м i : s o : = K G i - ы е i ♦ i ;

, 0

F O R

i : = N G 1 3 T E P

( U N T I L

K G 1 0 0

3 3 2

, 0

I F O T S I N T H E N

t I - N G 1 ♦ П

; = W S L E L S E

B E G I N

3 3 3 . 0

s I M V : S B U S T

1 1

] ;

I F

S I M V > 3 2 T H E N

B G ; = B G * I ;

3 « ,

G [ I - N G 1 ♦ 1 J : = s I M V E N O

I ;

ЗЗІ ,О

N G I :

S N G 2 |

K U

: = K

G 2

;

N G

2 : P

N G 3 ;

3 3 6

, О

. K G Ü S K G S ;

N G 3 : = K S 3

; = A ;

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

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

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

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

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

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

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

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

Информация

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

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