p:=Head; {Установка текущего указателя на начало списка}
while (p<>nil) and (p^.inf<>A) do
begin
Oper(p); {Какая-либо операция над текущим элементом}
p:=p^.next {Переход к следующему элементу списка}
end;
Данный проход можно использовать:
• Для поиска определенного элемента, тогда в заголовок цикла добавляется соответствующее условие, например, (p^.inf<>A), (p^.inf>0) и т.п. Если элемент найден, p указывает на него. Если не найден, p=nil.
• Для выполнения какой-либо операции над элементами (вывод, суммирование, проверка на максимальность и т.д.). Тогда в тело цикла добавляются операторы или вызов подпрограммы для реализации этой операции.
B) Проход по списку с проверкой наличия элемента, следующего за текущим элементом
p:=Head;
while (p^.next<>nil) do
p:=p^.next;
После выхода из цикла p указывает на последний элемент.
Данный проход можно использовать для вставки элемента в конец списка и перед последним элементом.
C) Проход по списку с двумя указателями
pred:=nil; {pred указывает на предшествующий элемент}
p:=Head; {p – на текущий элемент}
while (p<>nil) and (p^.inf<>A) do
begin
Oper(p);{Какая-либо операция над элементами списка}
pred:=p;
p:=p^.next{Переход к следующему элементу списка}
end;
Данный проход можно использовать:
• Для поиска определенного элемента, тогда в заголовок цикла добавляется соответствующее условие, например, (p^.inf<>A), (p^.inf>0) и т.п.
Если элемент найден, p указывает на него, pred – на предшествующий.
Если не найден, p=nil, pred указывает на последний элемент.
• Для выполнения какой-либо операции над текущим и предшествующими элементами (проверка на возрастание и т.д.). Тогда в тело цикла добавляются операторы или вызов подпрограммы для реализации этой операции.
D) Проход по списку с двумя указателями и с проверкой наличия элемента, следующего за текущим
pred:=nil; {pred указывает на предшествующий элемент}
p:=Head; {p – на текущий элемент}
while (p^.next<>nil)do
begin
pred:=p;
p:=p^.next{Переход к следующему элементу списка}
end;
После выхода из цикла p указывает на последний элемент, pred – на предшествующий элемент.
Данный проход можно использовать для удаления последнего элемента.
Вставка элемента после заданного элемента
| Исходный список | Список после вставки элемента |
| 
|
Выполнить проход (a) по списку с проверкой текущего элемента для поиска заданного элемента А.
Если элемент найден, выполнить:
new(q);
q^.inf:=x;
q^.next:=p^.next; //Установка ссылки в новом элементе на элемент, который следовал за элементом А
p^.next:=q; //Установка ссылки в элементе А на новый элемент
end;
