Question

Составить программу для определения непринадлежности точки к отрезку.

Answer 1

x1, y1 - начло отрезка
x2, y2 - конец отрезка
x0, y0 - координаты точки принадлежность которой мы будем проверять

Вывод будет True, если принадлежит, False, если не принадлежит.

Программа:

program fff;
const   _Eps: Real = 1e-3;
var  x0, y0, x1, y1, x2, y2 : real;  tmp : boolean;  begin
  readln(x1, y1);  readln(x2, y2);    readln(x0, y0);    tmp := ((x0 - x1) * (y2 - y1) - (y0 - y1) * (x2 - x1)) <= _Eps;  tmp := tmp and ( ((x1 < x0) and (x0 < x2)) or ((x2 < x0) and (x0 < x1)) );    write(tmp);  end.