Главная Новости сайта Контрольные Форум Полезные статьи Фотогалерея Пользователи Карта сайта
Главная arrow Форум

Вы не авторизованы.

дипломы,курсовые,рефераты,контрольные,диссертации,отчеты на заказ

Форум
Добро пожаловать, Гость   /   Вы можете зарегистрироваться с Главной страницы.
Вход   
Lisp + квадратные уравнения (1 чел.) (1) Гость
Контрольные
Вниз
Сообщения темы: Lisp + квадратные уравнения
#3259
kennel
Пользователи
Ранг участника форума равен 1
Постов: 8

Пользователь в оффлайне  Кликните здесь, чтобы посмотреть профиль этого пользователя
Lisp + квадратные уравнения8 г., 6 мес. назад Репутация: 0  
Привет!
Пытаюсь решить задачу по функциональному программированию на нахождение корней квадратного уравнения.
Нашел следующее решение:
Код:
(defun quadratic-roots-2 (A B C)
(cond ((= A 0) (string "Not a quadratic equation."))
(t
(let ((D (- (* B B) (* 4 A C))))
(cond ((= D 0) (concatenate 'string "x = " (write-to-string (/ (+ (- B) (sqrt D)) (* 2 A)))))
(t
(values (concatenate 'string "x1 = " (write-to-string (/ (+ (- B) (sqrt D)) (* 2 A))))
(concatenate 'string "x2 = " (write-to-string (/ (- (- B) (sqrt D)) (* 2 A)))))))))))


Однако интерпретатору XLISP не нравятся функции write-to-string и values. От первой в принципе можно безболезненно избавиться. Но никак не соображу чем заменить values. То есть требуется вывести в строку результат двух выражений. Честно говоря Лисп безумно бесит уже ) Подскажите плиз буду премного благодарен.
 
ЗарегистрированЗарегистрирован  
 
Последнее редактирование: 17.05.2010 21:26 Редактировал kennel.
  Для добавления сообщений Вы должны зарегистрироваться или авторизоваться
#3260
kennel
Пользователи
Ранг участника форума равен 1
Постов: 8

Пользователь в оффлайне  Кликните здесь, чтобы посмотреть профиль этого пользователя
RE: Lisp + квадратные уравнения8 г., 6 мес. назад Репутация: 0  
А ларчик просто открывался! тему считаю закрытой.
 
ЗарегистрированЗарегистрирован  
  Для добавления сообщений Вы должны зарегистрироваться или авторизоваться
Вверх

Сообщения на форуме могут оставлять только зарегистрированные пользователи.