Определить, попадает ли точка с заданными координатами в окружность - VB

Узнай цену своей работы

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

2.Даны координаты точки. Определить, попадает ли точка в окружность (0,0,10).

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

textual
Листинг программы
Sub Main()
Console.WindowWidth = 60
Console.WindowHeight = 30 
Console.ForegroundColor = ConsoleColor.Yellow
 
Dim x, y As String
 
Console.WriteLine("Введите координату точки по оси x")
x = Console.ReadLine()
Console.WriteLine("Введите координату точки по оси y")
y = Console.ReadLine()
 
If x^2 + y^2 <= 100 Then
   Console.WriteLine("Точка с координатой " & x & " по оси x и с координатой " & y & " по оси y принадлежит окружности (0;0) и R = 10")
Else 
   Console.WriteLine("Точка с координатой " & x & " по оси x и с координатой " & y & " по оси y не принадлежит окружности (0;0) и R = 10")
End If
   
Console.ReadKey()
End Sub

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

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