- Задание на 3
- function getItem(l : PListItem; i : Integer) : TData;
- возвращает i-тый по порядку элемент списка (считая с единицы)
- гарантируется, что такой элемент есть
- procedure setItem(l : PListItem; i : Integer; v : Integer);
- записывает значение v в i-тый по порядку элемент списка
- Задание на 4
- procedure AddSorted(var l : PListItem; v : Integer);
- Список l отсортирован по возрастанию
- Процедура добавляет значение v в список так, чтобы он остался отсортированным
- Задание на 5
- procedure DelValue(var l : PListItem; v : Integer);
- Удаляет из списка все элементы, значение поля data в которых равно v
- ДЗ
- procedure Merge(a, b : PListItem) : PListItem
- Списки a и b отсортированы по возрастанию
- Процедура составляет из всех их элементов список отсортированный по возрастанию
- Создавать новые элементы или удалять нельзя
|
|