Помощь - Поиск - Пользователи - Календарь
Полная версия: задача про окружности
Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Другие языки
*оля*
Здравствуйте.
Вот такая задачка:

написать функцию isIncluded, аргументами которой служат параметры двух окружностей на плоскости (координаты центров и радиусы);
функция возвращает True, если вторая окружность целиком содержится внутри первой.

я решаю вот так:

Код

isIncluded :: Double->Double->Double->Double->Double->Double->Bool
isIncluded x1 y1 r1 x2 y2 r2 = if (sqrt((x2-x1)^2+(y2-y1)^2)+r2)<=r1 then True
    else False


Подскажите пожалуйста, все ли правильно и можно ли вообще так писать?
Просто только начала изучать язык, поэтому не совсем все понятно.
заранее спасибо
IUnknown
Можно и так, конечно, но зачем явно указывать True/False, если Haskel сам в состоянии разобраться:

Код
isIncluded :: Double -> Double -> Double -> Double -> Double -> Double -> Bool
isIncluded x1 y1 r1 x2 y2 r2 =
    (sqrt((x2 - x1)^2 + (y2 - y1)^2) + r2) <= r1
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.