Консультация № 161690
01.03.2009, 14:06
0.00 руб.
0 2 0
Здравствуйте уважаемые эксперты,Если написал не в ту тему то извините
Нужна помощь в написании функции на LISPWORKS
Вот задание:" Написать функцию DISTANCE, которая для заданных координат X1,Y1 и X2,Y2 возвращает расстояние между ними. Координаты могут иметь и отрицательные значения".И желательно пример как ее использовать чтобы получить ответ.

Обсуждение

давно
Старший Модератор
31795
6196
02.03.2009, 20:08
общий
Иванов Руслан Иванович:
Функция на newLisp ниже:
Код:
(define (distange x1 y1 x2 y2)
(
(print "Distange:=")
(print (sqrt (+ (* (- x1 x2) (- x1 x2))
(* (- y1 y2) (- y1 y2))
)
)
)
)
)

А как работать Вы можете посмотреть на рисунке.
LISPWORKS незнаю, поэтому пишу на том, что у меня есть и по этой причине не отвечаю.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
03.03.2009, 08:07
общий
Зенченко Константин Николаевич
Большое спасибо вопрос решен
Форма ответа