img
00:00
imgDRKB online - Проверка пересечения двух отрезков
imgimgimg
  Общие вопросы
  Delphi IDE, компиллятор, отладчик, редактор
  Язык программирования Дельфи
  VCL
  Системные функции и WinAPI
  Базы данных
  Работа с файловой системой
  Репортинг, работа с принтером
  Работа с сетью, интернетом, протоколами
  Работа с графикой и мультимедиа
  Математика, алгоритмы
  Работа с матрицами, векторами и списками
  Контрольные суммы и шифрование, проверка контрольных сумм
  Системы счисления
  Комплексные числа
  Арифметика, системы счисления, комплексные числа
  Алгоритмы работы с графикой
  Как нарисовать кривую Безье?
  Как нарисовать график функции?
  Как нарисовать фрактал?
  Как определить лежит ли точка внутри полигона?
  Нахождение угла между радиус вектором и осью OX
  Поиск пересечений графика с осью OX
  RGB --> CMYK
  CMYK --> RGB
  Вращение объектов
  Алгоритм градиентной заливки
  Алгоритмы потухания текста и обратного ему эффекта
  Rotate a 2D Point
  Rotate a 3D Point around another 3D Point
  Найти центр треугольника
  Find the convex hull of 2D points?
  Найти точку пересечения прямых
  Draw a polygon with Gouraud shading?
  Detect simple collision and transparency
  За какое время было создано изображение
  Интерполяция изображений
  2D Бампмэппинг ( Bumpmapping )
  Определить взаиморасположение точки и прямой
  Вычисление площади одноконтурного несамопересекающегося многоугольника
  Преобразование 3D-координат точки в 2D-координаты в перспективе
  Угол поворота точки окружности относительно центра
  Проверка пересечения двух прямоугольников (TRect)
  Центр вписанной в треугольник окружности
  Проверка попадания точки в треугольник
  Проверка пересечения двух отрезков
  Статистика и теория вероятности
  Сортировка
  Сжатие данных
  Комбинаторика
  Поиск, алгоритмы перебора
  Интегралы, производные и дифференциальные уравнения
  Алгоритмы работы с текстом
  Деревья
  Графики функций
  Корреляция и регрессия
  Различные алгоритмы
  Форматы файлов, данных. Конвертация форматов
  ActiveX, COM, DCOM, MIDAS, CORBA, интерфейсы, OLE, DDE
  Разработка приложений
  Kylix
  Delphi.Net
  Развлечения
  
  [drkb=3872] Комментариев: 2
Проверка пересечения двух отрезков

delphi
{ **** UBPFD *********** by kladovka.net.ru ****
>> Проверка пересечения двух отрезков

X1,Y1,X2,Y2 - координаты первого отрезка
X3,Y3,X4,Y4 - координаты второго отрезка
Возвращает True, если отрезки пересекаются, иначе - False.

Зависимости: System
Автор:       Fenik, fenik@nm.ru, Новоуральск
Copyright:   Николай Федоровских
Дата:        24 ноября 2005 г.
********************************************** }


function CrossLines(X1,Y1,X2,Y2, X3,Y3,X4,Y4: Integer): Boolean;
begin
  Result := (((X3-X1)*(Y2-Y1) - (Y3-Y1)*(X2-X1)) *
             ((X4-X1)*(Y2-Y1) - (Y4-Y1)*(X2-X1)) <= 0)
            and
            (((X1-X3)*(Y4-Y3) - (Y1-Y3)*(X4-X3)) *
             ((X2-X3)*(Y4-Y3) - (Y2-Y3)*(X4-X3)) <= 0)
end;



@Drkb::04129
Количество статей: 4366
 
Вход
Имя:
Пароль:
Запомнить
Регистрация Забыли пароль?
Мини-чат :)
Необходима регистрация
Архив мини-чата
19-01-2020 10:47
Programmer
уже подросток
19-01-2020 10:47
Programmer
13 лет этому сайту
19-01-2020 10:45
Programmer
уже 2020
14-01-2020 05:12
Xyu
Кароч дарова
14-01-2020 05:12
Xyu
Dirvachok
12-12-2019 19:32
Prokok
Всем привет!

12-12-2019 18:12
Programmer
admin создай беседу в вк про десксофт
09-12-2019 15:21
spex
ку
07-12-2019 23:51
admin
Это хоумпейдж, для души, с чего бы ему умирать? К тому же на хостинге другие сервисы подняты, для себя.
07-12-2019 22:49
Oleg4260
Мда... тут 2 страницы пролистаешь и уже на год раньше дата сообщения
походу сайт мёртвый. странно, что он до сих пор хостится, и даже админ вчера онлайн утром был.
Статистика
 СегодняВсего
Посетителей3692177950
Запросов24236326453765
Online
Пользователей0
Гостей28
imgimgimgimg
 
img
     00:00