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

I F A B I U V T H E N С О Т О R P O V Ü

I F

A B P U O I T H E N

С О Т О S D ! ;

I F

Ä B L C T H E N

С О Т О

S D C t f l S D + l l ;

s o о о :

T : * o ;

с о т о

s o o ;

і и м п і .

5 0 0

р Р о ѵ г ;

F O R

Ä P i : = i S T E P

T F !

д й р 1 о , A R 1 ) : = Д Р Р t г , д я 1 1 ;

т : х \ J

С О Т О

S O I !

1 U N T I L

5 0 0

S O I !

F O R

f l R H a l S T E P

С О Т О

T F ;

5 D ! :

Д Р Р І О , * p П : а Я Ч Р 13 , Я Я 1 1 ;

F O R

Д Р І ! = 1 S T Е р

1 U N T I L

5 0 0

С О Т О

т F ;

5 0 3 !

Д Р Р [ 0 , Я Я 1 1 ! З Д О Р t 5 , A R 1 ] ;

F O R

f l R I I e l S T E P

1 U N T H

5 0 0 B E G I N

д я р t о , д в п

: = д р р 1 4 , д я 1 ] ;

s f f d :

дяр 1і,яр 1 1 :з Дрр [S .ли U ENO ; т:*і

ANU :X A N I I *

1 ;

IF

Д В Д С « Д м и > 1 0 * 7 Д ОЛ СIflNU»15THEN

СОТО PSK;

С О Т О

Д Вг Ѵ Е Д О

ДВОРи;

1 ,! ITHEN BEGIN

IF

с

I 1 J r T u l flNU*l ,1 J S C t ! J = T U (P N U

RVM ;

IF

A B A C 7 A N U = 1 * 7 A B A C 7 A N U = \ 4 T H E 4

A B O P U !sTRUE i

I^F ACVU » 3T HEN

C T1 [!Э 1 != CT 1 119 ]* 1 !

с о т о

K A R U M E N O

;

а 9 в

,

о

3 9 9

,

0

■ > 0

0 , 0

9 0 1

, 0

9 0 2

,

0

9 0 3

, 0

T H E N

B E G I N C T I I 2 6 ) : = с Т 1 I 2 6 ] + 1 ;

G O T O

R V M E N Q j

I F

A R P ( T , 1 ] = W B « A a P [ T , 2 ) = W 8 T H E N

0 2 I

B E G I N A K G P P R : = 2 |

G O T O

E N D 2 E N O - ;

A G V U : = 9 ;

A 3 I U V ; = F A L S E

;

I F

A B I U V T H E N B E G I N

T : = J E N U

; A N U ; S A N U + I ;

G O T O

Z N R P ;

9 0 К

,

0

9 0 S

,

0

9 0 6

,

0

9 0

7

, 0

9 0

6

, 0

9 0 9 «

0

зал: I F

A A P [ 2 , U = T U

[ A N

U + l , 1 1 3 A R

P t 2 , 2 ] = T U

l A N

U + l , 2 ]

7 G [ 1 J = T U I A N U * 2 , l l » G l 2 ) = T U [ A N U + 2 , 2 l T H £ N

G O T O R O S ;

G O T O A L G ;

3л В • A G V U ; = 5 J

G O T O

Z N R P ;

o s :

я ; v u : = 6 ;

G O T O

Z N R P ;

О б :

I F

A R P [ 3 , U = T U [ A N U + 1 , 1 ] » A R P t 3 , 2 ] = T U t A N U * 1 , 2 1

» A R P [ S , l l = T U l A N U + 2 , l ) « A R P [ 5 , 2 ) = T U [ A N U + 2 , 2 l T H E N

R O S :

B E G I N A G V U ; = 5 ;

A B P U O I : = T R U E

;

*

д н и : = A N U f i ;

A P U R : = T R U E

;

R V M E N Q J

I F

C T I t 2 7 J : = C T 1 ( 2 7 1 ♦ I )

G O T O

A R P [ 3 , } ) = T U [ A N U t l , l l « A R P [ 3 , 2 ) = T U l A N U + l , 2 ]

C O M M E N T

x G { 1 ] = T U [ A N U + 2 , 1 ] » G l 2 ) = T U t A N U + 2 , 2 ] T H E N

