Показать сообщение отдельно
  #4  
Старый 01.09.2022, 20:57
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

1. Ну, например, как-то так:
Код:
if abs(y1-y2) < 0.001 Then ...
2. По инлексу получаешь элемент массива, там обе координаты - A[i].x, A[i].y.
3. Ну тут тогда сложнее. Тогда берем, например, аппроксимацию прямыми и проверяем пересекаются ли 2 соотв. прямые. Лень писать код, но там достаточно все просто - пересечение 2х прямых - задачка класса так 5-6го, уравнение прямой по 2м точкам где-то так же. Решаешь уравнение относительно x и смотришь - попадает ли этот x в границы отрезка.
Ответить с цитированием