Определить попадает ли точка с координатами Xo, Yo в круг с радиусом R - VB

Формулировка задачи:

Определить попадает ли точка с координатами Xo, Yo в круг с радиусом R. Уравнение окружности R²=X²+Y². Присвоить признаку N=1, если точка находится внутри круга, и N=0, если вне круга. Пожалуйста помогите с решением! Буду очень благодарен.

Решение задачи: «Определить попадает ли точка с координатами Xo, Yo в круг с радиусом R»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
    'Определить попадает ли точка с координатами Xo, Yo в круг с радиусом R
    MsgBox IIf(IsInCircle(Val(InputBox("Введите X0 ")), Val(InputBox("Введите Y0 ")), Val(InputBox("Введите R "))), "попадает", "не попадает")
End Sub
                        

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

11 голосов , оценка 4.455 из 5

Похожие ответы