Добавил:

ivanov666 Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Башкирский Государственный Аграрный Университет

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

книги из ГПНТБ / Кастин, О. М. Система первичной обработки метеорологической информации

.pdf

Скачиваний:

Добавлен:

19.10.2023

Размер:

7.14 Mб

Скачать

☆

<<< < Предыдущая 1 2 3 4 5 6 7 89 / 199 10 11 12 13 14 15 16 17 18 19 > Следующая >>>

ПРИЛ • г	ПРИЛ. 5	ПРИЛ. Й	П Р И Л , і
3 9 , 0	N S S , K S a , S C , 8 C , N P , P I , N R , K S N B ,
3 0 І О	A S S B , N G 1 , K G I	, N G 2 , K G 2 , N G 3 , K G 3 ,
1 , 0	V V , G G , S M A M , S M S M , S P N 1 , S K M M , A M Z U ,
J 3 , 0	И Д , W B , W C , W 0 , W E , W F , W 0 , W H ,
3 3 * 0	W l , W J , N K , W L , N M , W N , W O , W P ,
3 4 , 0	W O , W R , W 5 , N T , W U , W V , W W , W X ,
3 3 , 0	W y , W Z , r t O , W 1 , W 2 , W 3 , W 4 , w 3 ,

3 6 , о

3 7 , 0

3 8 , 0

3 9 , 0

. 4 0 . . Р .

4 1 , 0

*2,Г

4 3 , 0

4 4 , 0

4 5 , 0

4 6 , 0

4 7 , 0

4 8 , 0

4 9 , 0

3 0 , 0

5 1 , .

5 2 , 0

5 3 , 0

5 4 , 0

5 5 , 0

5 6 , 0

H 6 , W T, W 8 , W 9 , W C R , W M L , W L R ,

« Ü f l , W S P , W P O , N C O , H E Q , W S L ;

C O M M E N T

N T S

. . N 3 5

N Z 3

N T

S S

B S

P S

N S C

K S C

- H O M f c P О Б Р А Б А Т Ы В А Е М О Й С Т Р О К И ,

. - . Н А Ч А Л О С Л Е Д У Ю Щ Е Й С Т Р О К И Н Д B U S T ,

- Н О М Е Р С Т Р О К И З Д Г 0 Л 0 В К Д с в о д к и ,

- Н О М Е Р П Е Р В О Й С Т Р О К И С О О Б Щ Е Н И Я ,

- К О Л И Ч Е С Т В О С И М В О Л О В В С Т Р О К Е ,

- К О Л И Ч Е С Т В О Б У К В В С Т Р О К Е ,

- К О Л И Ч Е С Т В О Г Р У П П В С Т Р О К Е ,

- К О Л И Ч Е С Т В О С И М В О Л О В ' П Е Р Е В О Д С Т Р О К И

П Е Р Е Д Н А Ч А Л О М Д А Н Н О Й С Т Р О К И ,

- Н А Ч А Л О С Л Е Д У Ю Щ Е Й Г Р У П П Ы Н А B U S T ,

- Д Л И Н А П Р И С О Е Д И Н Е Н Н Ы Х г рупп,

S S	- К О Л И Ч Е С Т В О	С И М В О Л О В В Г Р У П П Е ,
8 S	- К О Л И Ч Е С Т В О	Б У К В В Г Р У П П Е ,
P l	- П Р И З Н А К В И Д А О П О З Н А Н Н О Й И Н Ф О Р М А Ц И И ,
N R	- Н О М Е Р Р А Й О Н А - В Н О М Е Р Е С Т А Н Ц И И ,
K S N ß	- К О Л И Ч Е С Т В О С Т Р О К Н Д B U S T ,
A S S B	- А Д Р Е С С В О Б О Д Н О Г О С Л О В А Н А B U S T ,
N ; 1 -	K U 3 - Н А Ч А Л А И К О Н Ц Ы Г Р У П П Н Д B U S T ,

		п р и л .			г
