Лабораторная работа №7
скачать (5.4 kb.)
Доступные файлы (1):
| Отчет_7.doc | 33kb. | 19.11.2008 22:20 |  скачать |
содержание
- Смотрите также:
- Проектирование режущего инструмента [ документ ]
- Лабораторные работы по метрологии, стандартизации сертификации [ документ ]
- №3 [ документ ]
- Лабораторная работа по исследованию аппаратуры [ лабораторная работа ]
- №3 [ документ ]
- №7 [ лабораторная работа ]
- №2 [ лабораторная работа ]
- №6 [ лабораторная работа ]
- Лабораторная работа [ документ ]
- №5 [ лабораторная работа ]
- Исследование корреляционной связи [ лабораторная работа ]
- Герасимов А.И., Регеда В.В., Регеда О.Н. Системное и прикладное программное обеспечение персонального компьютера [ документ ]
Отчет_7.doc
КАЗАНСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ им. А.Н.ТУПОЛЕВА.Кафедра Прикладной Математики и Информатики им. Ю.В. Кожевникова
Лабораторная работа №7
по дисциплине
«Функциональное и логическое программирование».
Казань – 2008.
Лабораторная работа №7.
Организация итерационных вычислений в LISP. Свойства символов.
Цель работы: Знакомство с базовыми средствами языка Lisp для организации итерационных вычислений, а также функциями манипулирования свойствами символов.
Задание:
Вычислить сумму ряда целых чётных чисел от n до 2n.
Определить предикат, проверяющий, обладает ли символ заданным свойством.
Листинг:
(defun sum(n);вычисляет сумму ряда целых чётных чисел от n до 2n
(
do ((count n) (rezult 0));задаем переменным начальные значения
((> count ( * 2 n)) rezult);если Coun > 2n, то выводим результат
(when (evenp count) (setq rezult(+ rezult count)));когда число четное,
;суммируем его
(setq count (+ count 1));переходим к следующему числу
)
)
(defun prop(simbol svoistvo);предикат, проверяющий, обладает ли символ заданным
;свойством
(
cond ((get simbol svoistvo) 'T)
(t 'NIL)
)
)
^
> (setf(get 'Mary 'age)23)
23
> (prop 'Mary 'age)
T
> (prop 'Mary 'sdf)
NIL
> (prop 'Mary2 'sdf)
NIL
> (setf(get 'Mary 'children)Nil)
NIL
> (sum 0)
0
> (sum 1)
2
> (sum 2)
6
> (sum 3)
10
> (sum 4)
18
>
Скачать файл (5.4 kb.)