Лабораторная работа 2. выражения. Неименованные и именованные пользовательские функции на языке лисп
Скачать 41.22 Kb.
|
Вариант 14 Задание 1 Написать Λ-выражение на языке ЛИСП по индивидуальному заданию. 1.1. Код программы ((LAMBDA (c x d) (COND ((< x c)(-(*(* x x) x)(*(* c c) c))) ((AND(< x d)(>= x c)(-(+ c d) x))) ((>= x d)(+(* c c)(* x x))) )) 1 2 3) Задание 2 Написать пользовательскую функцию DEFUN на языке ЛИСП для выражения в п. 1 2.1. Код программы (DEFUN FUNC (c x d) (COND ((< x c)(-(*(* x x) x)(*(* c c) c))) ((AND(< x d)(>= x c)(-(+ c d) x))) ((>=x d)(+(* c c)(* x x))) )) Задание 3 Отладить и продемонстрировать работу программы с помощью запросов в среде интерпретатора LispWorks. 3.1. Результаты отладки программы с помощью интерпретатора Lisp 1) Где x < c Рис. 1. Задание 1 2) Где c <= x < d Рис. 2. Задание 1 3) Где x >= d Рис. 3. Задание 1 4) Результат работы функции Рис. 4. Задание 2 |