. , . .
8. C (6*6) :
PROGRAM PR8;
VAR C: ARRAY [1..6, 1..6] OF REAL;
i, j: INTEGER;
BEGIN
FOR i:=1 TO 6 DO
FOR j:=1 TO 6 DO
IF j <= i THEN C[i, j]:=6-i+j
ELSE C[i, j]:=0;
{ C (. 3, 4)};
END.
: IF , . . 0.
9. C (6*6) :
PROGRAM PR9;
CONST n = 6;
VAR C: ARRAY [1..n, 1..n] OF REAL;
i, j: INTEGER;
L: BOOLEAN;
BEGIN
FOR i:=1 TO n DO
FOR j:=1 TO n DO BEGIN
L:=((j>=2) AND (j<=5) AND ((i=1) OR (i=6))) OR
((i>=2) AND (i<=5) AND ((j=1) OR (j=6)));
IF L THEN C[i, j]:=0
ELSE C[i, j]:=n;
END;
{ C (. 3, 4)};
END.
: L . L TRUE, 0. L FALSE, n.
10. C (6*6) :
PROGRAM PR10;
CONST n=6;
VAR C: ARRAY [1..n, 1..n] OF REAL;
i, j: INTEGER;
BEGIN
FOR i:=1 TO n DO
FOR j:=1 TO n DO
IF j >= i THEN C[i, j]:=j-i+1
ELSE C[i, j]:=0;
{ C (. 3, 4)};
END.
, , . , , , , .
(4*6) (6*3) D (4*3), : .
.
11. D=B*C, (4*6), (6*3).
PROGRAM PR11;
VAR B: ARRAY [1..4, 1..6] OF REAL;
C: ARRAY [1..6, 1..3] OF REAL;
D: ARRAY [1..4, 1..3] OF REAL;
i, j, k: INTEGER;
BEGIN
{ B C( 1, 2)}
FOR i:=1 TO 4 DO
FOR j:=1 TO 3 DO BEGIN
d[i, j]:=0;
FOR k:=1 TO 6 DO
d[i, j]:=d[i, j]+b[i, k]*c[k, j];
END;
{ D (. 3, 4)};
END.
12. D=B*C, -, 6 , (6*3).
PROGRAM PR12;
VAR B: ARRAY [1..6] OF REAL;
C: ARRAY [1..6, 1..3] OF REAL;
D: ARRAY [1..3] OF REAL;
i, k: NTEGER;
BEGIN
{ B C ( 1, 2)}
FOR i:=1 TO 3 DO BEGIN
d[i]:=0;
FOR k:=1 TO 6 DO
d[i]:=d[i]+b[k]*c[k, i];
END;
{ D (. 3, 4)};
END.
: , , - D, 3 .