Квадратная матрица

[ronil]

Содержимое кв.матрецы A(n n) повернуть на 90 градусов по часовой, считая центром поворота центр симметрии матрицы.

Мож кто такую задачу делал, напишите решение если не трудно, буду очень благодарен :-)

[andrewpalkin]

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

Содержимое кв.матрецы A(n n) повернуть на 90 градусов по часовой, считая центром поворота центр симметрии матрицы.

Мож кто такую задачу делал, напишите решение если не трудно, буду очень благодарен :-)

А какие у тебя уже есть наброски ? Желательно выложить код , который ты уже написал

[Mad_Cat]

{С двумя матрицами }
var
   a,b:array[1..100,1..100] of integer;
   i,j,n,m:integer;
begin
 readln(n,m);    {количество строк и столбцов соответственно}
 for i:=1 to n do
  for j:=1 to m do
   read(a[i,j]);      {считываем элементы}
 writeln('Старый массив');
 for i:=1 to n do
  begin
   for j:=1 to m do
    write(a[i,j]:4); {вывод введенного массива на экран}
   writeln;
  end;
 for j:=1 to n do
  for i:=1 to m do
   b[i,n-j+1]:=a[j,i];  {переворот массива осуществляется при помощи другого массива}
 writeln('Новая размерность');
 writeln(m,' ',n);  {выводим новые размеры}
 writeln('Новый массив');
 for i:=1 to m do
  begin
   for j:=1 to n do
    write(b[i,j]:4);   {выводим новый массив}
   writeln;
  end;
 readln
end.

{без доп матриц}
uses crt;
var n,i,j,p,k,x:integer;
    a: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]:=random(15)-4;
        write(a[i,j]:4);
      end;
  writeln;
  end;
p := n div 2; {разбиваем матрицу на 4 части}
for i:=1 to p do
for k:=i to n-i do{меняем элементы по кругу из одной четверти в другую}
  begin
    x:=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]:=x;
  end;
Writeln('Povorot na 90 grad:');
for i:=1 to n do
  begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln;
  end;
readln
end.

[ronil]

Большое спасибо )