Курсовая работа: Функциональное и логическое программирование

)

)

;РАССЧИТЫВАЕМ НЕЭЛЕМЕНТАРНЫЕ ФУНКЦИИ ДЛЯ X

(DEFUN PRINT_RESULT (X)

(PRINT 'X OUTPUT_STREAM)

(PRINT X OUTPUT_STREAM)

(PRINT "Y=|X|" OUTPUT_STREAM)

(PRINT (ABS_FUNCTION X) OUTPUT_STREAM)

(PRINT "Y=X^3 IF X<=0 AND Y=X+2 IF X>0" OUTPUT_STREAM)

(PRINT (FUNCTION1 X) OUTPUT_STREAM)

(PRINT "Y=X^2+2X+1 IF X>0, Y=-3 IF X=0, Y=2X IF X<0" OUTPUT_STREAM)

(PRINT (FUNCTION2 X) OUTPUT_STREAM)

(PRINT "GAMMA(X)" OUTPUT_STREAM)

(PRINT (GAMMA X) OUTPUT_STREAM)

(PRINT '--------------------- OUTPUT_STREAM)

)

;ОТКРЫВАЕМ ФАЙЛ ДЛЯ ЧТЕНИЯ

(SETQ INPUT_STREAM (OPEN " D:\\INPUT_DATA.TXT" :DIRECTION :INPUT))

;ПОЛУЧАЕМПАРАМЕТРФУНКЦИИ

(SETQ X (READ INPUT_STREAM))

;ЗАКРЫВАЕМФАЙЛ

(CLOSE INPUT_STREAM)

;ОТКРЫВАЕМФАЙЛДЛЯЗАПИСИ

(SETQ OUTPUT_STREAM (OPEN "D:\\RESULT.TXT" :DIRECTION :OUTPUT))

;ПЕЧАТАЕМ РЕЗУЛЬТАТ ВЫЧИСЛЕНИЯ НЕЭЕЛЕМЕНТАРНЫХ ФУНКЦИЙ

(MAPCAR 'PRINT_RESULT X)

;ЗАКРЫВАЕМФАЙЛ

(TERPRI OUTPUT_STREAM)

(CLOSE OUTPUT_STREAM)