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

[Виталик124]

Есть матрица (любая)! нужно поменять местами квадраты матрицы!

[Serge_Bliznykov]

ок.
вот, например, две ЛЮБЫЕ матрицы:

первая, размер 1x5

1 2 3 4 5

вторая, размер 2x7

 1  2  3  4  5  6  7
 8  9 10 11 12 13 14

приведите описание, где находятся в этих матрицах "квадраты" и как данные матрицы будут выглядеть после обмена местами этих квадратов.

[Виталик124]

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

ок.
вот, например, две ЛЮБЫЕ матрицы:

первая, размер 1x5

1 2 3 4 5

вторая, размер 2x7

 1  2  3  4  5  6  7
 8  9 10 11 12 13 14

приведите описание, где находятся в этих матрицах "квадраты" и как данные матрицы будут выглядеть после обмена местами этих квадратов.

В первой матрице "квадратом" будет "1 2" и "4 5", тройку мы вообще не трогаем! Преобразованная матрица будет выглядеть так: 4 5 3 1 2 .
Во второй матрице квадратами будут:

 "1  2  3  "   и    "5    6   7  "   
8  9  10           12  13  14

Преобразованная:

5    6     7     4     1   2   3
12   13   14   11    8   9   10

[BDA]

То есть, поменять местами левую и правую половины матрицы?

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

[Виталик124]

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

То есть, поменять местами левую и правую половины матрицы?

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

Ну почти! но если будет к примеру матрица 5X5, там уже не просто поменять половины, допустим, есть матрица:

1 2 3 4 5
0 9 8 7 6
2 3 4 5 6
4 5 6 7 8
7 6 5 4 3

Квадратами уже будут:

4 5 
7 6

1 2       
0 9

и их нужно поменять местами!

[BDA]

Вы можете произвести формализацию понятия "квадрат матрицы"?
Предположу:
Имея матрицу и ее размеры, нужно взять наибольшее целое число "a", не превышающее половины размера матрицы по горизонтали; взять максимум "b" из полученного числа и вертикального размера матрицы. Эти два числа ("a" и "b") зададут размер подматриц, которые необходимо поменять местами в данной матрице. Сами подматрицы располагаются в левом и правом верхних углах матрицы. Так?

[Виталик124]

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

Вы можете произвести формализацию понятия "квадрат матрицы"?
Предположу:
Имея матрицу и ее размеры, нужно взять наибольшее целое число "a", не превышающее половины размера матрицы по горизонтали; взять максимум "b" из полученного числа и вертикального размера матрицы. Эти два числа ("a" и "b") зададут размер подматриц, которые необходимо поменять местами в данной матрице. Сами подматрицы располагаются в левом и правом верхних углах матрицы. Так?

Никогда у меня не получалось нормально объяснять! =) Но всё же попробую еще раз! Итак, у меня есть матрица (любая). Но в моем случае это будет матрица 5Х5!

1 2 3 4 5
0 9 8 7 6
2 3 4 5 6
4 5 6 7 8
7 6 5 4 3

В этой матрице мы видим 4-и квадрата! Они разделены двумя линиями: вертикальной:3 8 4 6 5, горизонтальной: 2 3 4 5 6! Эти лини нам трогать нельзя! Но! Если будет другой размер матрицы, допустим 4Х5, то линии затрагивать можно! Вернемся к нашей матрице, опишу квадраты!
1-ый квадрат:

1 2
0 9

2-ой квадрат:

4 5 
7 6

3-ий квадрат:

4 5 
7 6

4-ый квадрат:

7 8 
4 3

Задача: поменять местами 1-ый и 2-ой квадраты!
То есть:
БЫЛО:

1 2 3 4 5
0 9 8 7 6
2 3 4 5 6
4 5 6 7 8
7 6 5 4 3

Должно стать:

4 5 3 1 2 
7 6 8 0 9
2 3 4 5 6
4 5 6 7 8
7 6 5 4 3

[BDA]

То есть нужно "разрезать" любую матрицу на 4 "равных" части и поменять две верхних части местами?

k := m div 2 + m mod 2;
p := n div 2;
if p = 0 then
  p := 1;
for i := 1 to p do
  for j := 1 to m div 2 do
  begin
    b := a[i, j];
    a[i, j] := a[i, j + k];
    a[i, j + k] := b;
  end;

[Виталик124]

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

То есть нужно "разрезать" любую матрицу на 4 "равных" части и поменять две верхних части местами?

k := m div 2 + m mod 2;
p := n div 2;
if p = 0 then
  p := 1;
for i := 1 to p do
  for j := 1 to m div 2 do
  begin
    b := a[i, j];
    a[i, j] := a[i, j + k];
    a[i, j + k] := b;
  end;

Ну да! Спасибо большое!

[Виталик124]

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

То есть нужно "разрезать" любую матрицу на 4 "равных" части и поменять две верхних части местами?

k := m div 2 + m mod 2;
p := n div 2;
if p = 0 then
  p := 1;
for i := 1 to p do
  for j := 1 to m div 2 do
  begin
    b := a[i, j];
    a[i, j] := a[i, j + k];
    a[i, j + k] := b;
  end;

Извините, пожалуйста, а не могли бы вы провести подробное описание каждого действия, того что вы делали? а то не могу понять! особенно первую часть, зачем эти div и mod?