.


:




:

































 

 

 

 





 

, , .

13. , D. D .

 

PROGRAM PR13;

VAR D, E: ARRAY [1..6, 1..6] OF REAL;

i, j: INTEGER;

BEGIN

{ D ( 1, 2)}

E:=D;

FOR i:=3 TO 4 DO

FOR j:=5 TO 6 DO

E[i+2, j-2]:=D[i, j];

FOR i:=5 TO 6 DO

FOR j:=3 TO 4 DO

E[i-2, j+2]:=D[i, j];

{ E (. 3, 4)};

END.

: E D.

1. D[3, 5] E[5, 3]. D[3, 5] 2, 2.

: D[3, 6] E[5, 4];

D[4, 5] E[6, 3];

D[4, 6] E[6, 4].

D .

2 D. D[5, 3] E[3, 5];

D[5, 4] E[3, 6];

D[6, 3] E[4, 5];

D[6, 4] E[4, 6].

, D 2, 2.

D . , , . .

14. , D. 13. , .

PROGRAM PR14;

TYPE Mas = ARRAY [1..6, 1..6] OF REAL;

VAR D, E: Mas;

i, j: INTEGER;

PROCEDURE S (DS:Mas; i1,i2,j1,j2,is,js:INTEGER; VAR ES:Mas);

BEGIN

FOR i:=i1 TO i2 DO

FOR j:=j1 TO j2 DO

ES[i+is, j+js]:=DS[i, j];

END;

BEGIN

{ D ( 1, 2)}

E:=D;

S(D, 3, 4, 5, 6, 2, -2, E);

S(D, 5, 6, 3, 4, -2, 2, E);

{ E (. 3, 4)};

END.

: S :

DS , ;

i1, i2 ;

j1, j2 ;

is, js , ;

ES , .

E D. S, . 1 2, 2 1.

15. , D. D .

 

PROGRAM PR15;

TYPE Mas =ARRAY [1..6, 1..6] OF REAL;

VAR E, D: Mas;

i, j: INTEGER;

PROCEDURE M (DS:Mas; i1,i2,j1,j2,is,js:INTEGER; VAR ES:Mas);

BEGIN

FOR i:=i1 TO i2 DO

FOR j:=j1 TO j2 DO

ES[i+is, j+js]:=DS[i, j];

END;

BEGIN

{ D ( 1, 2)}

E:=D;

M (D, 1, 2, 1, 2, 0, 4, E);

M (D, 1, 2, 5, 6, 4, 0, E);

M (D, 5, 6, 5, 6, 0, -4, E);

M (D, 5, 6, 1, 2, -4, 0, E);

{ E (. 3, 4)};

END.

: M S 14.

E D. M, .

 

 

6 - . : , , .

.

16. E .

PROGRAM PR16;

VAR E: ARRAY [1..6, 1..6] OF REAL;

i, j, jmax: INTEGER;

Smax, s: REAL;

BEGIN

{ E ( 1, 2)}

Smax:=0;

jmax:=1;

FOR i:=1 TO 6 DO Smax:=Smax+E[i, 1];

FOR j:=2 TO 6 DO BEGIN

s:=0;

FOR i:=1 TO 6 DO s:=s+E[i, j];

IF s>=Smax THEN BEGIN

Smax:=s;

jmax:=j;

END;

END;

WRITELN (' . . = ', jmax);

END.

: Smax ;

jmax ;

s .

FOR . Smax . , , IF, jmax .

17. E 3 5 .

PROGRAM PR17;

VAR E: ARRAY [1..6, 1..6] OF REAL;

i, j: INTEGER;

Emin3, Emin5: REAL;

BEGIN

{ E ( 1, 2)}

Emin3:=E[1, 3];

Emin5:=E[1, 5];

FOR i:=2 TO 6 DO BEGIN

IF Emin3>E[i, 3] THEN Emin3:=E[i, 3];

IF Emin5>E[i, 5] THEN Emin5:=E[i, 5];

END;

WRITELN (' . . 3 = ', Emin3:7:1);

WRITELN (' . . 5 = ', Emin5:7:1);

END.

: Emin3 3 ; Emin5 5 .

 

 

1. .. -. .: - , 2007. 580 .

2. . / . . .. . .: , 2006. 320 .

 

 

1. (m*n) ( , , 2 ).

2. , (, , 3 ).

3. (6*6) ( 4 ).

4. D=B*C.

5. , D ( 5 ).

6. ( 6 ).

, , , D, 6 .

, ( )
           
  (6*6) min max
  (6*6)
  (6*6)
  (6*6)
  (6*6)
  (6*6)
  (6*6)
  (6*7) max
  (6*6) min max
  (7*6) min 1 3
  (6*6) min max
  (6*6)
  (6*7) min   1 6
  (6*6) min max 2 3
  (7*6) , max
  (6*6) 1 5
  (6*7) , max 2 4
  (6*6) min max
  (6*6)
  (6*7) max
    (6*6) min max
  (6*6)
  (6*7) min
  (6*7) max
  (7*6) max 3 5
  (6*6)
  (6*7) min
  (7*6) min
  (7*6) max
  (6*6) max min

 

 

. 3

1. .. 3

2. .. 4

3. .. 6

4. .. 7

5. .. 10

6. .. 12

7. .. 13

8. .. 17

.. 18

. 18

 

 





:


: 2016-09-06; !; : 760 |


:

:

, .
==> ...

1342 - | 1261 -


© 2015-2024 lektsii.org - -

: 0.047 .