Сдвиг массива вправо на 1 элемент

[stas45rus]

Всем привет!!!
Дан код:

Program SA;
Uses Crt;
Var b:array[1..255] of integer;
    i,k,s,c,n,m,ed,des,ost:integer;
Begin
 ClrScr;
  for i:=65 to 90 do
   begin
   write(chr(i),'-');
   des:=i-65;
   n:=0;
   ed:=0;
   while des>0 do
    begin
      n:=n+1;
      ost:=des mod 2;
       if ost=1 then ed:=ed+1;
      b[n]:=ost;
      des:=des div 2;
    end;
   if odd(ed) then b[6]:=1 else b[6]:=0;
{Вот здесь начинается циклический сдвиг вправо на 1 элемент, но он}
{Почему-то работает не для всех чисел}
   for k:=1 to 1 do
    begin
      for m:=6 downto 2 do
       if (m=6) then c:=b[6] else b[m+1]:=b[m];
    end;
   for s:=6 downto 1 do
    write(b[s]);
    write(' ',' ');
   end;
 readln;
End.

Подскажите пжл в чём ошибка.




___________
я видел, что Вы пытались оформить код тегами, как и положено по правилам.
Только забыли выделить текст программы перед нажатием кнопочки с решёточкой #
Или вставили текст программы не между тегами..

В следущий раз будьте, пожалуйста, внимательнее!

Модератор.

[rrrFer]

паскаль я забыл, но

for k:=1 to 1 do

меня удивляет еще и тем, что я не вижу чтобы "k" вообще использовалось

[Serge_Bliznykov]

Простите, я лично не могу понять, что за ужас реализован в Вашем коде...

но, циклический сдвиг (вправо, например) легко выполняется следующим образом:
во временную переменную запоминаем крайний элемент массива (пусть это будет N-й элемент)
в цикле по k от N-1 до 1 с шагом -1 на место k+1 переписываем k-й элемент.
т.е. на место N-го - ставим (N-1)-й элемент, на место (N-1)-го ставим (N-2) и т.д.
после окончания цикла сохранённый последний элемент ставим на место 1-го элемента.

в коде на Pascal это будет выглядеть так:

  {код циклического сдвига вправо на 1 элемент массива B, состоящего из n элементов}
  TempB := b[n];
  for k:=n-1 downto 1 do
     b[k+1]  := b[k];
  b[1] := TempB; 
  {--- сдвиг выполнен ----}