Двумерные массивы Опции

[Bush]

Задача на мой взгляд не простая поэтому и лбращаюсь за помощью.
Дана матрица,записанная в текстовый файл.Сдвинуть элементы заданной матрицы в пределах каждого слоя на одну позицию по часовой стрелке.Первый слой образуется из элементов находящихся по периметру матрицы,второй по периметру оставшейся подматрицы и т.д. до заполнения всей матрицы.Полученную матрицу дописать в файл.На экране расскрасить слои разными цветами.
Если есть возможность помогите пожалуйста.

[volvo]

Добавил немного комментариев. Так понятнее?

[Merhaba]

Добавил немного комментариев. Так понятнее?

А как можно написать эту программу без использования буферного массива?
может быть, как-нить через новые переменные двигать элементы?

[Lapp]

А как можно написать эту программу без использования буферного массива?
может быть, как-нить через новые переменные двигать элементы?

Извиняюсь за вторжение..

Можно, конечно. Например, можно делать многократный сдвиг на одну позицию. Это, конечно, сильно увеличит время выполнения, но это общий закон: либо память - либо время.
У меня тоже есть заготовочка на эту тему (без буферного массива), вот тут: и опять матрицы
Если там сделать внешний цикл по значениям k, то получишь то, что надо. Плюс уйти от квадратности.

То есть как-то вот так:

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

[Merhaba]

Извиняюсь за вторжение..

Можно, конечно. Например, можно делать многократный сдвиг на одну позицию. Это, конечно, сильно увеличит время выполнения, но это общий закон: либо память - либо время.
У меня тоже есть заготовочка на эту тему (без буферного массива), вот тут: и опять матрицы
Если там сделать внешний цикл по значениям k, то получишь то, что надо. Плюс уйти от квадратности.

То есть как-то вот так:

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

Спасибо Вам Большое за помощь!!!
а как можно переделать код, где 1-ый слой будет сдвигаться на к элементов, 2-ой на к-1 элементов, .... , где к - число слоев ?