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

F O R

i : = i S T E P

I U N T I L д к о о B E G I N с 5 : = с и н к [ і ) ;

I F

V N O R ( C S , 4 6 , 2 ) = J T H E N B E G I N

3 4 2

, о

3 4

3

, 0

3 4

К , О

3 4

5 , 0

3 4

6

, 0

3 4

7

, 0

О Х Д Т 1 1 о 1 ] : ± с т д т 1 1 о1 ] ♦ 1 ; I : = J . 3 E N O E N D

I ; .

G O T O У Л О Р Я ц ;

с п и с к и :

c c : = c c * i i

H P : = V N O R ( C 5 , 2 7 , 7 > J

I F

Н С П І Н Р ) = O T H E N B E G I N

;

н с п ( H P ] : = к с п [ H P I : = c c ; G O T O n 2 E N D

я : = к с г ц н в ) ;

л е в [ я ] : = к с п ( H P ) : = c c j

3 4 8

, 0

3 4 9

, 0

3 5 0 . 0

3 5 1

. 0

3 5 2

, 0

3 5 8

, О

3 5 9

, 0

п г :

д м к [ с с ] : = i ; i : = i + j ;

G O T O

n 3 ;

M O P E :

C 6 ; = C 5 4 c o ;

I U N T I L f l K D O B E G I N

С 7 1 = С И Н К ( Р ] ;

F O R

P ; = 1 S T E P

£ F V N O R ( с ? , 4 6 , a I = 3 T H E N .B E G I N

C 7 : = C . 7 * C O ;

I F

T 0 C 0 ( C 6 , C 7 ) T H E N

B E G I N

1 : = I + З І

С Т Я Т M 0 3 ) ; = С Т Д Т t 1 0 3 ] ♦ 1 i G O T O П 3 E N O !

П 4 :

P : = P + 2 E N O

E N D

ц и к л

.

p ;

I l d + i ;

Д К ! = Д К + | ; С И Н К І Д К 1 : = C 5 J

I F

I > O C H N T H E N

G O T O к о н с и н ;

с ' 4 : = с и н ( 1 ] ;

I F

V N O R ( C 5 , 4 5 , 1 ) = o T H E N

G O T O 1 1 4 ; G O T O

R P T ;

9 n o p я д ;

E N D

в ы б о Р к л

к о р д б л е й

и ф о р м и р о в а н и е

с п и с к о в ;

C O M M E N T

у п о р я д о ч е н и е

с у х о п у т н ы х

с о о б щ е н и й ;

ир1 1

р :»д м к [Я)і

а:=дсв(д];

с з і в с и н і р )

A:-VNOR(CS,20,10)»12+1;

Об IвБУПI а 1;

IF TOCO(С 8,С 1»THEN

BEGIN

пЕ:

6УП[А);*С5;

д:=д*і;

р :=р * і ; с з і в с и н і р ];

IF VNOR(C5, 4 3 ,1)B0lP2flcnHTHEN GOTO ПE ;

GOTO

CMCENO

ПЕРЕНОС

МАКЕТА;

ствт 11 0 2 ]:=ст A T [102 ]* 1 ;

U VNOR(C&,48,2)»VNOR(СЗ,48,7(THEN

СОТО

П£

Смсі

if O K O T H E N

B E G I N д :=о ;

GOTO

R P T E N D

K O H E U

р а й о н а

. i;

C O M M E N T

п е р е н о с

м а к е т о в

C

syn

в

по ле

у п м ;

FOR Р: = 15ТЕР

12U4TIL

12 00000

BEGIN

СЗІхВѴЩР]

IF

TO G O (C S ,C I ITH EN

G OT O

K H ; Q :*P ; A :I P * I2 J

ni:

упм(м]:=сзі

a:=a*i;

ч:=м*і; С5:=б у п (і );

I/

7T0G0 (C3 ,C 1)>Q <A T HE N

GOTO

П i;

IF

M >3986T H E N

B E GI N

м б :=м б »1;

M := I ;

Со р у і у п ч .д м в ); дчБ:=АмБ*зг;

FOR

G := ISTEP

H JNT IL

4 0 0 0 0 0

у п щ з ];=C 2 ENO ;

K H :

END

P

-

БУП

в

ѵпм;

I N T E G E R н п н . н м . а п м , н м б , н с т і , н с т а , і ;

н п м : = 1;

я м б : = і о 25 j

с т я т [ і р 8 ) : = м в :

I F R E G I M ES OT H E N B E G I N .

