матрицы.сдвиг pascal

[zyko]

пощу помочь:
Осуществить циклический сдвиг элементов квадратной матрицы размером MxN вправо на k
элементов таким образом: элементы первой строки сдвигаются в последний столбец сверху вниз, из него
в последнюю строку справа налево, из нее - в первый столбец снизу вверх, из него - в первую строку; для остальных элементов аналогично (оформить ввиде процедуры).

[Stilet]

Сам что нибудь пробовал делать?

[Serge_Bliznykov]

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


Виталий, это я не Вам...

[Ol'ga_new]

Здесь имелось в виду МхМ?

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

квадратной матрицы размером MxN

[ebaw_4yrok]

program asdfdsaf;
uses crt;
type mass=array [1..1000,1..1000] of integer;
var a:mass;
    k,i,j,n,m:integer;
procedure vvod;
begin clrscr;
      randomize;
      readln (n,m,k);
      for i:=1 to n do for j:=1 to m do a[i,j]:=random (110);
end;
      
procedure sdvig (n1,m1:integer;var a1:mass);
var i1,j1,b1:integer;
begin for i1:=n1 downto 1 do begin b1:=a1[i1,m1];
                                   for j1:=m1 downto 1 do a[i1,j1+1]:=a1[i1,j1];
                                   a[i1,1]:=b1;
                             end;
end;
                       
procedure vivod;
begin for i:=1 to n do begin for J:=1 to m do write (a[i,j]:4);
                             writeln;
                       end;
end;

begin vvod;
      vivod;
      writeln;
      for i:=1 to (k mod n) do sdvig (n,m,a);
      vivod;
end.

N- столбцы, M- строки
По-моему так. А как сдвинуть Вверх? Вниз получилось налево получилось а вверх не получается(


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.