Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Lisp] Задачи для зачёта

Автор: Angel46 22.12.2008, 20:41

Помогите, пожалуйста, немного разбираюсь в Лиспе, но не настолько хорошо. У вас здесь много талантливых программистов, помогите, прошу.

1) Табулирование функций: y=arcsin(1/x) + x^0.5(3-x)

Начало я знаю: defun main (a_b_h)
                          ( cond
                              (( > a b) (print "всё"))
                              ( t ( princ a)(princ (fa))(main(+ah) bh)
                              ))
                              ( defun f(x)
                              (...)
                               )
Вместо многоточия моя функция

2) Вычислить член Y(x) последовательности, определяемой рекуррентной формулой:

y(x)= x^2*Y(x-1) + x/(x+1) * Y(x-2)             Y(0)=3  Y(1)=4

3) Подсчитать количество слов в заданной строке символов. Разделителями слов является один или несколько пробелов.

Заранее благодарна.

Автор: VH_ 23.12.2008, 05:01

Код


(defun Y (x)
 (cond
  ((minusp x) nil)
  ((= x 0) 3)
  ((= x 1) 4)
  (T
   (+
    (* x x (Y (- x 1)))
    (* (/ x (+ x 1)) (Y (- x 2)))))))

Автор: Angel46 23.12.2008, 17:41

Спасибо огромное, ты супер!!!