Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Графическое представление выполняемых действий дано на рис. 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;
ПРИМЕЧАНИЕ: аналогично может быть написана процедура, например, печати списка, поиска адреса последнего элемента и др.
Дата публикования: 2014-11-04; Прочитано: 312 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!