Как проверить, принадлежит ли точка треугольнику

@Irinka_ · Регистрация: 28.01.2012

Author24 — интернет-сервис помощи студентам

Пожалуйста, помогите найти ошибку:

Visual Basic

Sub xy()
Dim x1, y1, x2, y2, x3, y3 As Single
x1 = InputBox("Введите x1=") 'Введем х1
y1 = InputBox("Введите y1=") 'Введем у1
x2 = InputBox("ВВедите x2=") 'Введем x2
y2 = InputBox("Bведите y2=") 'ВВедем y2
x3 = InputBox("Введите x3=") 'Введем x3
y3 = InputBox("Введите y3=") 'Введем y3
' Начало координат (0;0)
x0 = 0
y0 = 0
' Задаем условие по которому определяется, принадлежит ли начало координат треугольнику с задаными вершинами
If (x0 >= x1 And x0 <= x2 And y0 >= y3 And y0 <= y1) Or (x0 >= x1 And x0 <= x3 And y0 >= y3 And y0 <= y2) Then
MsgBox "Принадлежит" 'Начало координат принадлежит заданому треугольнику
Else
MsgBox "Не принадлежит" 'Начало координат не принадлежит заданому треугольнику
End If
End Sub

Dragokas · 28.01.2012, 22:22

Так Вы не вычислите.
Как проверить принадлежит ли точка треугольнику?
Там даже имена переменных с Вашими совпадают.

@Irinka_ · 28.01.2012, 22:31 **[ТС]**

Спасибо

Dragokas 17996 / 7697 / 892 Регистрация: 25.12.2011 Сообщений: 11,470 Записей в блоге: 16
	28.01.2012, 22:22	2
	Так Вы не вычислите. Как проверить принадлежит ли точка треугольнику? Там даже имена переменных с Вашими совпадают. 1

@Irinka_ 24 / 2 / 0 Регистрация: 28.01.2012 Сообщений: 4
	28.01.2012, 22:31 [ТС]	3
	Спасибо 0