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