5	7	,	0
5 В		,	0	w C S
5 9		, 0		W N L
6	0	, 0		к	L S
Ы		,	0	w o s
6	2	,	0	W 5 P
6	3	,	0	W P		0
6	4	, 0		И	С	J
6	5	, 0		«	Е	.1
6	6	, 0		r t S L
6	7 , 0			B O O L E A N
6	8 , 0			B O O L E A N
6	9 , 0			B O O L E A N
7 С , 0				С о V Ч £ К Т
	(			К S
71
7	2	, 0		к	т
7	3	,	0	о с
7	5	, 0		0 Т S ! N
7	5	,	0	Cn ST
7	6 , U			1 М Г	Е	Е R
7	7	, 0
7 3 , 0
7 9 ,			п	Ь о О L £ Д (J
3	0	,	0
4 1		,	"
3 2		, ■
3 3 , 0				с 0 .4 Ч Ц N т

. * • •л.• • • • • • • • • • • • • • • » • ♦ п а к е т . о о

• • •

П Р И

П Р Я Л .

П Р

И Л .

П О Л У Ч Е Н Н Ы Х

П Р И

Р А З Б И Е Н И И

Д Л И Н Н О Й

Г Р У П П Ы ,

В О З В Р А Т

к Д Р Е т к и ,

П Е Р Е В О Д

С Т Р О К И ,

п е р е х о д

н я

б у к в ы ,

П Е Р Е Х О Д

Н Я

Ц И Ф Р Ы ,

- П

О Б

Л ,

т о ч к е :

' . • ,

■

з д п я т д н : ' , • ,

з и я к

р а в е н с т в а :

• = * ,

з н а к

о т с у т с т в и и

и н ф о р м а ц и и :

K S , Н Т , 0 С , 0 T S 1 N , 0 B S T , Т Т М 5 і

с в , 0 6 1 , Ö L , к о и I о :

P E R V

b R

;

П Р И З Н ч К

К Э Н Ц Д

С Т Р О К И ,

П Р и 3 Н J К

К О Н Ц А

С О О Б Щ Е Н И Я

' =

- П Р И З Н А К

О Т О Р В А Н Н О Й

З Т

С В О Д К И С Т Р О К И ,

П Р И З Н А К

О Т С У Т С Т В И Я

И Н Ф О Р М А Ц И И

' / ' ,

П Р И З Н А К

О Б Р А Б О Т А Н Н О Й

С Т Р О К И ; -

д о д д у

c i r : 6 ] , B U 5 T [ i : 3 o o ] , f l S T B [ i : 9 j ,

т ч г б 1 о : в ] , с т I [ 1 : 7 0 ] ,

с г т ч [ о : 9 ) , т и м : і 5 , і : 2 ] , г ѵ і о [ і : і 5 і ;

д р р д у

B K A r i ) : 9 9 ] , A S P i [ i : 2 3 0 ] ,

с в с я т і а : і , п : 2 5 Б ] , С Б Р і [ і : і з 2 о ) ,

м д м [ ’ : с м д ч ) , ч Б м [ 1 : о м Б ч ] , P N I 1 1 : U P N I ) ,

i D M : u M i B ] , K A r A L 0 G ( i : 6 K j ;

0 5,0

ГРУПНЛ, ВЫДАННАЯ Öр 12,

ПРИЛ, 2

ПРИЛ. 2

п р и л . г

8 5 . 0

B U S T - Б У Ф Е Р О Б Р А Б А Т Ы В А Е М Ы Х С Т Р О К ,

8 6 . 0

Д J Т В -

Т . Д Б Л И Ц Д А Д Р Е С О В С Т Р О К Н Д B U S T ,

К О Д Е ,

8 7 . 0

С Т Т К І - Т А Б Л И Ц А Ц И Ф Р 0 - 9 В Т Е Л Е Г Р А Ф Н О М

8 8 . 0

T u

- Т А Б Л И Ц А О П О З Н А В А Т Е Л Ь Н Ы Х Ц И Ф Р У Р О В Н Е Й ,

8 9 . 0

С В С Д Т - К Д Т Д Д О Г С Л О В А Р Я С И Н О П Т И Ч Е С К И Х С Т А Н Ц И Й ,

9 0 . 0

C S P I - С П И С О К С Л О В А Р Я С И Н О П Т И Ч Е С К И Х С Т А Н Ц И Й ,

9 1 . 0

T N P S - Т А Б Л И Ц Д С Л О В А Р Я С И Н О П Т И Ч Е С К И Х С Т А Н Ц И Й ,

9 2 . 0

Т ѵ і а - Т Д Б Л И Ц А

З Н А Ч Е Н И Й

У К А З А Т Е Л Я В Е Т Р А ,

9 3 . 0

В К А Т - К Я Т Д Л О Г С Л О В А Р Я А Э Р О Л О Г И Ч Е С К И Х С Т А Н Ц И Й ,

9 4 , 0

A S P 1 - С П И С О К С Л О В А Р Я

А Э Р О Л О Г И Ч Е С К И Х с т а н ц и й ;

9 5 . 0

P R O C E D U R E

O U T l N F ( A , B ) ;

V A L U E

B i

9 6 . 0

9 7 . 0

B O O L E A N

A R R A V ' A ;

I N T E G E R

В ; B E G I N

9 8 . 0

B O O L E A N

A R R A V

B U P ( I : 6 I 6 } ;

S P I * 7 o 6 • , A , в , B U P ) E N D ;

