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