Повернуть массив на 90 градусов

@Dmitruy · Регистрация: 14.12.2012

Author24 — интернет-сервис помощи студентам

Нужно повернуть массив на 90 градусов,но только нужно повернуть его так чтобы то что внутри массива осталось как прежде вот пример :
старый массив
1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16

новый массив
13 9 5 1
14 6 7 2
15 10 11 3
16 12 8 4

вот код программы проблема в том что массив переворачивается полностью

Pascal

uses crt;
const nmax=50;
type matr=array[1..nmax,1..nmax] of integer;
procedure Pov90(var a:matr;n:byte);
var i,p,k:byte;
    x:integer;
begin
p := n div 2;
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;
end;
 
var a:matr;
    xn,xk:integer;
    n,i,k:byte;
begin
clrscr;
randomize;
repeat
write('Ðàçìåð ìàòðèöû äî ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
writeln('Ââåäèòå íèæíèé è âåðõíèé ïðåäåëû äèàïàçîíà ÷èñåë:');
readln(xn,xk);
until xn<xk;
writeln('Èñõîäíàÿ ìàòðèöà:');
for i:=1 to n do
  begin
    for k:=1 to n do
      begin
       a[i,k]:=random(xk-xn+1)+xn;
       write(a[i,k]:5);
      end;
    writeln;
  end;
writeln;
Pov90(a,n);
writeln('Ïîâîðîò íà 90 ãðàäóñîâ ïî ÷àñîâîé ñòðåëêå:');
for i:=1 to n do
  begin
    for k:=1 to n do
    write(a[i,k]:5);
    writeln;
  end;
readln
end.

@Puporev · 14.12.2012, 17:35

Если нужен поворот внешнего периметра, то измени процедуру так.

Pascal

procedure Pov90(var a:matr;n:byte);
var i,k:byte;
    x:integer;
begin
for k:=1 to n-1 do
  begin
    x:=a[1,k];
    a[1,k]:=a[n-k+1,1];
    a[n-k+1,1]:=a[n,n-k+1];
    a[n,n-k+1]:=a[k,n];
    a[k,n]:=x;
  end;
end;

@Dmitruy · 14.12.2012, 17:56 **[ТС]**

Теперь то что внутри остается как и должно быть, но внешний периметр поворачивается не понять как

@Puporev · 14.12.2012, 18:02

Ну если не понимаешь ничего, то создай такую матрицу.

Pascal

const nmax=50;
type matr=array[1..nmax,1..nmax] of integer;
procedure Pov90(var a:matr;n:byte);
var i,k:byte;
    x:integer;
begin
for k:=1 to n-1 do
  begin
    x:=a[1,k];
    a[1,k]:=a[n-k+1,1];
    a[n-k+1,1]:=a[n,n-k+1];
    a[n,n-k+1]:=a[k,n];
    a[k,n]:=x;
  end;
end;
 
var a:matr;
     n,i,k:byte;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
  begin
    for k:=1 to n do
      begin
       a[i,k]:=(i-1)*n+k;
       write(a[i,k]:4);
      end;
    writeln;
  end;
writeln;
Pov90(a,n);
writeln('Поворот на 90 градусов по часовой стрелке:');
for i:=1 to n do
  begin
    for k:=1 to n do
    write(a[i,k]:4);
    writeln;
  end;
end.

Повернуть массив на 90 градусов

Решение

Решение

@Dmitruy 0 / 0 / 0 Регистрация: 14.12.2012 Сообщений: 4
	14.12.2012, 17:56 [ТС]	3
	Теперь то что внутри остается как и должно быть, но внешний периметр поворачивается не понять как 0

	14.12.2012, 18:02