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

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

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

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

Добавлен: 23.10.2024

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

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

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

• ....................................................................

 

 

• • • ♦ * . .

• • • • • • • • • • • • • • • • • • п а к е т . о а

П Р И Л

П Р И Л . к

 

 

И Р | Л .

4

 

 

П Р И Л .

4

5 7 . 0

T T I L - K 1 ; = 1 0 « V N O R I Я , 4 7 , 1 ) + V N O R ( Я , 4 6 , I ) ; L I S L M E N D

5 8 . 0

E L S E

B E G I N

I F

L E T H E N

B E G I N

M f l M l l L ] : =

 

5 9 . 0

1 0 0 » V N O R ( f l 1 4 4 , l ) + J O « V N O R I f l , 4 J , l ) V v N O R ( f l , 4 2 , i ) j

6 0 . 0

П 1 : s V N O R I Я , 4 4 , ] ) ;

I F n I = I T H E N

B E G I N

 

 

6 1 . 0

M R M 2 ( L ) ; = V N Q R ( 0 , 2 4 , і и ) j

 

M A M 5 [ L ] ; = O ;

 

 

6 2 . 0

М Д М 4 [ L ] : = V N O R ( Я , 1 4 , 3 ) ;

ч я м 5 [ L ] : = V N O R I я , u , u

) E N D

6 3 . 0

E L S E

B E U N

м а н а t u ] : = V N O R ( я , 3 1 , I о ) ;

< к л м з [ ( - ] : = о ;

6 4 . 0

M f l M 4 ( L ] : = V N 0 R ( f l , 2 i . , 9 ) J

И Я М 5 t L 1 : = V N O R ( Я , 1 2 , 1 2 ) E N D

65.0

L ;=L +1; К ;= К * II

END

ELSE

о EG IN

 

 

 

6 6 . 0

 

3 P ( ' 7 2 1 ' , O M 1 , 1 9

, 1 3 0 , B U c ) ;

 

 

 

 

67.0

FOR

L ;= ISTEP

IUNTIL

BSOO

B E G I N

мям ItL J :_I O u

;

6 8 . 0

М Я М 2 І L 1 : = 1 о 1 1 ; м Я м ' З [ L 1 I = U 1 ;

 

 

 

 

69.0

няня[и ]: = 111; мям51L]; = looI I E N O

;

 

 

7

U , 0

L ; = 1 ;

7

1

. 0

M 6 :

I F

7

2

. 0

E N D

 

7 3

, Г

 

 

К : = 0 ; I : ? 1 - 1 E N 0 E N D E N D :

L < 8 5 T H E N S P I 1 7 2 1 1 , О М 1 , 1 9 , 1 3 0 , В U F ) E N O

*


 

 

 

 

 

 

 

 

 

 

Р Р

п .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

U £ K F T U

