и опять матрицы Опции

[reboot]

помогите составить основной алгоритм для решения задачи
она сформулирована так:
ВВести целое число К, которая является размерностью квадратной матрицы и натуральное число N- исходные данные
Сформировать матрицу и повернуть ее по часовой стрелке на N шагов...

очень буду признателен, если выложите именно рекурсивную процедуру для поворота матрицы....хотя можно и другими способами(просто наш препод любит рекурсии)...

[amega]

Lapp

ты можеш проставить коментарии своего кода

 for i:=1 to k div 2 do begin
    b:=a[i,i];
    for j:=i to k-i do a[j,i]:=a[j+1,i];
    for j:=i to k-i do a[k-i+1,j]:=a[k-i+1,j+1];
    for j:=k-i downto i do a[j+1,k-i+1]:=a[j,k-i+1];
    for j:=k-i downto i+1 do a[i,j+1]:=a[i,j];
    a[i,i+1]:=b
  end;

[Lapp]

Выполняю обещанное)).

 for i:=1 to k div 2 do begin  {цикл по слоям (квадратам), от внешнего к внутреннему}
    b:=a[i,i];                {сохраняем левый верхний элемент}
    for j:=i to k-i do a[j,i]:=a[j+1,i];       {поэлементно двигаем левую сторону квадрата вверх на одну позицию}
    for j:=i to k-i do a[k-i+1,j]:=a[k-i+1,j+1];   {двигаем нижнюю сторону влево}
    for j:=k-i downto i do a[j+1,k-i+1]:=a[j,k-i+1];   {двигаем правую сторону вниз}
    for j:=k-i downto i+1 do a[i,j+1]:=a[i,j];   {двигаем верхнюю сторону вправо - кроме последнего элемента}
    a[i,i+1]:=b   {кладем сохраненный элемент во вторую позицию верхней стороны квадрата}
  end;