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

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

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

type
  myArr1 = array[1..2, 1..2] of integer;



function get4num(): myArr1;
var i, i2: integer;
    a:  myArr1;
begin
   for i:=low(a) to high(a) do
    for i2:=low(a[i2]) to high(a[i2]) do
      readln(a[i][i2]);
   result := a;
end;

procedure searchint(a: myArr1);
begin
  if (a[1, 1] <= a[2, 2]) and (a[1, 2] >= a[2, 1]) then
      writeln('There is an intersection')
  else
     writeln('There is no intersection');

end;



function searchint(a:myArr1): boolean;

  begin
    result := false;
    if (a[1, 1] <= a[2, 2]) and
       (a[1, 2] >= a[2, 1]) then
        result := true;
  end;

begin
  writeln('enter 4 digits to search for an intersection');
  searchint(get4num());
  readln();
end.                 

Вывод консоли:

enter 4 digits to search for an intersection
0
0
-5
5
There is an intersection