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

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


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

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

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