- Задание на 3
- procedure AddFirst(var l : PListItem; x : TData);
- Добавление элемента в начало списка
- procedure DeleteNext(l : PListItem);
- Удаление элемента, следующего за данным
- procedure Print(l : PListItem);
- Распечатка элементов списка в строчку
- Задание на 4
- procedure AddAfter(var l : PListItem; x : TData);
- Вставляет новый элемент после данного
- procedure DeleteAll(var l : PListItem);
- Удаляет все элементы списка
- Присваивает указателю на начало списка nil
- function Length(l : PListItem) : Integer;
- Возвращает количество элементов в списке
- Задание на 5
- function CopyList(l : PListItem) : PListItem;
- Копирует список (возвращает указатель на начало списка, состоящего из таких же значений в том же порядке)
- ДЗ
- procedure ReverseList(var l : PListItem);
- Переставляет жлементы списка в обратном порядке
- Создавать новые элементы списка запрещается
- Изменять значение поля data в существующих элементах запрещается
- Можно только менять ссылки Next
|
|