Э Г » П Л С Г И Ч { ; С Ь м ѵ

C O O 1-5 Н И Р

 

 

 

 

 

 

 

!

 

 

 

 

 

М и К Е 1 Ы Д З р (і Л П Г И ч Е с к и х с о о р щ е н и ®

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

*

 

1

 

12

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

-

 

1

1 2'

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

П Р Г о .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

I <■*

3 77

 

1

2 4 1

 

D 6 0 4

Г

2

6 6

 

1 П 6 9 4

0

2

7 7

 

0 7 5 0

0

2

о 4

 

10 5 4 7 ' о

2

1 6 0

Cj q

 

2 7

50

 

a

 

 

 

 

 

1 + 3 "

С.

2 3

32 5 9 3 1

12

С

2 2

36 5 6 30

1 0

0

3 1

2

5

0

0

п

19

3 2 2 6 30

1 2

0

0

 

 

5 1 4

5 7 7

 

6 2 9

Г,

I е е

1 4 5 8 3 1

24

0 1 9 8

2 2 4 9 32

5 1В

0 2 4 R

1 1

5 11 *

1 1 -

0 2 0 2

2 2 1 7

11 +

1 1 +

R5

 

4 с

>

о q

30

0 4 7 2

4 7 6 9 3 4

5 4

 

Г 5 0 2

1 1 6 6 34

3

п 5 6 7

9 6 0 1 1 *

1 1 -

Q 5 0 7

31 5 8 32

3 4

о

 

 

 

 

7 0

2 4 1 ' 1

7 3 1

3 2

г

9 7 5 1 2 3 6 6 3 3

5 4 0

с

2 6

9 7 7 1 32

5 3 6

0 1 1

5 1 7 1 И +

1 1 '

0

36

7 9 6 2 32

5 4 3

5 C

 

5 5 6 2 - 7 6 2 3?

4 b

п

 

5 46 2 7 1 6 В 33

5 6 5

с 5 5 4 2 5 9 7 2 3 3

5 5 9

- 0 5 6 7 2 2 7 7 2 П *

1 1 +

0 5 5 7 ? 3 9 6 9

32

5 4 4

 

 

7 14

3 Ь 7

*>«

3 2

 

г

 

 

5 2 2

7 0 4

4 0 5

6 6

3 3

7 0

0

7 1 2

3 6 5

7 г

33

5 6

0

7 2 Ь

3 5 9

6 7

32

5 2 6

0

- 17

3 * 5

6 5

33

5 4 2

3T

 

Q n Q

4 7 5

5 6 3 г

5 31

 

В 9 4 5 2 5 11 + 3 3

8 2

р 9 0 6

4 L ?

1 1 + 3 2

5 6 1

0 9 9

5 2 5 1 1 * 3 ?

4 32

0 М 3

< 7 9 1 1 * 3 1

39

п

 

 

 

 

2 Ч

5 6 7

4 0

3 Г

5 3 5

П

1 0

6 0 7

11 + 3 2

5 9 4

р

2 3

5Ві1 1 1 * 3 2

5 5 9

0

36

5 5 9

1 1 * 3 3

2 9

0

3 1

5 fc

11 + 30

5 4 4

 

Г

 

 

2 0

16 4

( , Ц5

5 ?

3 1

5 4 5

 

1 4 6

6 6 7

11 + 33

1 0 4

Г

1 6 0

68,1

1 1 * 3 2

5 6

0

1 7 6

6 2 7

1 1 * 3 ?

5 3 3

a

1 7 0

6 5 3

1 1 * 3 1

4 8

м

 

5

J ' 6

6 4 5

і>ь

51

4 b t

г 3 2 5

6 1 5

1 1 * 3 3

5 Н6

Г

3 34

6 3'9

11 ♦ 3 2

5 6 3

3

3 5 4

6 Р 9

1 1 * 5 2

5 3 3

с

3 < <

6 3 9

1 1 * 3 3

S6 1

1 *

 

 

 

* * 6 ь ?1 9 7 3 1

5 3

* 5 7 6 6 5 7

1 1 * 3 1

6 7

Г 5 8 3 6 49 1 1 * 3 3

76

•* 6 п 5 6 1 1 1 - 3 2

4 3

0

1 1 -

1 1 + 1 1 * 1 1 +

1 1 *

~ 1

 

г

1 1 * м * 1 1 + 1 1 +

1 1 +

1

7 0 Н 7 4 3

1 1 + 1 1 +

1 *

п 7 Q 9

6 6 3

11 + 32

5 9 2

п 8 2 5 6 5 7 1 1 » 3 1

5 5 1

о 6 1< 6 5 3

1 1 * 11 *

1 1 +

 

П + 1 1 * 1 1 + 1 1 +

1 1 ■*

 

1 1 + 1 1 + 1 1 + 1 1 +

1 ♦

Г 9 9 R 7' І 5 11 * 1 1 ♦

1 1 +

0

2 h б е г

1 1 - 3 ?

7 1

0

17 6 9 1

1 1 + 1 1 +

1 1*

 

 

 

3C

 

и *

п * 1 1 * 1 1 +

1 1 +

 

1 1 + 11 ♦ 1 1 + 1 1 *

1 +

1 2 9 4

7 ‘ Р 1 1 + 1 1 +

1 1 ♦

1 3 2 8 7 6 1 11 + 11 *

1 1 -

0

1 1 +

1 1 + 1 1 + 11 ♦

1 1 +

23

 

11 *

1 1 * 1 1 + 1 1 -

1 1 +

1 1 + И + 1 1 * 1 1 +

1 *

г

1 1 ♦ *Ц ♦ 1 1 + 1 1 +

1 1 *

0

1 + 1 > + 1 1 + 1 1 +

1 1 +

я

1 1 +

1 1 + 1 1 + 11 ♦

1 1 +

1 0

 

П *

' 1 * М + 1 1 +

1 1 +

'

1 1 + 1 1 + 1 1 + 1 1 +

1 *

'■

1 1 +

п + 1 1 + 1 1 +

1 1 +

п

1 +

1 - 1 1 ♦ 11 -

1 1 +

с

1 1 *

11 + 11 + 11 ♦

1 1 ♦

 

 

 

 

 

 

 

 

 

 

П Р

Л .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1 0 3 3 1

 

2

- 3 6

 

1 0 3 2 1

*

2

9 35

 

1 П 5 7 Р

0

2

9 6 3

<99

л

4 - 4

4 7

5 -

3 3

+ 14

 

9 9 2

8

5 9

3 3

26

р

1

і к

5 7

34

1 7

4 4

 

4 4

П * 1 1 + 1 1 +

1 +

Р

7 6

1 1 + 1 1 + 1 1 +

1 ♦

г

1 12

16 5 7 34

1 в

■' 3 і 1 1 ^ 3 5 + 3 6

5 ?

3 5 5

1 0 7 4 4 34

4 2

п З п 6

 

5 6 34

5 4 3

7 n

я

 

2 3 9

6 1

3 4

4 5 5

0

его

2 0 3

5 6

3 4

55

п

8 9 5

125

7 3

3 3

59

5'-

 

t ц

3 о 3 f t

3 4

4 b 3

0 5 2 6

30 1 6 6 34

1 3 8

0 5 * п 2 67 7 3 3 3

5 8 7

4 '

 

6 6 6 4 5 1 t 7

3 4

5 9 2

0

6 В 1 4 0 1 6 4 34

1 0 6

 

6 9 7

3 « 3 7 1 3 3

5 9 Р

3 *

 

я с 5 5 м

f- r> 3 4

4 9 4

 

8 7 2 5 35 6 1

1 1 *

1 +

п 8 8 7 5 4 9 Ь 9 33

9 8

2 5

Г

9 7 ?

« :. X

! 1 * 3 «

9 1

 

9 8 В 5 6 1 11 + 11 + - 1 1 +

Г

2 5 * 9

1 1 * 3 3

1 Г б

5 j

1 1 ? 6 - 4

1 1 * 3 3

4 а а

л

1 2 9 5 9 7

1 1 * 3 3

6 1 3

('

1 4 2 6 13 1 1 + 3 ?

5 9 1

 

1 4

'

? с о ь - «

11 + 33

5 9 5

(1 3 0 9 6 0 7

11 + 3 3

1 4 5

г 3 2 о 6 Г 9 11 + 33

В 4

1 -1

Г 5 3 5 6 5 7

U + 33

В 3

1 5 5 8 6 6 5

1 1 + 1 1 +

1 +

Г

5 6 9 6 Ч

1 1 + 3 2

9 9

7 P

с 7 4 4 7 3 «

U + 3 3

9 9

0 7 7 1 7 1 1

1 1 + 1 1 +

1 *

г

7 8 2 6 ^

1 1 * 3 3

1 1 3

50

п 9 4 !

7 4 3 1 1 + 1 1 +

1 +

0 9 6 9 7 < 7

1 1 + 1 1 +

1 +

с 9 8 2 7 1 1 1 * 3 3

5 8 7

Зл

с

11 * 11 + 1 1 + 1 1 +

1 +

■\

2 6 2 7 8 7

11 + 3 3

5 8 5

 

2 7 9 7 1 7

11 + 3 1

5 8 5

2 r

о

11 *

11 + 1 1 + 1 1 +

1 +

0

4 9 1 8 0 9 1 1 + 1 1 +

1 *

0 5 1 С 7 6 0 11 + 32

1 2 2

1 Г.

0

1 1 +

1 1 + 1 1 + 1 1 +

1 +

0

1 1 ♦ 11 ♦ 1 1 » 1 1 ♦

1 +

f

1 1 + П + 1 1 + 1 1 +

1 1 +

 

 

 

 

 

 

 

 

 

 

П Р И Л .

 

 

 

 

 

 

 

 

с

1 0 5 4 9

3

6

2 6 9

 

1 0 6 В 4

С

6

4 7 6

 

1 П 1 рй

0

6

6 1 2

9 9

3 7

5 2 2 1 33

3

0

9 6 7

11

4

5

6

Г 9 7 4

33 17 13

4 -

0

п

2 9 7

52 15 11 +

1 *

п

2 9 1

1 1 + 1 1 + 11 +

1 1 +

Г 2 В 4

1 + 1 1 + 1 1 +

1 1 +

8 5

" 6С 4

Зк 5 9

3

5 2 4

с

5 9 7

3 8 6 3

2

5 1 <

0 5 7 4

3 0 6 1

6

5

7 С

г 1 5 5

57

5 a

2

4 2 2

0

1 5 4

5 3

6 6

2

5 2 9

Г

1 2 8

3'7

6 6

6

1 2

5 Г

п

5 7 1 2 ? ч S «

1

5 2 7

о 5 7 1 2 2 1 6 8

3

5 4 2

с 5 6 В 2 4 Г3 58 1 1

5 12

4

Г 7 3 1 3 4 3 5 7

1

5 3 3

п

7 3 ? 3 3 1 6 7

3

5 4 2

о 7 2 7 3 7 3 39

В

15

Зг

Г 9 2 6

4 8 7

11 + 1

5 3 2

0 9 2 8 4 7 7 6 4

3

ЗВ

с 9 2 0 4 9 7 5 9

5

21

2 5

п

* 3

5R 3

1 1 + n

5 3 9

Р

4 6 5 2 1 1 1 + 3

5 5 3

с

37 5 6 1 5 R

6

5 2 1

0

1 * 1

6 39

1 1 +

1

5 2 9

П

1 8 6

6 2 7

1 1 *

3

5 4 5

р

1 7 6

5 9:5

59

6

2 4

1 5

 

3 5 9 6 1 4

1 1 + 1

1 9

: 3 6 4 5 9 1 1 1 + 2

5 2 8

Г 3 5 7 5 6 9 5 9

6

1 9

1 п

п Ы 0 6 15

11 + 34

5 1 9

0

6 2 0 5 И 7 11 + 2 6

17

с 6 1 3 5 8 5 б г

1

5 15

7 ^

0

1 1 *

1 1 * 1 1 + 1 1 +

1 +

и

1 1 + 1 1 + 1 1 + 1 1 +

1 1 +

р 8 36 5 9 3

1 1 * 3 5

5 1 '

5 г

1 1 +

1 1 + 1 1 + 1 1 +

1 ♦

0

1 1 + 1 1 * 1 1 * 1 1 »

1 +

р

4 5 6 2 1

11 + 3 2

5 2 6

3 ?

Г

1 1 +

1 1 + 11 + 1 1 *

1 +

 

1 1 + 1 1 ♦ 1 1 + 1 1 +

1 1 +

г

3 6 1 6 3 3

1 1 * 3 1

5 5 3

20

0

1 1 +

1 1 + 1 1 + 1 1 +

1 +

о

1 1 + 1 1 + 1 1 + 1 1 +

1 1 +

п 6 0 S 6 7 7 1 1 + 3 2

6 5

1 С

4

1 1 +

1 1 + 1 1 + 1 1 +

1 +

Р

1 1 ♦ 1 1 * 1 1 + 1 1 +

1 1 +

1

4 1 5 1 5

1 1 * 3 1

1 ОЗ

 

0 1 6

*

6

1 1

 

10 7 3 1

0

t

1 8 1

п

2 4

 

8 2

1 0 - 2 5

1 3

г.

2 6

18

* 2 8

7

+ ? 4 9

 

6 8

9 2 5

2 *

•) ? 4 4

А

1 33

5 - 5

с 5 b 6

 

?

16 2 6

5 2 Г

0

5 5 5

34 6 5 33

5 1 1

п

 

9 8

 

7 : 6 5 3 «

2 +

0

1 1 <

3 5 7 5 32

1 1

0

 

5 6 5

2 2 Г

6 5 3 1

4 5

0 5 6 7 2 3 5 6 9

1

14

с

 

7 2 5

3 5

1

6 3

3 1

5 4h

 

7 2 6

3 5 9

6 5

2

5 ■q

0 9 8 5 2 3 11 + 33

5<

0 9 Г С 4 Q 3 11 + 32

1 2

с

 

34 6 2 1 1 1 * 3 3

5 6 ?

0 . 3 7 5 7 3

1 1 + 2 9

с

 

1 7 1

6 2 3

1 1 * 3 ?

ЗВ

0 1 7 5 6 3 3 1 1 * 2 3

2 6

0 3 5 0

5 ° 5 1 1 * 3 с

35

с 3 5 2 6 0 3

1 1 + 33

3 1

0 6 0 3 6 P 9

1 1 + 2 7

5 3 3

0

6 0 6 5 9 3

1 1 * 3 3

3 1

ч

 

8 2 1 6 5 9

11 + 2 8

5 С

с Ь 2 Б 6 3 5 1 1 + 3 3

4 2

0

 

2 5 6 7 J

1 1 + 2 В

5 7

0

3 ? 6 7 9 П + 3 2

5 6 7

1 1

3 2 8 7 19 1 1 * 2 6

5 7 5

0

3 3 9 6 8 5

1 1 * 3 1

5 7 6

1} 5 6 7 7 2 5

1 1 * 2 8

9 5

0

З Я З 6 5 5

1 1 * 3 1

5 8 5

1 9 8 0 6 6 5 1 1 * 1 1 »

1 1 +

0

1 1 +

11 + 11 + 11 +

1 1 -

 

 

1 0 1 0 5

0

7

1 1 С

 

1 1 4

13

о

7

1 < 5

0

 

2 5

 

34

4

6

9

0

1 1 *

1 1 * 1 1 * 1 1 ♦

1 1 *

3

 

2 9 6

 

2 4

С

6

1 4

0

1 1 +

1 1 + 1 1 + 1 1 +

11 +

0

 

6 1 0

32 5 8

R

1 7

0

1 : +

1 1 + U * 1 1 *

1 1 *

0

 

1 7 9

 

2 7

6 6

1 1

18

0

1 1 +

11 ♦ 11 ♦ 1 1 *

 

0

 

5 7 7

1 8 7

7 0

3

2 9

0

п *

і і * і і * 1 1 ♦

1 1 *

•1 7 3 9

3 17 6 5

5

3 8

с

1 1 +

и + 1 1 ♦ 1 1 +

1 1 *

0 9 3 6

5 7 3

1 1 + 5

4 3

0

1 1 +

1 1 + 1 1 + 1 1 +

1_J *

п

 

5 4

5 6 7 1 1 + 5

4 3

0

1 1 + П + 11 + 1 1 ♦

11 +

0

 

1 9 3

6 3 7

1 1 + 4

5 1

0

1 1 *

11 + П + 1 1 *

1 1 *

Г)

 

3 7 1 5 8 1

1 1 +

1

1 е

0

и *

і і * п * 1 1 ♦

\ 1 ♦

с

 

 

5 7 9

1 1 * 3

і <

0

1 1 +

1 1 * 1 1 + 1 1 +

11 +

0

 

8 5 1

 

 

1 1 * 3 - 4

2 0

0

Ѳ < 2 6 0 1 1 1 *

1

8

 

6 2 7

5 9 3

 

 

 

 

0

 

6 1 6 0 3

1 1 * 3 3

11

0

1 1 + 11 + 11 + 1 1 +

11 +

г 3 8 1 5 9 5

1 1 * 3 2

2 8

0

1 1 +

11 + 11 + 1 1 *

11 +

0 6 35 6 0 7

1 1 * 2 8

3 3

0

11 *

1 1 * 1 1 * 1 1 ♦

1 1 *

0

 

6 4

5 8 5

1 1 * 2 9

7 9

0

1 1 +

1 Ѵ + 11 + 1 1 +

1 1 *

 

 


На АЦПУ выдаются макеты аэрологических сообщений с М Л * П Р с зоны A/ZRТ а І .

Перед выдачей макетов печатаются день, месяц и время наблюдения. На каждой странице размещается столбец со

значениями давления на стандартных изобарических повер­ хностях и пять макетов. Один макет состоит из шести стол­ бцов.

Первый столбец состоит из двух позиций, содержащих при­

знаки статического контроля - признаки исправления зна­

чений М А « №

на стандартных изобарических по­

верхностях.

 

Первыми 'элементами остальных пяти столбцов являются соот­

ветственно:

 

 

 

 

 

-сумма трех чисел (признаков ): ІООдляY

судовых сообщений,

 

 

 

 

л

 

 

10 для передачи скорости ветра

в узлах и I для

обозначе- .

ния наличия в сообщении значений давления и/или темпера­

туры, не исправленных при статическом контроле;

 

-словарный номер станции;

 

 

 

-не

используется;

 

 

 

 

-номер района II ;

 

 

 

 

-номер станции

в районе

Ц і .

 

 

 

■ Начиная со второго элемента, столбцы 2-6 содержат зна­

чения следующих

метеоэлементов:

* * *

((?%$>), Т Т Т ; ,

т

. и,-

 

'

# *> ц,С

» / м

/і5/-

 

 

 

Отсутствие информации обозначается символом "ІІ+П.

153


ПРИЛОЖЕНИЕ 5

АЛГОЛ-тѳкст и примерь' работы алгоритма выдачи с МЛ-ПР на АЦПУ макетов

синоптических сообщений

. ..................... 4. ............ ...*...nAKET. 00

ПРИЛ,

5

 

 

 

ПР 1Л. Ь

 

 

 

 

ПРИЛ,

S

ПРИЛ, 4

1 , D B E G I N

B O O L E A N

С , М ; B O O L E A N

A q R A y

S K Ц I 4 2 ] , S K M Ц I 4 ^ ] ,

г , о

о м п : з о 1 , о м і [ 1 : s o ] ;

 

 

 

 

 

 

 

 

 

3 . 0

B O O L E A N

А р Н Д У

N C [ 1 :6 1 J , К С [ 1 : ьв 1;

 

O S S M i •

5 . 0

I N T E G E R

A R R A V С Т Д Т 1 1 : 2 2 0 | ;

I N T E G E R

5 . 0

P R O C E D U R E

С О Р У [

L I В R A R y ( ' 6 5 6 ' ) j

Д ;

 

*

6 . 0

^ N V E G E R

I , K , L , 0 , N Z R T , W ;

B O O L E A N

 

7 . 0

P R O C E D U R E

S P ;

L 1 В R A R у ( ■ 6 6 1 1 ) J

 

 

 

 

 

a , c

P R O C E O U R E

т е к с т ;

L i B R A R y ( ' 7 3 4 ' ) ;

 

 

 

9 . 0

I N T E G E R

P R O C E D U R E

V N O R I A , N R , K R ) ;

 

 

 

1 0 . 0

----—V A L U E N

R

. K R ;

—гB O —----O L E A N

 

A ;

 

 

P

 

 

 

 

1 1 . 0

I N T E G E R

N R . K R ;

S E G I N

 

I N T E G E R

 

 

1

 

1 2 . 0

5 p ( * 7 0 3 1 , A , N R , K R , P , 1 ) J

V N 0 R : = P E N D

 

1 3 . 0

 

1 N P U T ( S K , S K M , N C , К С , , C , M , N Z R T ) ;

 

 

1 5 . 0

F O R

H : = N Z R T + 2 ;

c o p y ( 1 П ' , w , с т д т ) i

 

 

1 5 . 0

I ; = 1 S T E P

I U N T I L

3 D O

 

 

 

 

 

 

 

1 6 , Ü C T A T l 1 1 : = C T A T [ 1 + 1 1 5 ] ;

 

 

 

 

 

 

 

 

1 7 . 0

£ F

C T H E N

G O T O

к о р а б л и ;

 

 

 

 

 

 

 

1 8 , c

B E G I N

D S 5 M : = C T A T [ 1 1 9 ) ;

 

 

 

 

 

 

 

1 9 . 0

 

O U T P U T I D S S M ) ;

 

S S M t O ; O S S M ] j

 

 

 

2 0 . 0

B E G I N B O O L E A N

A R R A N

: ізо];

2 1 . 0

I N T E G E R

A R R A N

M

S S

M I I

;

i 4 6 4

] , B U

