Пример описания списка
Type ukazat= ^S; S= record Inf: integer; Next: ukazat; End;
Создадим первый элемент списка:
New (u); {выделяем место в памяти} u^. Next:= nil; {указатель пуст} u^. Inf:=3; Продолжим формирование списка. Для этого нужно добавить элемент либо в конец списка, либо в голову. А) Добавим элемент в голову списка. Для этого необходимо выполнить последовательность действий:
New(x); Readln(x^.Inf); x^. Next:= u; u:= x; Б)Добавление элемента в конец списка. Для этого введем вспомогательную переменную, которая будет хранить адрес последнего элемента. Пусть это будет указатель с именем hv (хвост). x:= hv;
New(x^. next); {выделяем память для следующего элемента}
x:= x^.next; x^.next:= nil; x^. inf:= 5; hv:=x;
|
