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 «А 33 В 12 «А 23 В 21 «А 32 В 22 «А 22 и т. д., т. е. В [I, J] «A [L, М]. Внимательно изучив соответствие, можно утверждать, что для элементов матрицы N х N справедлива следующая система уравнений: Программа, решающая данную задачу, выглядиттак:
|
Отсюда правило преобразования элементов выглядит следующим образом: B[I, J] = A [N + 1 - J, N + 1 -I].
