Урок 16. Задача 2.

Урок 16. Задача 2.

Вспомогательная задача (можно решить, просто используя одномерные массивы):
Пользователь вводит 4 целых числа, считаем все их координатами на прямой, а именно:
первые два числа - начало и конце отрезка 1
вторые два - начало и конец отрезка 2
Задача: напишите подпрограмму, которая определит пересекаются ли данные отрезки.

type ar = array[1..2, 1..2] of integer;
var A :ar = ((2, 8), (7, 15));

function yes_no(Arr1 :ar) : boolean;
var fl :boolean;
begin
  fl := true;
  if (Arr1[1, 2] < Arr1[2, 1]) or (Arr1[1, 1] > Arr1[2, 2]) then
    fl := false;
  yes_no := fl;
end;

begin
  write(yes_no(A));
end.