Для заданного N вычислить y=1+1/2!+1/3!+1/4!+1/N!

@Regina · Регистрация: 28.04.2014

Author24 — интернет-сервис помощи студентам

Для заданного N вычислить y=1+1/2!+1/3!+1/4!+...1/N!
Помогите пожалуйста!(((

@Catstail · 28.04.2014, 17:39

Lisp

(defun task (n &optional (k 1) (p 1) (s 1))
  (if (= n p) s (task n (* k (+ p 1)) (+ p 1) (+ s (/ 1 (* k (+ p 1)))))))
 
==> task
 
(task 3)
 
==> 5/3
 
(task 10)
 
==> 6235301/3628800

Добавлено через 12 минут
Чтобы не перевычислять дважды одно и то же, можно ввести вспомогательную переменную:

Lisp

1 2	(defun task (n &optional (k 1) (p 1) (s 1)) (if (= n p) s (let ((kn (* k (+ p 1))) (task n kn (+ p 1) (+ s (/ 1 kn))))))

@Regina 0 / 0 / 0 Регистрация: 28.04.2014 Сообщений: 5
		1
	Для заданного N вычислить y=1+1/2!+1/3!+1/4!+1/N! 28.04.2014, 16:15. Показов 1202. Ответов 1 Метки нет (Все метки) Для заданного N вычислить y=1+1/2!+1/3!+1/4!+...1/N! Помогите пожалуйста!((( 0

	28.04.2014, 17:39