Заштрихованная область - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д