Определить, лежит ли точка с координатами (x,y) внутри окружности радиусом R - VB
Формулировка задачи:
Здраствуйте. Вот дали решить две задачи, срок 3 дня! Они сами по себе простые, только синтаксиса VB незнаю. Напешите решение пожалуйста, буду искренне благодарен.
1)напечатать все натуральные числа N от 1 до 50 включительно для которых cos*(N*(pi/12)-(pi/4))<0. найти их кол-во.
2)Даны дейсьвительные числа x, y и R. Определить, лежит ли точка с координатами (x,y) внутри окружности радиусом R с центорм в начале координат, на окружности, или вне этой окружности.
Решение задачи: «Определить, лежит ли точка с координатами (x,y) внутри окружности радиусом R»
textual
Листинг программы
Option Explicit
Private Sub Form_Load()
Dim R As Single, X As Single, Y As Single
R=InputBox("Введите радиус:")
X=InputBox("Введите X:")
Y=InputBox("Введите Y:")
If Sqr(X^2 + Y^2) < R Then
MsgBox("Точка в круге")
ElseIf Sqr(X^2 + Y^2) > R Then
MsgBox("Точка вне круга")
Else
MsgBox("Точка на окружности")
End If
End sub