F

I I

2 2 . 0

Т е к с т ( ' С У Х О П У Т Н Ы Е С И Н О П Т И Ч Е С К И Е С О О Б Щ Е Н И Й ' ,

2 3 . 0

о м , 1. , 3 , 1 ) ;

 

 

с и н о п т и ч е с к и е

с о о б щ е н и й ' ,

2 4 . 0

Т е к с т ( 1 с у х о п у т н ы е

2 5 , 0

0 4 , 2 , 8 9 ,

 

1 1 ;

 

 

 

 

 

 

 

 

 

 

 

 

2 6 , 0

S P ( ' 7 2 0

' , О М , 3 , 3 , С Т А Т , 1 , о , ‘ 1 * . ' 2 0 0 '

, 6 ,

;1 , 2 . о , 6 , 5 ) ;

2 7 , 0

5 Р ( ‘ 7 2 0

' , О М , 4 , 3 , С Т Д Т , . 1 , 0 ,

1 1 ' , '

2 0 0 ’ , 6

, :1 , 2 , 0 , 1 0 0 , 5 1

2 в , :■

Ь Р { * ?2 1 1 , О М , 7 , 1 5 0 , b U f

) ;

1 : = К ; = і ;

 

 

 

155


*

П Р И Л , 5 П Р И Л , 5 П Р И Л . 5 П Р И Л . 5

а«,О

SP (‘705* |С, 1,*0477* ,* 777 71,*7777* ,* 7 777 ' );

^о,о

и:S N Z R T *<; 'сору I'п *,w,ssH) і

 

 

 

 

4 1 . 0

s P t ' z a o ^ o m

. i . ^ a . S K . o . i . ' i o ' . ' a ’ . o

. i . o . o

. o . u ;

42.0

spt *7г9 *іомі^а,I464.M S S M .6I ■а■’і*.‘зоо»,

 

4 4 . 0

4 , 1 , 2 4 , 4 1 , 6 , 1 ) ;

 

 

 

 

 

 

 

 

4 4 . 0

F O R

L ; = l S T E P

1 U N T I L

1 4 6 4 Ü 0

M S S M [ L 1 : = 1 0 1 1 J

 

4 5 . 0

L ; = i : = l j

м 2 :

Я : = 3 5 М Ц ) ;

M S S M [ L ] : = V N O R ( Д , 4 8 , 2 ) ;

4 6 . 0

H S S M l L * 1 1 : = V N O R ( Л , 2 7 , 7 ) ;

 

M S S M t L + 9 ] : = V N O R ( Я , 1 0 , 1 0 ) j