G O T O R O S

И С К Л Ю Ч Е Н И Е

л и ш н и х

г р у п п ;

—

——'

”*—

A L с :

I F

A G V U = 9 T H E N

B E G I N

I F

C n j ^ T U I A N U . n ^ C L Z J s r U C e n O . J l T H g - N

I F

B E G I N

A S o ; = 0 ;

G O T O L G T E N O

I

A R P [ J , 1 ] = T U I A N U , 1 ] I A R P 1 3 , 2 ] * T U I A N U , 2 ] T H E N

B E G I N

A s D : = i ;

G O T O

L G T E N D

;

G O T O

L G N E N Ü

;

I F

A R P ( 9 , 1 ] = T U l A N U , l ] S A R P [ 9 , 2 ] = T U [ A N U , 2 ) T H E N

B E G I N A S D : = 3 ;

9 2 7

. 0

9 2 8

. 0

9 2 9

. 0

9 3 0

, Q

9 3 1

. 0

9 3 2

, 0

9 3 6

. 0

9 3 7

. 0

■ > 9 3 8

, 0

9 3 9

. 0

9

А 0

; О

9

А 1

, О

9

А І

, 0

9 А 3

, О

IF

A R P [ S , I 1 = T U [A N U , l I ’ A R P I S , 2 1 = T U tA N U , 2 1THEN

L G N ; I F

B E G I N

A s 0 : = 2 i

G O T O L G T E N O

;

A B L G T H E N B E G I N

G O T O R V M E N O I

E N Q I S I F

A G V U I s A K G P P R i A N U I = A N U - l ;

А В A C ? A S T M < 2 * 7 А й A C 9 A 5 T H < Н О C

T H E N G O T O A N L Z S J

E N 0 2 : A R U M ( A K G P P R ) i

C O M M E N T

З А Н Е С Е Н И Е М А К Е Т А В М А С С И В М А К Е Т О В ,

А Н А Л И З Н А П Р О Д О Л Ж Е Н И Е * Р А С Ш И 6 Р О В К И

С Л Е Д У Ю Щ И Х Д Э Р О Л О Г И Н Е С К И Х С О О Б Щ Е Н И Й

или

В Ы Х О Д И З

Д А Т ;

I F

7 A B A C T H E N

Д М I - 1 , 1 ] : = 1 E L S E

I F

I F

A S T M < 2 T H E N G O T O A K T P ' U ;

A L A C T H E N

B E G I N C T I I 3 1 ] : = C T I t 3 u ♦ 1 ;

C T l [ 3 3 1 : = C T I [ 3 3 ] * A M [ - l , 2 ) E N D

E L S E

B E G I N

C T I [ 3 2 1 : = C T I I 3 2 ] * 1 ;

;

C T l [ 3 A 1 : = C T 1 [ 3 A ] * A M [ - 1 , 2 ] E N 0

П Р И Л . г

. . » • • • П

іА К Е Т . 0 0

П Р И Л .

приЛі г

9 6 1 . 0

M A M ( 5 u A 4 ] ; ± T R U E

9 6 2 . 0

G O T O A P K T E L E N O

;

S M A M ! * 1 E N D J

;

9 8 1

, 0

9 3 2 , 0

9 9 3

, 0

9 8 8

1

0

9 8 5

, 0

9 8 6 , 0

9 8 7

, 0

9 8 8 , 0

9 8 9 , 0

9 9 0

, 0

9 9 1 , 0

9 9 2

, 0

9 9 3 , 0

9 9 8 , 0

9 9 5

, 0

9 9 6

, 0

9 9 7

, 0

9 9 6

, 0

9 9 9

, 0

д I s 6 : N Z S : * o ;

N T : = N T S ;

G O T O

A P K T L J

A I S 1 i N T S : = N T S * 1 i O B S T 1 s T R U E

;

A l S A l R I G i

I F

S S < 1 2 T H E 4

G O T O

E N O R A T ;

B P G ( 5 ) ;

I F ( G t l J = W T 9 G l 2 ] = M T ? G ( 1 ) = W U ^ G [ 2 ] * W U ) ' 9

( G t 3 ) = W r t * G t 8 ] = N A T G [ 3 J = W C * G t 8 ] * И С ( T H E N

A N T N :

B E G I N

N Z S : = O ; G O T O

P Z T E N O

J

I F

( G [ l ] = W T « G [ 2

] =wr*c[

1 ] s W U « G I 2 ] = W U )

