Определить, принадлежит ли данная точка одному из отрезков, обоим или лежит вне их - Pascal ABC

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

Даны отрезки [a, b] и [c, d] и точка A с координатой х. Определить, принадлежит ли данная точка одному из этих отрезков, обоим или лежит вне их


textual

Код к задаче: «Определить, принадлежит ли данная точка одному из отрезков, обоим или лежит вне их - Pascal ABC»

const res: array [0..3] of string[40] = (
  'Точка x не принадлежит ни одному отрезку',
  'Точка x принадлежит отрезку ab',
  'Точка x принадлежит отрезку cd',
  'Точка x принадлежит обоим отрезкам');
var a, b, c, d, x: double;
    ab, cd: integer;
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  write('d = ');
  readln(d);
  write('x = ');
  readln(x);
  if (a - x) * (b - x) <= 0 then ab := 1 else ab := 0;
  if (c - x) * (d - x) <= 0 then cd := 2 else cd := 0;
  write(res[ab + cd]);
  readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


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

15   голосов, оценка 4.133 из 5

Источник