Определить, попадает ли точка c координатами X1, Y1 в кольцо между двумя окружностями. - VBA
Формулировка задачи:
Помогите пожалуйста, не могу сообразить как сделать.
На плоскости заданы две окружности радиусами R1 и R2, описанные из одной точки X, Y. Определить, попадает ли точка c координатами X1, Y1 в кольцо между двумя окружностями.
Решение задачи: «Определить, попадает ли точка c координатами X1, Y1 в кольцо между двумя окружностями.»
textual
Листинг программы
Function isInRing(r1 as double, r2 as double, x as double, y as double, x1 as double, y1 as double) As Boolean r#=(x-x1)^2+(y-y1)^2 if r1 > r2 then isInRing=(r# > r2^2) And (r# < r1^2) else isInRing=(r# > r1^2) And (r# < r2^2) end if End function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д