9 9 . 0

O U T B U F I B U F . K S N B I ;

1 0 0 . 0 P R O C E D U R E

K S N B ;

1 0 1 . 0

V A L U E

K S N B ; B O O L E A N

а я й д у

B U F ; I N T E G E R

1 0 2 . 0

B E G I N

I N T E G E R

N R , R E S , J , К s B U R , P S ,

1 0 3 , 0

3 1 , S l * 4 , S S , C S , S C , N ;

В U R 1 ;

1 0 4 . 0

B O O L E A N

P C P , S I P , R E G P , 3 P A C E P ,

1 0 5 . 0

B O O L E A N

A R R A V

B U R C l M O O O l ;

1 0 6 . 0

C O M M E N T

С Ч Е Т Ч И К - Б У Ф Е Р А Р Е З У Л Ь Т А Т О В ,

1 0 7 . 0

K S i U R

1 0 8 - , -0--

B U 4

Б Ѵ Ф Е Р Р Е З У Л Ь Т А Т О В ,

1 0 9 . 0

B U P

Б Ѵ Ф Е Р П Е Ч А Т И ;

;

1 1 0 . 0

Р с р ; ф $ і р : S H E U P : = 5 Р А С Е Р : n F A L S E

1 1 1 . 0

>T L R : = 3 I ;

м и я : = 2 7 ;

H N L ; = B ;

N S P : = < ;

;

i : i ;

1 1 2 . 0

N R ; 3 4 4 ;

R E G : = о ; K S B U R ; = I ;

B U R I ; = T R U E

...•••••»•»•••••••о«....

......lArtEr.UJ

««.«.

П Р И Л .

П О И Л )

П Р И Л .

П Р И Л . 2

пз,о

I F K

S N B

< O T H E N

E G

I N

R I K

S B

U R I

: = B U R

I ;

1 1 1 . 0

O U T I N F ( B U R , K S B U R 1 1 G O T O

F I N E N O

П5,о

ss:=BUFto);

G S і =B U F [j+г ]j P S ;=B U F tо*зj♦ i; о ;=д» 4 j

1 1 6 . 0

F O R

N : = P 5 S T E P

- I U N T I L.

I D O

B E G I N

C I : E N U J

1 1 7 . 0

P C P : = T R U E

t s i M : = w N L i

G O T O

Z S P ;

1 1 8 . 0

so:=B U F lJ ];

0 : = 0 + 1 ; в:

S I :*B U F IJ];

1 1 9 . 0

£ F

5 I > 3 2 T H E N B E ^ l N

S I : = S l - 3 2 ;

1 2 0 . 0

I F

R E G j i N L R T H E N

B E G I N

R E G 1 = N L R ;

Z S P ;

R i ;

E N D - i

1 2 1 . 0

R ;

R E G P ; = T R U E

S I M : = R E G J

G O T O

1 2 2 . 0

G O T O

f l E N O

;

1 2 3 . 0

I F R E G = N D R T H E N G O T O Д ;

і г - 4 , 0

R E G : = F ' O R ;

G O T O

R I

Z S P ;

1 2 5 . 0

л 1

S I P : = T R U E

;

s I M : = s I ;

G O T O

1 2 6 . 0

я i :

J : = J + I ;

S G : = S G - I ;

1 2 7 . 0

I F

S G * 0 T H E N

G O T O

e ;

Z S P ;

a I :

G S : = G S - I ;

1 2 8 . 0

S P A C E P : = T R U E

;

S I M : = W S P ;

G O T O

1 2 9 . 0

£ F

G S X O T H E N

G O T O

C ;

1 3 0 . 0

I F

9 1 0 < K S B U R T H E N

B E G I N

1 3 1 . 0

O U T I N F

I B U R , K S B U R ) ;

1 3 2 , 0 ‘

B U R i : = T R U E

N R I = 4 4 J

K S B l J R I s l E N D

B U R i

1 3 3 . 0

к S N B : = K

S N B - 1 ;

rG O---T O

;

1 3 1 . 0

C O M M E N T з а н е с е н и е

с и м в о л а

1 3 5 , n

Щ в

мяссиа

Р Е З У Л Ь Т А Т О В ;

1 3 6 ,

