Принадлежность точки с координатами (х, у) заштрихованной области - VB

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

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

Помогите пожалуйста, составить программу, которая выводит соответствующее сообщение о принадлежности точки с координатами (х, у) заштрихованной области.

Решение задачи: «Принадлежность точки с координатами (х, у) заштрихованной области»

textual
Листинг программы
Sub main()
Dim ax#, ay#, bx#, by#, cx#, cy# 'координаты вершин треугольника
Dim px#, py# 'координаты исследуемой точки
Dim f1#, f2#, f3# 'площади
ax = 2
ay = -4
bx = 5
by = 1
cx = 2
cy = 5
px = InputBox("x=")
py = InputBox("y=")
f1 = S2(px, py, ax, ay, bx, by)
f2 = S2(px, py, bx, by, cx, cy)
f3 = S2(px, py, cx, cy, ax, ay)
If ((f1 * f2) >= 0) And ((f2 * f3) >= 0) Then MsgBox "Yes" Else MsgBox "No"
End Sub
 
Function S2(ax#, ay#, bx#, by#, cx#, cy#) As Double '{удвоенная площадь треугольника со знаком}
  S2 = ax * (by - cy) + bx * (cy - ay) + cx * (ay - by)
End Function

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


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

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

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