ПОСТРОЕНИЕ МАТРИЦ ПО ЗАДАННОМУ ВИДУ

Одним из пунктов задания является построение матриц определенного вида. То есть нужно найти закон, по которому определяется каждый элемент матрицы. Рассмотрим примеры.

Пример 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.