п Z S P :

I F

N R < 2 T H E N

B E G I N

1 3 7 . 0

B U R [ K S B U R ] : = в и й 1 ;

B U R I : = T R U E

і з ѳ , о

N R : = < < !

K S B U R : = K S B U R * I E N D

;

1 3 9 . 0

B U R I ; = B U R I « O N O R ( S I M , N R ) ;

N R : = N R - 6 ;

A i E N D

M 0 , 0

I F

S I P T H t N

B E G I N

S I P ; = F A L 5 E

J G O T O

ПРИЛ, 2

ПР«1Л. 2

ПРИЛ, 2

ПРИЛ. J


M l , 0	IF P C		P T H E N		B E G I N		P C P ; = F A		L S E
1 4 2 , 0	I F	S P A C E P T H E N				B E G I N		S P A C	Е Р
1 4 3 . 0		G	O T O	В 1 E N D			I

; G O T O	С 1 E N D	j
1 = F A L S E	;

1 4 4 . 0

I F

R E G P T H E N

B E G I N

R E G P ; = F A L S E

i G O T O

R l E N D

;

1 4 5 . 0

F I N ;

E N D

;

. 0

7 . 0

I N T E G E R

P R O C E D U R E

T T N

( U , N S

, K S

) ;

і 4 ѳ

, о

V A L U E

N S , K S ;

I N T E G E R

A R R A Y

G ;

I N T E G E R

N S , K S ;

1 4 9

. 0

C O M M E N T

З Н А М Е Н И Е ,

П Р Е Д С Т А В Л Е Н Н О Е

K S

С И М В О Л А М И

0 . 0

С И М В О Л А

Н О М Е Р О М

N S

Г Р У П П Ы

G ,

П Р е О Б Р А -

1 5 1

. 0

З Ч Е Т С Н

З Н А Ч Е Н И Е

П Е Р Е М Е Н Н О Й

Т И П А

I N T E G E R

;

. 0

B E G I N

I N T E G E R

Р , R , Т , м , к , s ;

5 1 , U

с т I

1 4 ] ; = С Т I

£ 4 ) * 1 ;

1 5 4 . 0

R;=o: м:=і;

= N

S +

K S

I ;

5 . 0

F O R

T ; = K S T E P

- l U N T l L

N i D O

B E G I N

5 6 , 0

3 : = G t T 1 ;

5 7

. 0

F O R

P : = 0 S T E P

I U N T 1 L

9 0 0

8 . 0

I F

S = C T T N [ P ] T 5 - 3 2 = C T T N [ p ]

. 0

T H E N

G O T O

M l ;

1 6 0

. 0

T T N : = -

1 ;

G O T O

м з J

ібі,и

M I ;

: =

R *

м2 :

: = M

« I

E N

;

•

. 0

T T N } = R ;

•

163.0

мз:

E N D

T T N ;

. 0

P R O C E D U R E

F K M M I v I , D M , I M ) ;

V A L U E

V i , D M ;

1 6 6 . 0

I N T E G E R

V i , D M ;

B O O L E A N

A R R A V

I M ;

. 0

C O M M E N T

F K M M

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

К А Т А Л О Г А

М А С С И В О В

. 0

М А К Е Т О В

П Е Р Е Н О С

М А С С И В О В

М А К Е Т О В

Н А

М Б I

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

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

• • • п . к ь т . о о

• • • • •

п р и л .

п р я л .

п р и л .

1 6 9 , 0

ѳ Е о I N

5 К Ы Н : - э к и м - * 1 ;

1 7 0 . 0

1 F

З К М М з 1 5 T H E N

B E G I N

] 7 і , о

т е к с т < ' п е р е п о л н е н и е

к а т а л о г а

к м м ' ,

1 7 2 . 0

в к д т , і , S , з ) ;

1 7 3 . 0

S P 1 ‘ 7 2 Г

, В К Д Т , 5 , 2 0 0 , A S P I )

;

1 7 - 4 , 0

С О Т О

S T O P E N O

;

1 7 5 , о

к м м і S K M M , U

1 1 к м м [ S K M M , 2 ) ; = о м ;

1 7 6 . 0

к м м [ S K M M , з ] : ? д м г и ;

к м м [ S K M M , ч ]

: = M O N T H ;

1 7 7 . 0

к м ч і S K M M , 5 1 : * о я у і

