Динамические структуры данных Опции

[kess]

Составить программу . которая переносит в конец непустого списка L эго первый элемент

[Lapp]

Аналогия с кладовками и столами не очень хороша. Лучше - настоящая белка в лесу выкапывает ямки, прячет в каждую из них орех и кладет записку о том, где искать следующую ямку. В последней ямке записки нету.

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

Вот вариант программы, который осуществляет заполнение списка и распечатку его в конце.

type
  pList=^tList;
  tList=record
    Next:pList;     {записка-указатель на след ямку}
    Q:string        {тут будет сам орех}
  end;

procedure AddToList(s:string; var L:pList);
var
  M:pList;
begin
  if L=Nil then begin  {если ямок еще не было}
    New(L);            {выкапываем самую первую ямку}
    M:=L
  end                  {если ямки уже были}
  else begin
    M:=L;
    while M^.Next<>Nil do M:=M^.Next;  {находим последнюю из них}
    New(M^.Next);      {выкапываем следующую и кладем записку, где она}
    M:=M^.Next
  end;
  M^.Q:=s;             {кладем орех в ямку}
  M^.Next:=Nil  {убираем записки, которые могли случайно оказаться в ямке}
end;

procedure PrintList(L:pList);
begin
  while L<>Nil do with L^ do begin {начинаем с первой ямки и повторяем до той, в которой нет записки}
    WriteLn(Q);        {достаем орех}
    L:=Next            {переходим к следующей ямке}
  end
end;

procedure InitList(var L:pList);
begin
  L:=Nil               {кладем записку, что орехов нет}
end;

var
  Quatations:pList;
  s:string;

begin
  InitList(Quatations);
  WriteLn('Введите несколько цитат (для завершения введите пустую строку):');
  repeat
    ReadLn(s);                             {находим орех}
    if s<>'' then AddToList(s,Quatations)  {кладем его в следующую ямку}
  until s='';
  PrintList(Quatations)      {достаем все орехи}
end.

Осталось добавить сюда то, что тебе нужно сделать по заданию: перенести в конец списка его первый элемент..