Поменять квадраты матрицы местами.

[BDA]

Опишу сам алгоритм. Не построчно.
Нужно поменять местами 2 подматрицы. Они находятся в одних и тех же строках матрицы, но в разных столбцах. Левый верхний угол второй подматрицы на k элементов правее левого верхнего угла первой подматрицы. Само k рассчитывается просто: если матрица четной ширины, то это половина ширины, а если нечетна - половина ширины плюс один. Теперь нужно определить вертикальный размер подматрицы. Он равен половине высоты матрицы и не меньше 1. Осталось только "пробежаться" по элементам первой подматрицы и менять соответствующие элементы местами.

[Виталик124]

Сообщение от BDA

Опишу сам алгоритм. Не построчно.
Нужно поменять местами 2 подматрицы. Они находятся в одних и тех же строках матрицы, но в разных столбцах. Левый верхний угол второй подматрицы на k элементов правее левого верхнего угла первой подматрицы. Само k рассчитывается просто: если матрица четной ширины, то это половина ширины, а если нечетна - половина ширины плюс один. Теперь нужно определить вертикальный размер подматрицы. Он равен половине высоты матрицы и не меньше 1. Осталось только "пробежаться" по элементам первой подматрицы и менять соответствующие элементы местами.

а если я хочу поменять местами 1 и 3-ий квадрат?

[BDA]

Не рассматривая случай матрицы с высотой 1.

x := m div 2 + m mod 2;
y := n div 2 + n mod 2;
for i := 1 to n div 2 do
  for j := 1 to m div 2 do
  begin
    b := a[i, j];
    a[i, j] := a[i + y, j + x];
    a[i + y, j + x] := b;
  end;

То есть опять же, пробегаем по 1 подматрице, а с помощью сдвигов попадаем в нужный квадрат.
Ой, я поменял 1 и 4 квадраты Но, может быть, так будет понятнее.

[Виталик124]

Сообщение от BDA

Не рассматривая случай матрицы с высотой 1.

x := m div 2 + m mod 2;
y := n div 2 + n mod 2;
for i := 1 to n div 2 do
  for j := 1 to m div 2 do
  begin
    b := a[i, j];
    a[i, j] := a[i + y, j + x];
    a[i + y, j + x] := b;
  end;

То есть опять же, пробегаем по 1 подматрице, а с помощью сдвигов попадаем в нужный квадрат.
Ой, я поменял 1 и 4 квадраты Но, может быть, так будет понятнее.

Спасибо! Круто!