Решение квадратного уравнения - Lisp

Формулировка задачи:

Буду очень благодарна и признательна если кто в этом разбирается и поможет. Необходимо на Лиспе написать программу вычисления дискриминанта квадратного уравнения. Свои наброски есть, но не уверена что правильно сделала.

Код к задаче: «Решение квадратного уравнения - Lisp»

textual
(defun qudrat(a b c)
  (let ((D (- (* b b) (* a c 4))))
    (cond ((minusp D) '())
          ((zerop D) (list (/ ( - b) (* 2 a))))
          (t (list (/ (- (* b -1) (sqrt D)) (* 2 a))
                   (/ (+ (* b -1) (sqrt D)) (* 2 a))))))))
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

6   голосов, оценка 4.167 из 5


СДЕЛАЙТЕ РЕПОСТ