Перестановка блоков матрицы Опции

[Олег]

Вот решаю я задачу:
Дана действительная квадратная матрица порядка 2N. Получить новую матрицу, переставляя ее блоки размера NxN в соответствии с рисунком

Собственно, не приходит идеи, как это сотворить. Вначале предполагал повернуть на 180, но тогда меняется содержимое блоков при N больше 1-го.

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

[Олег]

2Мисс граффити
Дык в том то и дело, что блок - это четверть матрицы по сути, оно не ограничено....



М.... спасибо, сам намудрил - Делаем так:

1 | 2
3 | 4

Вначале меняем 1 и 4, потом 3 и 2

Var i,j,n:byte; x:real; A:array[0..10,0..10] of real;
For i:=1 to n do
For j:=1 to n do
    Begin
    x:=A[i,j]; A[i,j]:=A[i+N,j+N]; A[i+N,j+N]:=x;
    x:=A[i+N,j]; A[i+N,j]:=A[i,j+N]; A[i,j+N]:=x;
    End;

Сообщение отредактировано: Олег - 22.03.2007 16:39