матрица Опции

[Mavra]

есть матрица квадратная. размерность 2*n
поменять по часовой стрелке ее блоки размерами n*n
подскажите в чем ошибка

 procedure Smena(var A,B:matrix; n,m:integer);
 var i,j:integer;
 begin
 for i:=1 to n do
 for j:=1 to n do
  B[i,j+n]:=A[i,j];
 for i:=1 to n do
 for j:=n+1 to m do
  B[i+n,j]:=A[i,j];
 for i:=n+1 to m do
 for j:=n+1 to m do
  B[i,j-n]:=A[i,j];
 for i:=n+1 to m do
 for j:=1 to n do
  B[i-n,j]:=A[i,j];
 end;

[Lapp]

есть матрица квадратная. размерность 2*n
поменять по часовой стрелке ее блоки размерами n*n
подскажите в чем ошибка

вот так попробуй:

procedure Smena(var A,B:matrix; n:integer);
var
  i,j:integer;
begin
  {
  A B
  D C
  }
  for i:=1 to n do for j:=1 to n do B[i  ,j+n] := A[i  ,j  ];  {A -> B}
  for i:=1 to n do for j:=1 to n do B[i+n,j+n] := A[i  ,j+n];  {B -> C}
  for i:=1 to n do for j:=1 to n do B[i+n,j  ] := A[i+n,j+n];  {C -> D}
  for i:=1 to n do for j:=1 to n do B[i  ,j  ] := A[i+n,j  ];  {D -> A}
end;

Добавлено через 5 мин.
А при чем тут Делфи?..

М

Переношу в Задачи.

Пожалуйста, относись к выбору раздела ответственнее, не заставляй других делать за тебя..