КАК повернуть матрицу на 90 градусов вправо (или влево).

[RomT24]

Уважаемые программисты!
В задаче дана квадратная матрица порядка M, повернуть её на 90 градусов вправо или влево , когда элемент а[1][1] переходит в а[1][m], a[m][1] в a[1][1] и т.д. Вспомогательную матрицу не использовать.
Кто сможет, помогите!

[Serge_Bliznykov]

ищите. я здесь на форуме писал такой код по повороту матрицы.

[CrazyRabbit]

поворот вправо))

var a,b:array[1..100,1..100]of integer;
i,j,n,p,m:integer;
 begin
  readln(n);
   for i:=1 to n do
    begin
     for j:=1 to n do
      read(a[i,j]);
       readln;
    end;

     for i:=1 to n do
      for j:=1 to n do
       b[j,i]:=a[i,j];

	for i:=1 to n  do
	begin
	p:=0;
	 for j:=1 to n div 2 do
	  begin
	  m:=b[i,j];
	   b[i,j]:=b[i,n-p];
	    b[i,n-p]:=m;
	     inc(p);
	   end;
	 end;

       for i:=1 to n do
	begin
	 for j:=1 to n do
	  write(b[i,j],' ');
	   writeln;
	end;
end.

p.s. не забудь про отзыв!

[RomT24]

Спасибо, но мне бы ещё комментарии к основным циклам, а то своими мозгами что то дойти не могу...)

[RomT24]

И , как я понял, в этом решении используется вспомогательная матрица, а по условию это делать нельзя. Может, у кого есть другие мысли?

[CrazyRabbit]

Мои извинения, не до конца прочитал условие!!!

[RomT24]

Не сможешь помочь тогда? (

[lenant]

Можно использовать одну матрицу, просто записать вводимые данные не в a[i,j], а в a[i+n,j+n], и потом их оттуда забрать в a[j,i]. Или это будет считаться за вспомогательную матрицу??

[Serge_Bliznykov]

RomT24,
сейчас некогда написать реализацию.
Идею решения хотите?
для матрицы размером n (в примере n=4)
поворот на 90 градусов по часовой.
идём по главной диагонали.
берём A[1,1] копируем его в A[1,n], элемент, который там был -> A[n,1], тот, в свою очередь в -> A[1,1]
дальше идём по строке от элемента главной диагонали до N-1 элемента по строке
A[2,1] -> A[2,n] -> A[n,n-1] -> A[2,1]
A[3,1] -> A[3,n] -> A[n,n-2] -> A[3,1]
всё. дошли до конца первой строки...
берём следующий элемент главной диагонали:
A[2,2] и крутим по кругу его..
и т.д.

Так понятно?

[Sazary]

Реализация идеи Serge_Bliznykov.
Проверил при разных n - вроде работает.

uses crt;
const n=4;
var
a : array[1..n,1..n] of integer;
i,p,k,tmp1 : integer;
begin
clrscr;
{-----}
randomize;
for i:=1 to n do
  begin
  for k:=1 to n do
   begin
   a[i,k] := random(20);
   write(a[i,k]:5);
   end;
  writeln;
  end;
writeln('------------');
{--------}
p := n div 2;
for i:=1 to p do
  begin
  for k:=i to n-i do
    begin
    tmp1 := a[i,k];
    a[i,k] := a[n-k+1,i];
    a[n-k+1,i] := a[n-i+1,n-k+1];
    a[n-i+1,n-k+1] := a[k,n-i+1];
    a[k,n-i+1] := tmp1;
    end;
  end;
{-------}
for i:=1 to n do
  begin
  for k:=1 to n do
   write(a[i,k]:5);
  writeln;
  end;

readln;
end.