PROGRAM PRG7_11;

CONST N = 100;

VAR А, В: ARRAY[1..N, 1..N] OF INTEGER;

К, М, I, J: INTEGER;

BEGIN

WRITE ('BBEДИTE РАЗМЕР МАТРИЦЫ М = ');

READLN (M);

WRITELN('ИCXOДНАЯ МАТРИЦА');

К:=1;

FOR I:= 1 ТО М DO

FOR J:= 1 ТО М DO

BEGIN

A[l, J]:= К;

К:= К+1;

IF J<M THEN WRITE(A[I, J]: 4)

ELSE WRITELN(A[I, J]: 4)

END;

WRITELN('MATPИЦА ПОСЛЕ ПРЕОБРАЗОВАНИЯ');

FOR I:= 1 TO M DO

FOR J:= 1 TO M DO

BEGIN

B[l, J]:= A[J, I];

IF J<M THEN WRITE(B[I, J]: 4)

ELSE WRITELN(B[I, J]: 4)

END;

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- вводим размеры массива А и присваиваем значения его эле­ментам;

- присваиваем значения элементам матрицы В и выводим их на экран.

Переменные:

А, В - двумерные массивы;

М - количество строк и столбцов массива;

I, J - переменные цикла;

К - вспомогательная переменная.

Задача 7.12 Дана квадратная матрица N.x N, состоящая из натуральных чисел. Зеркально отразить ее эле­менты относительно побочной диагонали. Вывес­ти результат на экран

Рассмотрим матрицу 3 х 3 и посмотрим, что происходит с элементами при зеркальном отражении.

 

А 11	А 12	А 13	Þ	А 33	А 23	А 13
А 21	А 22	А 23	А 32	А 22	А 12
А 31	А 32	А 33	А 31	А 21	А 11

 

Если считать, что после преобразования у нас появилась новая матрица В, то соответствие между элементами устанавливается следующим образом:

В 11 «А 33

В 12 «А 23

В 21 «А 32

В 22 «А 22 и т. д., т. е. В [I, J] «A [L, М].

Внимательно изучив соответствие, можно утверждать, что для элементов матрицы N х N справедлива следующая система урав­нений: Отсюда правило преобразования элементов выглядит следую­щим образом: B[I, J] = A [N + 1 - J, N + 1 -I].

Программа, решающая данную задачу, выглядиттак: