Заштрихованная область - VB

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

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

7. Даны действительные числа x, y. Определить, принадлежит ли точка с координатами (x, y) заштрихованной области.

Решение задачи: «Заштрихованная область»

textual
Листинг программы
Private Sub Command1_Click()
Dim x As Single, y As Single
Dim ms  As String
x = Val(InputBox("x", , 2))
y = Val(InputBox("y", , 3))
If x >= 0 And y >= 0 And x ^ 2 + (y - 2.5) ^ 2 >= 1.5 ^ 2 _
And x ^ 2 + (y - 2.5) <= 2.5 ^ 2 Then
ms = "  "
Else
ms = "  Г*ГҐ  "
End If
MsgBox "Òî÷êГ* Г± êîîðäèГ*Г*ГІГ*ìè  (" & x & " ; " & y & " )  " _
& ms & "  ГЇГ°ГЁГ*Г*äëåæèò Г§Г*øòðèõîâГ*Г*Г*îé îáëГ*Г±ГІГЁ "
End Sub

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


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

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

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