н м : = 3 0 0 0 1 і

GOTO

RPBEND

;

I : = N z я т ♦ < ;

c o p y ( * 11* , I , п м ) ;

C7 : SIIMI 0 ] І

f l n M S = V N 0 R ( C 7 , 1 5 , 1 5 ) І

FOR

I ! = n S T E P

1 U N T I L

Д

П М

- I D O

П М l 3 0 0 0 0 -

1 ] : SIIM t Д П Ч -

I ) J

н

м : = 5000і -

д п

м

;

с

о

ю

R P B J

RPT:

С 5

! =

П М І Н М 1

і

и

с

т

1 ; = V N O R ( C 5 , 2 7 ,

1 7 ) J

H C T 2 : = VNO R ( C 6 , 2 7 , 1 7 ) ;

I F

HCT 1=HCT2THEN

BE GI N

—*“

—————

с т я . [ 10 5 ) ; = с г я т 1 1o s ) + i ;

I F

V N O R ( C 5 , 4 8 , 3 ) > V N 0 R ( C 6 , 4 B , 2 ) T H E N

BEGIN

с т

я т

110Ы

: =

с т

я

т

[ i

о б ) *

i ;

R P l :

п м [ н п м ] : і С 6 ;

н п м : = н п м + J ;

и м Б : = н м б + і і

с е ; = п м б ( н м б ] ;

I F

V N O R ( C 6 , 4 5 , 1 ) = 0 « C 6 T H EN

GOTO

RP 1 ;

н ч : = н м + г ;

R P 2 :

H M ; = H M * I ; С 5 і г П м [ Н ц ) ;

I F

V N O R < C 5 , 4 5 , 1 ) = 0 * H M * 3 0 0 0 0 T H E N

GOTO

R P 2 i

ENO

ELSE

p E G I N

с T я T 1 1 0 7 ) : = с Т я т [ 1 0 7 1 * 1 ;

и р з :

п м і н п м ) : г с 5 ;

н п м ; = н п м * і ;

ң м : = н м * i ; c s ; = п м ( н м ) ;

I F

VNOR( С 5 , 4 5 , і ) = 0 « H M < 3 0 0 0 Q T H E N

GOTO

R P 3 ;

н м б : = н м Б * з ; R P 4 :

н м б : = н ч б + і ; е в : = п м б і н к б

] ; ’

I F

VNOR( С 6 , 45 , 1 ) = 0 «C6THEN

GOTO

RP4ENU

J

GOTO

riPOBcND

H C T ]

=

H C T 2 ; .

I F

HCT 1 <HCT2THEN

BEGI N

П Р . і Л . 3

П Р И Л . 3

R P 5 ;

п м [ н п м ) ; = с 5 ;

н п м ; = н п м * і ;

н м :=нм * і ; С 5 : = п н ( Н н ]

IF

VNOR (С 5 ,45 , 1 )= 0» HM 23 0.0 0 0THEN

СОТО RP5J

END

ELSE BEGIN

RP6 ;

п м 1

н пм ]: = с б ; н п м := н п м + і ;

н м б ; = н м б + і ; с б := п у 6 і н м б 1;

IF

V N O R ( C 6 , 4 5 , 1 ) = 1 «C6THEN

GOTO

RP6J

E N D

H C T I » < н с т 2 ;

п р о а : I F 7 T Ü C U (С6 , С 2 itHiN

B E O I N

ПРПр11IF

HMT30 0 0 0THEN

GOTO

R Р Г ;

я р 7:

IF

T O C D ( С 6 , С j )THEN

GOTO

RP 8;

п м [ н п м ] ; = с б ; н п н :=н п м » іі н м б :=н м б * і ;

с 6 :J п м Б 1н м ь ); G O T O R P 7 E N O ;

RP 8 ; IF M B F O T H E N B E G I N

м б: =м ь - і ; н м б := і ; C O P V (я м б ,п м б );

д м б :=я м ь *32!

С 6 : = п н б і і і ;

G O T O

п р п м е ч о і

Rp 9:

IF

H H 2 3 0 0 0 0 T H E N

BEGIN

п м ( н п м 1 := п м [ н н ) ; н п м : = н п ч + і ;

Н М ;= Н М + 1 І GOTO

R P9 EN 0

;

FOR 1 Js I ST EP lUNTIL Н ПМ ОО

B EG IN С 5 М П М І П ;

V N O R ( С 5 , 4 5 , 1 ) = ITHEN

BEGIN