с о р у ( 1 М , д м і и і і

1 7 8 . 0

A M Z U ; C A M Z U * 3 2 E N Ü

F K M M ;

17 9,0

1 0 0 . 0

P R O C E D U R E

R I G ;

1 8 1 . 0

C O M M E N T

R I G

В Ы Б И Р А Е Т

И З

T E L I N

H Д

B U S T

1 8 2 . 0

О Ч Е Р Е Д Н У Ю

С Т Р О К У

Т с Л е Г Р Д * Н О Й

И Н Ф О Р М А Ц И И

1 8 3 . 0

О С У Щ Е С Т В Л Я Е Т

Ц И Р К У Л Я Ц И Ю

С Т Р О К

Н Д

B U S T

1 8 4 , 0

В Е С Ы

I N T E G E R

O S T I R , D P E R , I ;

1 8 5 . 0

C O M M E N T

0 5 T I R

Д Л И Н Д

С Т И Р А Е М О Й

Ч Л С Т И

B U S T

1 8 6 . 0

O P E R

Д Л И Н Д

П Е Р Е Н О С И М О Й

Ч Д С Т И

B U S T

;

1 8 7 . 0

ст 1 [5):= C T I [5 ]*1 - ;

1 8 В , 0

I F

N T S » K S N Ü T H E N

B E G I N N

1 В 9 , 0

I F

0 э S T T H E N

J E G I N

i 9 Q , o

A S S B : = N T B : = I ;

K S N B : = O I

1 9 1 . 0

C O M M E N T

в ы б о р к а

с т р о к и

и .з

T E L I N

н д

B U S T

;

1 9 2 . 0

M i : f l S T B t K S N B + i j : = f l 5 S B ;

1 9 3 . 0

B E G I N

S I , R E G , I N ;

1 9 4 . 0

B O O L E A N

Z 1 ;

1 9 5 . 0

S N I T C H

R K : = R K I , R K 2 , R K 3 , R K 4 , R K 5 ;

1 9 6 . 0

I N : = A s s в ♦ 5 ;

B S : i G s : = P s ; = s s : = o ;

ПРиЛ,

П Р 1л ,

ПРИЛ.

п р и л, а

197.0

8G 1зЗС «зО{

1 9 В , 0

А ;

I F

P E R V O B R T H E N

B E G I N

1 9 9 . 0

P E R V O B R ; S U B : S U B i : = F A L S E

;

200 ,0

DL!s K

O N 10:=

F A

L S E

J P

P C :=NNN1:=0:

* . U I J .

202 ,0

P R : =

N M L : =

;

coro

R K

I N M

L J E N

;

2 0 3 . 0

I F

H O N I Q T H C N

С О Г О

F I N ;

2 0 4 , 0

NCEL^L.I OTHEN

vsi:

2 0 3 . 0

B E G I N

z I :=I O (N C E L I ; si:=V N O R I Z

I .N B I T .SI ;

2 0 6 . 0

2 0 7	, 0
2 0 8	, 0

2 0 9 . 0

2 1 0 , 0

2 1 1 , 0

212. 0

2 1 3 . 0

214.0

2 1 6 , 0

2 1 7 . 0

2 1 8 . 0

2 1 9 , 0

220 ,О

221, 0 222, 0

2 2 3 , 0

2 2 4 , 0

•NB 1T		:=NB 1T-6 i
IF	NB1K6THEN		B E G I N
N C E L		: = N C E L ♦ 1 i	N B I T ; = 4 B E N D ;
I F	7 { S I = W N U * S I = N C R ) T H E N B E G I N
N P R		: = P P C : = o ;
IF S I c W S P T H E N			B E G I N
	I F	S G = O T H E N	G O T O A ;

P I G ;	B U S T I i N - S G -				1 ] : = S G ;
и :	B S ; = B $ * B G ;				S S : = S S * S G ;
	G $ :=G S ♦I ; sc:=S G :=o;
	I N :=I N +I ;
	I F	и в 1 T H E N			B E G I N			O B I : = F A L S E	J
	G	O T O	B E	N	D	;			'
	I F	O L T H E N			B E G I N		D L : = F A L S E		i
	G	O T O	L E	N	O	;
	I _ F	S S « 5 2 T H E N				G O T O		A ;
G O T O		B E N D		S I = W S P ;
I F	S I s W L R T - S I = 0 T H E N							B E G I N
	R E G	:=32!		G O T O			AE N D ;

прил. ...................... а	* .................	. . . . . . . . . . . . . П ДКЕТ, 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

<<< < Предыдущая 1 2 3 4 5 6 7 89 / 199 10 11 12 13 14 15 16 17 18 19 > Следующая >>>

Соседние файлы в папке книги из ГПНТБ