Зеркальное отображение элементов матрицы в паскале

[SEREG@]

Помогите пожалуйста(еще раз),мне дали задачу и сказали поставят зачет автоматом,если я ее решу,вот условие:
ввести квадратную матрицу,зеркально отобразить элементы,НО! не просто поменяв i(номер строки) и j(номер столбца) местами,а другим способом.Также дана подсказка:1ая матрица будет обычной,2я зеркальной,а 3я зеркальным отображением 1й.Просьба ко всем,кто хорошо знает паскаль-помочь.Заранее спасибо.

[puporev]

Изложите задание в оригинале без ваших комментариев, иначе задачу не решить.
Вот пример создания зеркальных отображений матрицы по осям X и Y.

program zerkalo;
uses crt;
var n,i,j:integer;a:array[1..100,1..100] of integer;
begin
clrscr;
write('n=');readln(n);
randomize;
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=10*i+j;
        write(a[i,j]:3);
      end;
  writeln;
  end;
readln;
{zerkalo po osi Y}
for i:=1 to n do
  begin
    for j:=n downto 1 do
      begin
        write(a[i,j]:3);
      end;
  writeln;
  end;
readln;
{zerkalo po osi X}
 for i:=n downto 1 do
  begin
    for j:=1 to n do
      begin
        write(a[i,j]:3);
      end;
  writeln;
  end;
readln;
end.

[SEREG@]

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

Изложите задание в оригинале без ваших комментариев, иначе задачу не решить.
Вот пример создания зеркальных отображений матрицы по осям X и Y.

Вот сама задача в оригинале:
Ввести квадратную матрицу (4 на 4),зеракльно отобразить элементы относительно главной диагонали.

Но также сказано,что нельзя использовать метод:"x" нельзя менять местами c "y",т.к. это было бы слишком легко,т.е. нельзя менять местами индексы строк и столбцов.Дана подсказка:использовать 3 матрицы.

[shepelin]

элементы отобразить заркально относительно чего?

[SEREG@]

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

элементы отобразить заркально относительно чего?

Относительно главной диагонали.Короче поменять местами элементы относительно главной диагонали.

Тут мне подсказали,что надо повернуть 1ый массив 2 раза по часовой стрелке,но как записать незнаю(.

[SEREG@]

Ну че поможете?Очень прошу помогите,мне зачет поставят если решу задачу.

[puporev]

Ты целый день не можешь по человечески написать задание, и чего-то ждешь. Это тебе надо Иванушку-дурачка. Только он может пойти туда, незнаю куда и т.д. А зачет тебе поставят, если РЕШИШЬ задачу.

[SEREG@]

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

Ты целый день не можешь по человечески написать задание, и чего-то ждешь. Это тебе надо Иванушку-дурачка. Только он может пойти туда, незнаю куда и т.д. А зачет тебе поставят, если РЕШИШЬ задачу.

Сообщение от SEREG@

Вот сама задача в оригинале:
Ввести квадратную матрицу (4 на 4),зеракльно отобразить элементы относительно главной диагонали.

Но также сказано,что нельзя использовать метод:"x" нельзя менять местами c "y",т.к. это было бы слишком легко,т.е. нельзя менять местами индексы строк и столбцов.Дана подсказка:использовать 3 матрицы.

Вот сама задача в оригинале,еще раз повторяю.Красным шрифтом выделена задача такой,какой учитель мне ее дал.

[puporev]

Постепенно до меня дошло что тебе надо.
Получить зеркальное отображение матрицы по главной диагонали, используя дополнительный массив.
Делаем так:
1. Поворот матрицы на 270*.
2. Зеркальное отображение по оси Х.
Вот код для любой матрицы до 50х50:

program zerkalo2;
uses crt;
var n,i,j:integer;a,b:array[1..50,1..50] of integer;
begin
clrscr;
write('n=');readln(n);
writeln('Ischodnaia matritsha:');
randomize;
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=10*i+j;
        write(a[i,j]:3);
      end;
  writeln;
  end;
readln;
Writeln('Povorop na 270 grad:');
for i:=1 to n do
for j:=1 to n do
b[i,j]:=a[j,n-i+1];
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        write(b[i,j]:3);
      end;
  writeln;
  end;
readln;
a:=b;
writeln('Zerkalo po osi X:');
 for i:=n downto 1 do
  begin
    for j:=1 to n do
      begin
        write(a[i,j]:3);
      end;
  writeln;
  end;
readln;
end.

[SEREG@]

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

Постепенно до меня дошло что тебе надо.
Получить зеркальное отображение матрицы по главной диагонали, используя дополнительный массив.
Делаем так:
1. Поворот матрицы на 270*.
2. Зеркальное отображение по оси Х.
Вот код для любой матрицы до 50х50:

Большое спасибо,проверил по паскалю-программа работает,как ты додумался еще решить?ты не программист случаем?