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

[DarkHacker]

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

1,2,3,4,5

=> 2

3,4,5,1,2

Не нашел вариантов приемлемых для задачи. Подскажите или подсобите кодом)

[northener]

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

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

Либо не искал, либо сам не понимаешь что нужно искать, либо вообще не понимаешь ничего и ждёшь готового решения.

[DarkHacker]

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

Либо не искал, либо сам не понимаешь что нужно искать, либо вообще не понимаешь ничего и ждёшь готового решения.

P.S. Вот только не уверен в том, что именно в данной задаче подразумевается под "влево" и "вправо".

Ничего не искал, гуглом пользоваться не умею.
Если знаете ответ, будьте добры подскажите. Вроде как, затем тут и сидят все)

Я вижу вариант с 2мя массивами, но не считаю его оптимальным, хотел узнать как люди реализовывают такие задачи.

===============


Спасибо за помощь и своевременный ответ.

http://www.programmersforum.ru/showp...6&postcount=29

[northener]

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

Ничего не искал, гуглом пользоваться не умею.
Если знаете ответ, будьте добры подскажите. Вроде как, затем тут и сидят все)

Я вижу вариант с 2мя массивами, но не считаю его оптимальным, хотел узнать как люди реализовывают такие задачи.

Сидят тут вовсе не "затем".
Ответ знаю. Готовый код не дам. Но подскажу.
Два массива не нужно. Нужна одна временная переменная типа элемента данного массива.

[DarkHacker]

Не думал что вы отпишите еще что-то и не заходил, но видимо сделал так же как вы советуете.)

Знаю что никого не удивлю, но вот такой код у меня получился, надеюсь кому-то будет полезен))

procedure TPointsArray_Shift(var a:TPointsArray;shift:integer;step:integer=0);
var
buf,t:TPoint;
i:integer;
begin
      buf:=a[0];
      for i:=1 to length(a)-1 do
                      begin
                        t:=A[i];
                        A[i]:=buf;
                        buf:=t;
                      end;
       a[0]:=buf;

       inc(step);

       if(step<shift) then
          TPointsArray_Shift(a,shift,step);
end;

Указываем массив, указываем сдвиг, последний параметр не трогаем он для рекурсии.

[northener]

А зачем тут рекурсия?

[DarkHacker]

Ну я хочу например вызвать сдвиг на 5 элементов, следовательно либо в цикле крутить и запоминать 5 элементов в массиве буфера, либо так сделать. Не думаю что есть принципиальная разница. Или есть? )

[Serge_Bliznykov]

Ну я хочу например вызвать сдвиг на 5 элементов, следовательно либо в цикле крутить и запоминать 5 элементов в массиве буфера

зачем пять?!
в любом случае двух вспомогательных элементов вполне достаточно.

данная задача решается обычно одним из двух способов:
1) простой и неоптимальный.
Пишем процедуру сдвига массива на 1 элемент.
для сдвига на K элементов вызываем процедуру сдвига на 1 элемент K раз.

2) отпимальный - но чуть сложнее и алгоритмически и для отладки/понимания.
пишем функцию(формулу), которая возвращает для заданого индекса (позиции) элемента новую позицию, на которой данный элемент должен стоять после сдвига на K элементов. последовательно "ПЕРЕМЕЩАЕМ" элементы в массиве N раз (N - размер массива) с старой позиции на новую.