Заштрихованная область - 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