PROGRAM PRG7_6;

CONST N = 100;

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

K, M, I,J: INTEGER;

BEGIN

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

READLN (M);

WRITELN('ИСХОДНАЯ МАТРИЦА');

К:= 1;

FOR I:= 1 ТО М DO

FOR J:= 1 TO M DO

BEGIN

A[l, J]:= K;

K:=K+1;

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

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

END;

WRITELN('МАТРИЦА ПОСЛЕ ПОВОРОТА НА 90 ГРАДУСОВ');

FOR I:= 1 ТО М DO

FOR J:= 1 TO M DO

BEGIN

B[I, J]:=A[M+1- J,I];

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

ELSE WRITELN(B[I, J]:)

END;

END.

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

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

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

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

Переменные:

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

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

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

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

 

ВВЕДИТЕ РАЗМЕР МАТРИЦЫ М = 4

ИСХОДНАЯ МАТРИЦА

1 2 3 4

5 6 7 8

9 10 11 12

13 14 15 16

МАТРИЦА ПОСЛЕ ПОВОРОТА НА 90 ГРАДУСОВ

13 9 5 1

14 10 6 2

15 11 7 3

16 12 8 4

 

Рис. 7.4. Результат работы PRG7_6

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

Рассмотрим вначале матрицу 3 х 3 и посмотрим, что происхо­дит с элементами при повороте.

 

 

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

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

В 11 «А 13

В 12 «А 23

В 21 «А 12

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

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

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