■ B G t 3 l a W e * G t 8 ) = « B T H E N

;

B E G I N

P s : = о ;

G O T O A I S S E N O

G O T O E N U R A T ;

C O M M E N T

н а й д е н Л И З А Г О Л О В О К С В О Д К И

Л N L Z 5 і I F

П Е Р Е Д в х о д о м В R A T ;

N Z S s O T H E N

B E G I N

I F O C T H E N N T S l i N T J

G O T O E N O R A T E N O

;

N T S t = N Z S ! R I G ;

Z P N 1 ; O B 5 T : = T R U E

j

I F

S S < 1 7 T H E N

B E G I N

N T S : = N T S + I ;

G O T O

E N D R A T E N O ;

N Z S : = O ; oc: *=T R U E J

G O T O P Z T ;

E N O

R

A T :

T ;

E N O

R A

G O T O

V R A T ;

R s T

:

B E G I N

C O M M E N T

Б Л О К О П О З Н А Е Т И Р А С К С Д И Р У Е Т С И Н О П Т И Ч Е С К И Е

С У Х О П У Т Н Ы Е И М О Р С К И Е С О О Б Щ Е Н И Я ,

Ф О Р М И Р У Е Т З А П И С И

( М А К Е Т Ы ) С О О Б Щ Е Н И Й .

B E G I N I N T E G E R

I , 5 , Т J

B O O L E A N

C B I W . C B V X ;

i

I N T E G E R

A R R A Y

C B S H , C B O L , C B V G [1 :5 ]1

C O M M E N T

в ы б о р к а

г р у п п

C B S H ,

C B O L и C B V G ;

I :* 1 ; S H R E O := F A L S E

;

C T 114

2

] ;=ст П 4 2 ]♦ 1 ;

M I : B P G (5 )J I F S G = 5 « 7 K S T H E N

B E G I N

I F

i в 1 T H E N

G O T O

с к I J

I F

I F I = 2 T H E N

G O T O

C К £; G O T O C K S E N O

;

К 3 T H E N

B E

G I N

С H 0 P :=3 ; сото C [ E N D

;

K S G :з а j

G O T O

M I ;

. 3 : = 0 1

I : » I + 1;

G O T O

M I ;

C B O L [ T ) : B G I T 1 ;

с к г : F O R

Т І З І 5 Т Е Р

1 U N T I L

5 0 0

I : з і 1 1 ; G O T O

M i ;

5 0 0

с B y с t T ] : = G I T ] ;

С К 5 I F O R

T « * l 5 T E P

1 U N T J L

C O M M E N T

ф о р м и р о в а н и е п р и з н а к о в C N P T и C H O P ;

П Р Ц Л . 2

П Р . 1 Л . 2

П Р И Л . 2

