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

[kess]

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

[Lapp]

Смотри.
Допустим, ты составляешь список цитат (то есть строк).
Вот основа твоего списка:

type
  pList=^tList;
  tList=record
    Next:pList;
    Q:string
  end;

В ней ты определяешь элемент списка. Он состоит из двух полей: самой цитаты (строки) и указателя на следующий элемент. Перед определением типа элемента стоит определение ссылки на этот тип - это необходимо сделать именно в таком порядке.

Затем тебе нужна переменная для этого списка:

var
  Quatations:pList;

В программе нужно прежде всего эту переменную инициализировать нулевым пойнтером (Nil). Это можно сделать прямо в теле программы, но лучше соорудить для этого специальную процедуру:

procedure InitList(var L:pList);
begin
  L:=Nil
end;

Таким образом, самая простая прога, которая заводит список, но не заполняет его, выглядит так:

type
  pList=^tList;
  tList=record
    Next:pList;
    Q:string
  end;

procedure InitList(var L:pList);
begin
  L:=Nil
end;

var
  Quatations:pList;

begin
  InitList(Quatations)
end.

to be continued..