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