c i w : s T T N ( c a y e , 5 , n i

с ѵ у : я т т N l e a v e . і » 2 > t

I F

C G G > 0 1 C G G 7 2 4 T H E N C N P T I S O E L S E

I F

C G G ? 3 l H C G ( ; 7 5 « T H E N

C N P T : = 1 E L S E

I F

C G G > 6 0 * C G G 7 8 4 T H E N

С И Р Т ! = 2 E L S £

I F

C N P T : = 3

;

C H O P ; = 3 j

G O T O C 2 E N Q ;

C N P T = 3 T 4 E N B E G I N

E G G : = C G G - C N P T « 3 O J

1 F C e S H l Ц = И 9 * С В 5 Н [ 2 ] = W 9 T H E N B E G I N

I F

C H O P : = O I

£ O T O

C 2 E N O J

C I W = 0 T C I W = l T c i W = 3 T C I W = 4 T H E N

I F

C 8 - I W : = T « U E

E L S E C B I W l s F A L S E

J

•

C y y 7 3 l T H E N

E L S E . С В У У І s F A L S E

i

I F

C B V V : = T R U E

С В У У й С В I W T H E N C H O P ! * O E L S E

I F C B У У Т Н Е М C H O P I a l E L S E

C 2 :

I F

I F C B 1 N T H E N

C H 0 P : = 2 t L S E C H 0 P J * 3 !

C H O P s S T H Ë——--------N B E G I N

О J = J +

1 ;

—

С Д В И Г

н А

О Д Н У Группу

C O M M E N T

для .

ц.РИР*.і..

п р и л . г

п р и л , г

п р и л , a ,

/«

1 F C S H « 0 * C S H > 9 0 Q T H E N

С О Т О С Ц ;

C D U ! «TTN( C B O L ,2,0);

сз:

IF

C Q L < 0 * C 0 L > 1 8 0 0 T H E N

сото

см;

C B K O R Ü

;

B N D

, U 2); V A L U E

L | . L *

| I N T E G E R

L i L 2;

P R O C E D U R E

А

(L.1

B E G I N L O l a S I C N

( L 2 ) ;

L 2 : = A B S

( L e i ;

L 3 : « L 2 ; I O O !

L 2 I » L 3 - L i « 1 0 0 i

L l : « C M A O I n ];

I F

1 1 « 1 0 0 0 0 0 0 * L I » - 1 T H E N

B E G I N

L i : « 2 t L 3 - i ;

G O T O

L N E N O

i L E N S s T R U E

i

L N ;

L E N I : « L E N ) T O N O R ( L 1 , L 2 ); I F

L 4 « O T H E N

B E G I N

мам(L 1;I LEN 1;

L :*L + U

O B :»L E N ;

IF L E N T H E N

B E G I N

S M 5 M - . 3 L ;

L E N : = F A L S E E N D

;

L E N K C T R U E

E N D

E N D

R ;

C N N S ;S C N S ;ao ;

с и loo J; =

C T I

н о

)♦ t;

C R S

T :

R

I

G

;

l U N T I L

7 0 0

C M A K [ M ] ; . O i

F O R

M l a - I S T E P

N T ; = N T S ;

I F

O C T H E N

G O T O

S H I P ;

I F

P I - W S T H E N

B E G I N

c y N O P ;I F

P S ^ S T H E N

G O T O C 2 В i

I F

S S < 2 8 T H E N

B E G I N

8 P G I 5 ) ;

IF S S » 5 2 * 5 l ‘ l ] = . H 9 l c e 2 ] a W 9 » G [ 3 ) = H 9 T H E N

C 3 9 :

B E G I N

N R I = T T N ( G , 4 , 2 ) ;

; G O T O C 2 5E N D ;

N T S ; B N T S +1; O d S T ; = T R U E

C O M M E N T

I F S S = 9 T H E N

G O t O

C 3 9 ;

G O T O C ? 7 E N D

;

П О И С К Н О М Е Р А С Т А Н Ц И И В С Л О В А Р Е ;

С т1IА1

]

; = С Т I ( 4

1

] +

1 ;

П Р И Л , 2

П Р И Л . 2

П Р И Л . 2