Даны координаты двух отрезков AB и CD. Найдите общую часть проекций этих отрезов на ось абцисс - Pascal

  1. Даны координаты двух отрезков AB и CD. Найдите общую часть проекций этих отрезов на ось абцисс. Даны 8 целых точек - координаты точек A, B, C, D. Каждое из чисел не превышает 10000. Выводится одно число - общая длина проекции. Если общей части нет - вывести -1, если это одна точка, вывести 0. Примеры: Входной файл: 2 1 5 -3 6 4 10 -12 Выходной файл: -1 Входной файл: 2 0 6 -4 6 12 9 -45 Выходной файл: 0

textual

Код:

var a, b, c, d, t: Integer;
begin
  Read(a,t,b,t,c,t,d,t);
  if a>b then begin t:=a; a:=b; b:=t; end;
  if c>d then begin t:=c; c:=d; d:=t; end;
  if a>c then begin
    t:=a; a:=c; c:=t;
    t:=b; a:=d; d:=t;
  end;
  if c>b then t:=-1
  else if b<d then t:=b-c
  else t:=d-c;
  WriteLn(t);
end.

Похожие ответы
  1. Даны четыре отрезка a, b, c, d, заданные координатами их концов. Напечатать координаты всех точек пересечения этих отрезков. Вычисление координат пересечения двух отрезков оформить в виде процедуры.


Нашли ошибку?
Развитие проекта
Яндекс.Метрика