Определить, попадает ли точка 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
