Лабораторная работа по "Логистическому и фукциональному программированию"

Лабораторна робота №6

З предмету “Логічне і функційне програмування”

 

 

 

 

 

 

 

 

Виконав:  ст. гр.

 

Перевірив:

 

 

 

 

 

 

 

 

 

 

 

 

2011

 

Мета: Ознайомитися з середовищем та базовими функції Lisp.

 

Завдання: Скласти програму табулювання функцїї y=f(x) на інтервалі [а;b] з кроком h=(b-a)/N, N- ціле число (вводиться з клавіатури). У програмi передбачити обчислення величин, вказаних у вapiaнтаx завдань. За складеною програмою провести обчислення.

 

Виконання роботи

Лістинг програми:

(defun t(n)

(for i 1 n ((print 'i=)

(printline (- (* 16 (* i (/ 3 n))) 12) )))

)

 

Результати  роботи:

(tab 3)

i=4.0

i=20.0

i=36.0

==> 3

 

 

Завдання:

Обчислити суму елеменів ряду з заданою точністю Е. У програмi передбачити обчислення величин, вказаних у вapiaнтаx завдань. За складеною програмою  провести обчислення.

 

1/n² , де n=1,2,3,4,5,...,n

 

Виконання роботи

Лістинг програми:

(defun f (N)

  (IF (OR (= N 0) (= N 1)) 1

      (+ (/ 1 (* N N)) (f (- N 1) ) )

)

)

(defun sum (n t)

(ROUND (f n) t)

)

Результати  роботи:

(f 4)

==> 1.42361111111111

(sum 4 2)

==> 1.42

 

Висновок: На лабораторній роботі я виконав дане мені завдання і ознайомився із арифметичними діями у мові програмування LISP.