> 1 <

Автор Сообщение

auhb

Members


Статус

1 сообщений

Где: Russia
Род занятий:
Возраст:

#2055   2010-05-16 17:16 GMT+3 часа(ов)      
Для данной Вам задачи составьте две программы: непосредственное функциональное описание и программу, основанную на «хвостовой» рекурсии.

Построить функцию для вычисления n-го члена последовательности, в которой каждый следующий четный член равен произведению двух предыдущих, а каждый следующий нечетный член равен сумме двух предыдущих, а первые 2 члена равны соответственно 1 и 2.
1 2 3 6 9 54 63 ...

Пример:

 
(define (slo x) (+ x 1))
(define (kw y) (* y y))
(define (sum n) (if (> n 0) (+ (/ (kw n) (slo n)) (sum (- n 1))) 0))
 
 
> (define (sum-iter a n) (if (= n 0) a (sum-iter (+ a (/ (* (+ n 1) (+ n 1)) (+ n 1 1))) (- n 1))))
> (define (sum n) (sum-iter 1/2 (- n 1)))
 
 
> 1 <


Онлайн :

0 пользователь(ей), 25 гость(ей) :




Реклама на сайте: