Точка пересечения отрезков - Pascal ABC

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

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

Пересекаются ли отрезки заданными координатами (x1;y1),(x2;y2),(x3;y3),(x4;y4)

Решение задачи: «Точка пересечения отрезков»

textual
Листинг программы
uses crt;
const e=0.0001;
var x1,y1,x2,y2,x3,y3,x4,y4,x,y:real;
begin
clrscr;
writeln('Введите координаты концов первого отрезка:');
readln(x1,y1,x2,y2);
writeln('Введите координаты концов второго отрезка:');
readln(x3,y3,x4,y4);
if(abs(x1-x2)<e)and(abs(x3-x4)<e)or(abs((y2-y1)*(x4-x3)-(y4-y3)*(x2-x1))<e)then
writeln('Отрезки параллельны')
else
 begin
  if(abs(x1-x2)<e)and(abs(y3-y4)<e)then
   begin
    x:=x1;
    y:=y3;
   end
  else if(abs(x3-x4)<e)and(abs(y1-y2)<e)then
   begin
    x:=x3;
    y:=y1;
   end
  else
   begin
    x:=-((x1*y2-x2*y1)*(x4-x3)-(x3*x4-x4*y3)*(x2-x1))/((y1-y2)*(x4-x3)-(y3-y4)*(x2-x1));
    y:=((y3-y4)*(-x)-(x3*y4-x4*y3))/(x4-x3);
   end;
  if((x>=x1)and(x<=x2))or((x>=x2)and(x<=x))then
  write('Отрезки пересекаются ')
  else write('Отрезки не пересекются');
 end;
end.

Объяснение кода листинга программы

  1. В начале кода подключается библиотека crt, которая используется для ввода и вывода чисел с плавающей точкой.
  2. Затем определяется константа e, которая равна очень маленькому числу (в данном случае 0.0001), чтобы использовать его в вычислениях.
  3. Далее определяются переменные x1, y1, x2, y2, x3, y3, x4, y4, x и y, которые будут использоваться для хранения координат концов отрезков.
  4. После этого происходит ввод координат концов первого отрезка с помощью функции readln.
  5. Затем происходит ввод координат концов второго отрезка с помощью функции readln.
  6. Далее выполняется проверка на пересечение отрезков с помощью условного оператора if.
  7. Если выполняется условие, что расстояние между концами первого и второго отрезков меньше e, а также расстояние между концами третьего и четвертого отрезков меньше e, то считается, что отрезки параллельны. В этом случае выводится сообщение Отрезки параллельны.
  8. Если выполняется условие, что расстояние между концами первого и второго отрезков меньше e, а также расстояние между концами третьего и четвертого отрезков больше e, то считается, что отрезки пересекаются. В этом случае выводится сообщение Отрезки пересекаются.
  9. Если выполняется условие, что расстояние между концами первого и второго отрезков больше e, а также расстояние между концами третьего и четвертого отрезков меньше e, то считается, что отрезки не пересекаются. В этом случае выводится сообщение Отрезки не пересекаются.
  10. Код завершается с помощью оператора end.

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

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