Лекция: Задачи включения элемента в линейный однонаправленный список без головного элемента.

Графическое представление выполняемых действий дано на рис. 21

Формирование пустого списка.

Procedure Create_Empty_List ( var first: el);

Begin

first = nil;

End;

Формирование очередного элемента списка.

Procedure Create_New_Elem(var p: el);

Begin

New (p);

Writeln ('введите значение первого информационного поля: ');

Readln ( p^.inf1 );

Writeln ('введите значение второго информационного поля:'); Readln ( p^.inf2 );

p^.next := nil;

{все поля элемента должны быть инициализированы}

End;

Подсчет числа элементов списка.

Function Count_el(First:el):integer;

Var

K: integer;

q: el;

Begin

If First = Nil then

k:=0 {список пуст}

Else

begin {список существует}

k:=1; {в списке есть хотя бы один элемент}

q:=First;

{перебор элементов списка начинается с первого}

While q^.Next <> Nil do

Begin

k:=k+1;

q:=q^.Next;

{переход к следующему элементу списка}

End;

End;

Count_el:=k;

End;

ПРИМЕЧАНИЕ: аналогично может быть написана процедура, например, печати списка, поиска адреса последнего элемента и др.