Циклический сдвиг, на динамических данных Опции

[Гость]

Помогите плиз!
Нужно с помощью динамичесой организации данных, организовать сдвиг впрво. Пример вводим L1=(a, b, c) , а выводим L2=(c, a, b).

Кто поможет в двух-трёх словах как лучше организовать цикличкский сдвиг на одни элемент вправо?

сразу большое спасибо

М

Гость, не задавай вопросы в чужих темах! Предупреждение.. Тема разделена. Lapp

!

Как оказалось позднее, ты сделал это ДВА раза! Второе ПРЕДУПРЕЖДЕНИЕ! Твоя подсеть может вся пострадать за тебя.. Lapp

[xds]

Вообщето задание на С

Здесь будет только на Паскале. Иначе - в разделе "Другие языки".

Вот возможная реализация. Используется двунаправленный список с фиктивным элементом. Такая организация списка позволяет без дополнительного просмотра списка: добавлять элементы в начало и конец списка, удалить любой элемент, вставить элемент в произвольное место списка, выводить список в любом порядке, сдвигать список с обоих направлениях. Использование фиктивного элемента избавляет нас от проверок на пустоту списка и его границы. Разберись - пригодится!

program ShiftList;

type
  PList = ^TList;
  TList = record
    Prev, Next: PList;
    n: Integer;
  end;

procedure InitList(var List: TList);
begin
  List.Prev := @List;
  List.Next := @List;
end;

procedure AddItem(var List: TList; n: Integer);
var
  p: PList;
begin
  New(p);
  p^.Next := @List;
  p^.Prev := List.Prev;
  List.Prev^.Next := p;
  List.Prev := p;
  p^.n := n;
end;

procedure FreeList(var List: TList);
var
  p: PList;
begin
  while List.Next <> @List do
    begin
      p := List.Next;
      List.Next := p^.Next;
      Dispose(p);
    end;
  List.Prev := @List;
end;

procedure ShrList(var List: TList);
var
  p: PList;
begin
  p := List.Prev;

  List.Prev := p^.Prev;
  List.Prev^.Next := @List;

  p^.Next := List.Next;
  p^.Next^.Prev := p;
  p^.Prev := @List;
  p^.Prev^.Next := p;
end;

procedure WriteList(const List: TList);
var
  p: PList;
begin
  p := List.Next;
  while p <> @List do
    begin
      Write(p^.n, ' ');
      p := p^.Next;
    end;
  Writeln;
end;

var
  List: TList;
  i: Integer;

begin
  InitList(List);

  for i := 1 to 10 do
    AddItem(List, i);

  WriteList(List);

  ShrList(List);
  WriteList(List);

  ShrList(List);
  WriteList(List);

  ShrList(List);
  WriteList(List);

  FreeList(List);

  Writeln;
end.