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

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

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

3.Даны координаты точки. Определить, попадает ли точка в квадрат [0,0, −5,0, −5,5, −0,5]

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

textual
Листинг программы
Sub Main()
Console.WindowWidth = 60
Console.WindowHeight = 30 
Console.ForegroundColor = ConsoleColor.Yellow
 
Dim x, y As Single 
 
Console.WriteLine("Введите координату точки по оси x")
x = Console.ReadLine()
Console.WriteLine("Введите координату точки по оси y")
y = Console.ReadLine()
 
If (x >= 0 And x <= 5) And (y >= -5 And y <= 0) Then
   Console.WriteLine("Точка с координатой " & x & " по оси x и с координатой " & y & " по оси y принадлежит квадрату [0,0, 5,0, 5,5, 0,5]")
Else 
   Console.WriteLine("Точка с координатой " & x & " по оси x и с координатой " & y & " по оси y не принадлежит квадрату [0,0, 5,0, 5,5, 0,5]")
End If 
 
Console.ReadKey()
End Sub

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

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