Создать модуль ListWork для работы с разветвленными спискам

Задача:
1. Создать модуль ListWork для работы с разветвленными спискам. Модуль должен реализовывать следующие функции:
• car - как аргумент получает список (указатель на начало списка). Ее значением, которое возвращается, является первый элемент этого списка (указатель на первый элемент);
• cdr - как аргумент также получает список. Ее значением, которое возвращается, есть остаток списка - указатель на список после удаления из него первого элемента;
• cons - имеет два аргумента: указатель на элемент списка и указатель на список. Операция включает аргумент-элемент на начало аргумента-списка и возвращает указатель на список, отримався;
• atom - выполняет проверку типа элемента списка. Она должна возвращать логическое значение: true - если ее аргумент атомом или false - если ее аргумент подсписков;
• append - имеет два аргумента и выполняет добавление элемента в конец списка.

2. Реализовать программу имитирующую работу целочисленного калькулятора (деление исполняеться с помощью функции div).
Рекомендуемая структура программы:
• Функция CreateLst - создает разветвленный список. Функция содержит две вложенные процедуры NewInt и NewChar, которые соответственно создают атомы списка для элементов типа Integer и Char;
• Функция FormPrty - выделяет в подсписке высокоприоритетных операции (* и /);
• Функция Eval - вычисляет значение выражения.
3. Реализовать программу .
4. Проверить работу программы на контрольном примере.

0