Лабораторная работа №7 - файл Отчет_7.doc

Лабораторная работа №7
(5.4 kb.)
Доступные файлы (1):
Отчет_7.doc33kb.19.11.2008 22:20
содержание

Отчет_7.doc

КАЗАНСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ им. А.Н.ТУПОЛЕВА.


Кафедра Прикладной Математики и Информатики им. Ю.В. Кожевникова


Лабораторная работа №7

по дисциплине

«Функциональное и логическое программирование».


Казань – 2008.

Лабораторная работа №7.

Организация итерационных вычислений в LISP. Свойства символов.

Цель работы: Знакомство с базовыми средствами языка Lisp для организации итерационных вычислений, а также функциями манипулирования свойствами символов.


Задание:

  1. Вычислить сумму ряда целых чётных чисел от n до 2n.

  2. Определить предикат, проверяющий, обладает ли символ заданным свойством.


Листинг:

(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)

)

)


^ Результаты выполнения в XLISP-PLUS:

> (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

>

Учебный материал
© studmed.ru
При копировании укажите ссылку.
обратиться к администрации