Файловый архив студентов. Файловый архив студентов.
1319 вузов, 5380 предметов.
/ Регистрация
FAQ Обратная связь Вопросы и предложения
Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Владимирский государственный университет им. Столетовых
Предмет:
[НЕСОРТИРОВАННОЕ]
Файл:

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

.pdf
Скачиваний:
58
Добавлен:
22.03.2015
Размер:
7.48 Mб
Скачать
☆

EndCadr;

…………..

Cadr CadrN

………….

EndCadr;

Mcadr : MasCadr [Cadr1, Cadr2,….., CadrN];

//" % & &

For I := 0 to 5 Step 2 do MasCadr[I];

//" % & &

Cadr Cadr0

For J := 0 to 5 Step 1 do MasCadr[J];

EndCadr;

; % %

-

% # /&

& &. 7 % % ,

% . ; $ & -

% &

& )*+,.

8 9 COLAMO

. % % % COLAMO % & ARGUS / %

: - % ARGUS, , %/

, host- - .

+ % % %

%

357

-&. " %

: , , %/.

+ - % %

&M ,

/ - / % &

ARGUS. , & / /

. " )+,

. a %/ % % % ,

% & % / (exe- ) &

)+, host-- , $ -% . h %

& % .6.11.

, -

-

. " $% %

%, % , &$%

. h , % %

( ), $ & % %

% . 6 %

% COLAMO / % ,

%/ % %

(vector), # % )+,

. , ,

&

, $ % &

. h

.6.12.

358

. 6.11. K 8 8 8 COLAMO

. 6.12. N "

359

" & % #

. 6.13.

VAR a,b,c,d,e,g : Array [2 : Vector 10 : Stream] Mem;

VAR Z : Integer Com; Cadr Cadr1

For I := 0 to 1 do For J := 0 to 9 do Begin

A[I,J] := B[I,J] + B[I,J + 3]; D[I,J] := C[I,J] + (B[I,J] * G[I,J]); End;

EndCadr;

B[I,J]

3

+

A[I,J]

 

 

 

 

 

B[I,J +3]

* +

3

G[I,J]

3

C[I,J]

. 6.13. H U B-

` - $ / -

, % % % /. +- , & $ , % %/ % -

%, # . +- , & %, / $

.

" - &

$ / ,

/ , $ &

% % )+,.

h . 6.14. " % / %

- $

% & &.

360

. 6.14. N "

Y / %

.

VAR a,b,c,d,e,g : Array [2 : Vector,

Var A,B,C,D,G : Array [2 : Vector 10 : Stream]

10 : Stream] Mem;

Mem;

 

VAR Z : Integer Com;

Cadr Cadr1

 

Cadr Cadr1

DMC[0.B1] Read B[0] Step 1 repeat 12;

For I := 0 to 1 do

DMC[0.C1] Read C[0] Step 1 repeat 12;

For J := 0 to 6 do

DMC[0.G1] Read G[0] Step 1 repeat 12;

Begin

DMC[0.A1] Write A[0] Step 1 repeat 12;

A[I,J] := B[I,J] + B[I,J + 3];

DMC[0.D1]

Write D[0] Step 1 repeat 12;

D[I,J] := C[I,J] + (B[I,J] *

 

 

G[I,J]);

DMC[0.B2]

Read B[1] Step 1 repeat 12;

End;

DMC[0.C2] Read C[1] Step 1 repeat 12;

EndCadr;

DMC[0.G2] Read G[1] Step 1 repeat 12;

 

DMC[0.A2] Write A[1] Step 1 repeat 12;

DMC[0.D2] Write D[1] Step 1 repeat 12;

EndCadr;

361

G Read &

% / /, Write %

.

" % %

% . + % & ARGUS

% % % / $%

. " %

/ %/ / % % %

$ % COLAMO.

h . 6.15.

. 6.15. N " "

Y / %

.

VAR a,b,c,d,e,g : Array [2 : Vector

Program Promer;

10 : Stream] Mem;

Var A,B,C, D : ParamAddress MEM;

VAR Z : Integer Com;

Var N, K, M : Number;

For I:= 0 to 5 Do

Define N = 5; Define K = 6; Define M = 1;

Begin

Label M0, M1;

Cadr Cadr1

M0 : CADR Cadr1

A[0,0] := B[0,0] + B[0,3];

<" >

D[0,0] := C[0,0] + (B[0,0] *

EndCadr;

G[0,0]);

CADR CadrIF

362

EndCadr;

If Mem Goto M1;

If A > 0 then

Goto M2;

Cadr Cadr2

EndCadr;

A[0,0] := B[0,0] + B[0,3];

M1 : CADR Cadr2

D[0,0] := C[0,0] + (B[0,0] *

<" >

G[0,0]);

EndCadr;

EndCadr;

CADR CadrFOR

End;

M2: Loop 4 Goto M0;

 

EndCadr;

" CadrIf (IF). " CadrFor - .

a %/ % &

% % 9+*, Pascal. ) % %/

% % % % % .

h % % COLAMO %/

/ % % ,

% % % Pascal. " % %

% / .

Y / %

%/ / %/ /.

Program Primer;

Program 1;

 

 

 

 

Var A,B,C,D:array [N : Stream, K :

Uses SysUtils;

 

 

 

 

Stream]: Mem;

TempLongword : PLongWord;

 

 

 

Data64 : PInt64; InputFile : File; OutputFile :

ReadFile (A, FF_STR, "C:\Input.txt“);

File; Str : String;

 

 

 

 

 

Begin

 

 

 

 

Cadr Cadr1

LoadFile(D:\"\,_%_%

For I := 0 to N-1 do

\Result\OutFile.out);

 

 

 

For J := 1 to K-1 do

{`

 

 

 

 

363

D[I, J] := (A[I,J] + A[I,J-1]) + 5;

/ %}

EndCadr;

// ` )"

 

RunAllDMC(0, 16);

WriteFile (D, FF_STR, "C:\Output.txt“);

// G& &

 

Repeat

End_Program.

ReadCOReg(0, 2, TempLongword);

 

bit5 := Integer(TempLongword^) and 32;

 

until Bit5 = 32;

 

{+ %

} End;

6.4.# -

, & «Argus IDE» % &

% - [50].

& % $ / /

, / % ( .6.16).

% % ,

% ,

- $ , % %

# % &.

. 6.16. I " b “!”

364

# % % & % %

& &, &M % , &

&M $ &. 7 % %

& &, % -

% «Argus» ( .6.17).

. 6.17. = 8

+ % - #

% % &M

& &$%

, % % &

( . 6.18).

7 &$ & %

% , % % %

. ; -

% «Argus» % %

% % $ # & ,

-

, % &

( .6.19).

365

8

 

 

0

0

4

8

12

9

 

 

1

10

 

 

2

1

5

9

13

11

 

 

3

12

 

 

4

2

6

10

14

13

 

 

5

14

 

 

6

3

7

11

15

15

 

 

7

. 6.18. L I B " B =

B 8 # #

"

: % % % -

)*+, & % .

. 6.19. e 8 “f”

, & «Easyo IDE» % &

- % . ;

- % % # %

, % %

- % % % %

366

Соседние файлы в папке Буланкин В.Б
Помощь Обратная связь Вопросы и предложения Пользовательское соглашение Политика конфиденциальности