Определить, попадает ли точка 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.286 из 5
Похожие ответы