4

7

. 0

M S S 4 l i _ * - 2 ) : = V N O R ( Й , 2 0 , 1 0 ) ;

4

e

, o

L N 1 :

 

 

 

 

 

 

 

 

 

 

 

4 9 . 0 л : = S S M [ ! ♦ 1 j ;

M S S M I L + 4 ] : = V N O R ( л , 4 4 , 4 > ;

 

4

0 , O M S S M t L « 4 l : = V N O R ( f l , 4 0 , 7 ) ;

 

 

 

 

 

 

 

4

1

. 0

M S S M t L + 5 1 : = V N O R ( Я , 4 4 , 7 1 ;

 

M S 5 M [ L + 1 6 ] : = V N O R ( f l , 2 6 , 7 1 ;

4 2 . 0 M S S M t L * l 0 ) ; = Ѵ М О Я ( Я , 1 9 , 7 1 ;

 

M S S M I L + 1 4 1 : = V N O R ( Я , ) 2 , 4 1 ;

4 5 . 0

M s S M l L * 1 4 ) : = v N o a ( я , e , 4 1 ;

 

M S S M I L + I S I : = V N O R ( я , 4 , 4 ) ;

4

4

. 0

U N 2 :

 

 

M S S M I L * I i i : = V N O R ( Я , 4 4 , 4 ) ;

 

4 5 . 0

f l : = s S M i i * 2 l ;

 

4 6 . 0

M S S M l u * 1 2 1 : = V N O R ( Я , 4 0 , 4 ) ;

 

M S S M t L ♦ 6 ) : = V N O R ( Я , 4 6 , 7 ) ;

4 7 . 0

H S S M l L + 7 1 : = V N O R ( Я , 2 9 , 7 1 ;

 

M S S M [ L + 8 ] : = V N O R ( Я , 2 2 , 4 ) ;

4

8

. 0

M S S M l L + 1 7 ] : = V N O R ( Я , 1 8 , 4 1 ;

 

M S S M t L + 1 8 ] : = V N O R ( Я , 1 4 , 1 0 ) ;

49.0

UNS!

 

 

к :=4NOR (я,4 5 ,1 1; IF

 

 

 

5 0 . 0

«:=ssMii+4l;

K =I T I *4>O S S M T H E N BEG IN

si.o

I:=I+5 ; GO T O

M S E N D

J M S S M I L 1 9 1:=VNOR tя,1 4 .,7 I ;

5

2

. 0

M S S M l L * 2 0 ] : = V N O R ( Я , 7 , 7 ) ;

 

L N < ;

f l : = S S M [ I * l ;

 

5 4

. 0

к ; = V N O R ( Я ,

, i ) J £ £

к ' = i *l ♦ 4 > o S 4 M Г И t N

 

5 4

. 0

B E G I N

l : = l * 4 ;

G O T O

M 4 E N 0

 

:

 

 

 

 

 

5 5

. 0

M S S M l L + 4 1 ] : = V N 0 R ( Я , 4 0 , 7 1 ;

M S S M ;

<

l . i t f H O

i

5

6

. 0

M S S M

t L + 2 9

] : = V N 0 R ( Я ,

2 9 , 7 1

;

i.‘

S S P

l

* 1

N P .

1

1 5 6