Буланкин В.Б / Kalayev_IA_rmvs

. 6.8. L @ U U

) @ U ; ) @ U

, , %, ,

/ % %:

Var X : Array[100 : Stream]; CADR ST;

FOR I := 1 TO 50 DO

C := X[i] + X[j]; ENDCADR;

% &% # / -& /,

$ & % •. ) $

# , & , $ &

, , , % % % %

.

" & % Ai=(Bi+Bi-1)*C. ", / %

%, $ % / &

% & :

Var A,B,C : Array [4 : Stream];

CADR A;

FOR i=2 TO 4 DO;

347

A[i] := (B[i]+ B[i-1])*C[i]; END;

ENDCADR;

Y$ , / % $ , $ %

& :

Y % - :

% ,

R / /, % %

% . ) % %

, ,

.

. &, (6.1) %

R:=B[i] % % %

A:=(B[i]+R)*C[i], # R / % B[i-1]. h $ % & / % ,

. 6.8&.

Var A : Array [10 : Stream] Mem;

Var R1, R2 : Integer REG,

CADR I;

348

R1=A[1];

R2=A[2];

ENDCADR;

CADR C;

FOR i=3 TO 10 DO

BEGIN

C=A[i]+R1+R2;

R1=A[i];

R2=R1;

END;

ENDCADR;

" $

, R1 A[i-1], R2 $ R1

A[i-2]. :

% .

7

% . "

% / % %

, # &

%. Y,

VAR A,B : Integer MEM; CADR a

A:=B;

B:=A;

ENDCADR;

% % % ,

% , h + $ &

, % %

% & %.$% % % %,

%/ % . `

349

VAR A,B : Integer REG; CADR b

A:=B;

B:=A;

ENDCADR;

%. " - h + %/ %. Y & % &M% % %

, %/ % .

: % % %

IF. G IF $ & - -/ . a % & / / :

IF q THEN a [ELSE b];

IF, THEN, ELSE - / %; q - $ ;

a, b - , &

BEGIN, END, % $ q . 6 b % , &

BEGIN, END . : / % $

:

IF q1 THEN IF q2 THEN IF q3 .... ELSE d;

, -

;"+a.

+ % % / &:

b, %/ , %/ %

. ) & /

/, & % % $ q. : ,

. 7

% & , $%

, & .

350

Y . 6.9 %

.

Var A,B: Array [100 : Stream];

CADR b;

FOR I:=1 TO 100 DO

IF A[I]>0 THEN B[I]:=sin(A[I]);

ELSE B[I]:=exp(A[I]**2);

ENDCADR;

. 6.9. H

) % & &.

$% A[I]>0. : % % %

, % - -

# .

+- $% ,

& THEN ELSE.

351

6 IF % THEN,

% % & . G IF q THEN a = b &

.

: % % , #

VAR A : Integer com; CADR L1

A := IF q THEN b; ENDCADR;

# A=q&b,

6 q, % %

%.

" / $

%, . ` & , % %/ %

. G &M% % % /

&:

SUBCADR Name ( F ) <, G> ENDSUBCADR;

SUBCADR, ENDSUBCADR - / %; Name S - % ;

f - , &. G& % ,

, &. 6

% % % , & % Var

% . + - %,

%, -%

& , , %

-% . { & &$ & #

, &

352

. "

&, / ,

. + %/ %

. +

%, % .

Y . 6.10 %

, % & . Y $

-& & .

6 , % %

% .

SUBCADR REAL pirsum (A,N); VAR (A[N], S, C[N/2, N/2] VEC) COM;

M=log2(N); K=1;

FOR I=1 TO N/2 DO C[1,I]=A[K]+A[K+1];

K=K+2; END; L=2; FOR J=2 TO M;

FOR I=L TO N/2 STEP L; C[J,I]=C[J-1, I]+C[J-1, I-L/2]; END;

L=L*2; END; S=C[M,N/2]; RETURN S;END pirsum;

. 6.10. H B- U

9 -&, -/

. Y$ %

.

VAR A,B,C,D,E,F,G : REAL MEM;

SUBCADR BETA (A,B,C,D);

VAR (A,B,C,D) COM;

C=A+B/2;D=A-B*2;

ENDSUBCADR;

SUBCADR ALFA (In : A,B,C);

353

VAR (A,B,C) COM;

C=A*3.14+B*B;

ENDSUBCADR; CADR A1; BETA(A*2,4/B,D,C); ALFA(D*C,E*E,F); ENDCADR;

CADR A2; VAR K COM;

BETA (F,F,G,K);

ALFA (K,E,A); ENDCADR;

+ & %

, & %: %

% . "

% ,

pirsum % VAR A [N],

N – , . G, $

, . " %

%. " / % , & ,

, . #, &

%, %

. . &,

% % <Ak, Ag>,

Ak – %, Ag – . " & Ak , Ag % % &

# .

" &

% Ag, Ak % %. h %

% % % . +- , # %, -

354

, - % , & / & %

-/ / # .

. &, Ak=<Ak , Akk>, hk –

%, hkk – % , & / & %.

, % / .

+&

SUBROUTINE Name ( F ) P ENDSUBROUTINE;

SUBROUTINE, ENDSUBROUTINE - / %; f - ;

) - .

%. " % ,

.

" / $

%, & % / /

, % %

$%. .% % $ % &

. : % %

COLAMO % % LET, % %/ % % . G &M% %

LET )JYt % / &:

LET <7 %> ( <, "> ) <, G> ENDLET;

+% LET $ %

% % % +,. " &M%

LET &

LET.

+ LET, VAR

EXTERN, % %/ % % .

355

+LET - %, %,

LET -% & / / LET,

, . +

LET % .

%, % . +

% $ / LET

STOPLET. G / % LET )JYt

% / &:

STOPLET <7 % LET>;

: % # % & % COLAMO

% MCADR. % MCADR %

&M% , #

% % . % MCADR )JYt %

/ &:

MCADR : <7 %> [ <,> ];

7 MCADR %

/& . , &M%

MCADR, $ & &M% % MACDR.

% MCADR $ % , . " % % %

& & . + % MCADR

% % % % ,

% $ & &

. " % MCADR $ .

Cadr Cadr1

………….

EndCadr;

Cadr Cadr2

………….

356