Даны координаты двух отрезков 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

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

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.

СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 3.889 из 5



Похожие ответы
  1. Даны две окружности одинакового радиуса R , заданные координатами их центров (X1Y1) (X2Y2) -целыми числами. Определить пересекаются ли они, в этом случае вычислить координаты, (вещественные числа)точек их пересечения

  1. вывести фамилии, имена и отчества всех студентов мужского пола , не сдавших более двх экзаменов

  1. На внешнем носителе (в файле) построчно подготовлены элементы матрицы А(m,n). Для заданных k и l ввести элементы k-й и l-й строк (пропуская промежуточные) и найти их скалярное произведение. матрица слишком велика, чтобы хранить ее в памяти.

  1. Из двух упорядоченных одномерных массивов (длины K и N) сформируйте одномерный массив размером K+N, упорядоченный так же, как исходные массивы.

  1. Возможно как-то неправильно назвал тему, но вот суть: Кликните здесь для просмотра всего текста Во время исследований, посвященных появлению жизни на планете Олимпия, учеными было сделано несколько сенсационных открытий: Все живые организмы планеты происходят от бактерии Bitozoria Programulis. Эволюция происходила шаг за шагом (по предположению ученых – во время изменения климата на планете). На каждом шаге эволюции из каждого вида образовывались ровно два подвида, а предыдущий вид исчезал. Если считать появление бактерии Bitozoria Programulis первым шагом эволюции, то существующие сейчас живые организмы находятся на N-ом шаге. Чтобы не придумывать названия во время исследований, ученые пронумеровали все виды организмов, которые когда-либо существовали на планете. Для этого они нарисовали дерево эволюции с корнем Bitozoria Programulis, которая получила номер 1. Далее нумеровали виды каждого шага эволюции слева направо. Таким образом непосредственные подвиды Bitozoria Programulis получили номера 2 и 3. Следующими были занумерованы виды третьего шага эволюции – подвиды вида 2 получили номера 4 и 5, а вида 3 – номера 6 и 7, и т.д. Напишите программу, которая по номерам двух видов вычислит номер вида их ближайшего общего предка в дереве эволюции. Входные данные В первой строке входного файла INPUT.TXT записано целое число N (1 ≤ N ≤ 60) – количество этапов эволюции, которые произошли на планете Олимпия до текущего времени. Вторая и третья строки содержат по одному натуральному числу, которые представляют номера видов, для которых требуется найти номер их ближайшего общего предка. Выходные данные В выходной файл OUTPUT.TXT выведите одно натуральное число – номер ближайшего предка для двух видов. Условие Кликните здесь для просмотра всего текста

  1. Ребят, помогите, нужна программа, которая находит произведение двух матриц

  1. Очень нужна ваша помощь. Вычислите длины двух окружностей с радиусами R и r, а также площадь кольца, образованного из этих окружностей с общим центром O Было бы неплохо, если бы в дополнение к нему отправили блок-схему Заранее спасибо!

  1. Через процедуру найти разность двух чисел (30-20) Только начинаю, объясните пожалуйста.

  1. Доброго времени суток, помогите с программой: есть два файла в них находятся числа нужно найти сумму наименьших из них. Я нашёл количество чисел, теперь мне нужно как то перенести эти числа в массив, для поиска минимального, вот как это сделать?