Динамическая память (первый шаг к современному программированию)

Лабораторная работа 17.1 (линейные однонаправленные списки – не так трудно, как кажется)

Пусть имеется линейный однонаправленный список, тип звена которого описан следующим образом:

Type

list = ^node;

node = record

K: integer;

next: List;

end;

Написать следующие функции (L – указатель на голову списка, а El – пе­ременная типа integer).

1.Функция добавляет El в голову списка.		Function ToHead(l:list; El:integer):list;
2. Функция добавляет El в хвост непустого списка.		Function ToTail(l:list; El:integer):list;
3. Функция определяет длину списка.		Function Length_List(l:list):integer;
4. Функция возвращает число вхождений El в список.		Function Count_El(l:list;El:integer):integer;
5. Функция возвращает ссылку на минимальный элемент списка.		Function Min_List(l:list):list;
6. Функция возвращает ссылку на максимальный элемент списка.		Function Max_List(l:list):list;
7. Функция возвращает значение true, если в списке есть отрица-тельные элементы.		Function Is_Neg(l:list):boolean;
8. Функция возвращает ссылку на элемент, равный El.		Function Find_El(l:list; El:integer):list;
9. Функция удаляет все вхожде-ния El из непустого списка.		Function Del_All_El(l:list; El:integer):list;
10. Функция удаляет все отрица-тельные элементы из непустого списка.		Function Del_All_Neg(l:list):list;
11. Функция возвращает значение true, если список упорядочен по возрастанию.		Function Is_Vozr(l:list):boolean;
12. Функция вставляет El в упоря-доченный по возрастанию список (не нарушая порядка).		Function El_into_VList(l:list; El:integer):list;
13. Функция вставляет El в упоря-доченный по убыванию список (не нарушая порядка).		Function El_into_UList(l:list; El:integer):list;
14. Функция удваивает все эле-менты, равные El (удваивает – т.е. вставляет новый элемент со значением El).		Function Double(l:list; El:integer):list;
15. Функция возвращает значение true, если в списке есть повторя-ющиеся элементы.		Function Is_Double(l:list):boolean;

Дата добавления: 2015-07-16