Модификация двумерных массивов, Поворот матрицы на 90 градусов Опции

[FENIX]

Условия:
1) Массив должен иметь не менее 12 и не более 20 строк и столбцов.
2) Перед обработкой данных необходимо вывести исходный массив на экран.

Задание:
Задан квадратный массив целых чисел в диапазоне от -99 до 99.
Переместить числа так, чтобы эта операция была эквивалентна повороту массива на 90 градусов по часовой стрелке. Результат вывести на экран.

Заранее спасибо.

З.Ы. Всем GL & HF

[Гость]

А можно как-то повернуть квадратную матрицу на 90 градусов по часовой стрелке, не использую дополнительный массив?

[volvo]

А можно как-то повернуть квадратную матрицу на 90 градусов по часовой стрелке, не использую дополнительный массив?

И это можно, правда сложнее немного:

const
  (* n = 4 *)
  n = 5;
type
  mx = array[1 .. n, 1 .. n] of integer;

procedure printMatrix(m: mx);
var i, j: integer;
begin
  for i := 1 to n do begin
    for j := 1 to n do
      write(m[i, j]:4);
    writeln
  end
end;

const
  (*
  a: mx =
    (( 1, 2, 3, 4),
     ( 5, 6, 7 ,8),
     ( 9,10,11,12),
     (13,14,15,16));
  *)
  a: mx =
    (( 1, 2, 3, 4, 5),
     ( 6, 7 ,8, 9,10),
     (11,12,13,14,15),
     (16,17,18,19,20),
     (21,22,23,24,25));

var
  i, j, k: integer;
  T: integer;
begin
  writeln('before:');
  printMatrix(a);

  writeln;

  for k := 1 to n div 2 do
    for i := k to n - k do begin
      T := a[k, i];
      a[k, i] := a[n-i+1, k];
      a[n-i+1, k] := a[n-k+1, n-i+1];
      a[n-k+1, n-i+1] := a[i, n-k+1];
      a[i, n-k+1] := T;
    end;

  writeln('after:');
  printMatrix(a);
end.

Тестировалось на матрицах 4х4 и 5х5...

[Гость]

И это можно, правда сложнее немного:

const
  (* n = 4 *)
  n = 5;
type
  mx = array[1 .. n, 1 .. n] of integer;

procedure printMatrix(m: mx);
var i, j: integer;
begin
  for i := 1 to n do begin
    for j := 1 to n do
      write(m[i, j]:4);
    writeln
  end
end;

const
  (*
  a: mx =
    (( 1, 2, 3, 4),
     ( 5, 6, 7 ,8),
     ( 9,10,11,12),
     (13,14,15,16));
  *)
  a: mx =
    (( 1, 2, 3, 4, 5),
     ( 6, 7 ,8, 9,10),
     (11,12,13,14,15),
     (16,17,18,19,20),
     (21,22,23,24,25));

var
  i, j, k: integer;
  T: integer;
begin
  writeln('before:');
  printMatrix(a);

  writeln;

  for k := 1 to n div 2 do
    for i := k to n - k do begin
      T := a[k, i];
      a[k, i] := a[n-i+1, k];
      a[n-i+1, k] := a[n-k+1, n-i+1];
      a[n-k+1, n-i+1] := a[i, n-k+1];
      a[i, n-k+1] := T;
    end;

  writeln('after:');
  printMatrix(a);
end.

Тестировалось на матрицах 4х4 и 5х5...

программа поворачивает не по часовой