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

[reboot]

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

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

[Lapp]

спасибо...но не много не то......под шагом тут понимается на сколько символов надо сдвинуть, а не поворот под градусом
то есть к примеру первый a[1,1] при шаге в 1 символ сдвинется на a[2,1], при шаге в 3 символа на a[4,1]...
то есть поворот все же есть...но по другому

Хм.. Извини, но если ты хочешь какую-то нестандартную операцию, то изволь определить ее полностью и детально. И если под словом "дом" ты реально понимаешь гибрид слона со столом, то лучше не трать время тех, кто хочет тебе помочь. Операция "поворот", которую ты упомнинал в первом сообщении:

Сформировать матрицу и повернуть ее по часовой стрелке на N шагов...

- подразумевает (в общепринятом смысле) именно то, что я сделал (хотя слово "шаг" действительно вносит некоторое сомнение относительно того, понимаешь ли ты сам, что спрашиваешь). Твой "поворот" нигде в математике не употребляется. И если тебя не устраивает общепринятый смысл слов - приводи свой "словарь".

amega тебе описал алгоритм, вот его реализация, распространенная с кромки (то есть внешнего слоя) на все слои.

  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;