Жили были клавиатура,мышь,и компьютер.Жили они хорошо, пока не возник у них спор: кто из них самый главный! Каждый начал доказывать, что именно он главный! Первой отозвалась Мышка: «Я сама маленькая, значит я главнее!»
Потом сказала Клавиатура: «Я самая главная, потому что я знаю множество языков!»
Тут возмутился компьютер : «Я среди вас самый главный! Все, кто работает с монитором , смотрит только на меня, я всем нужен!»
Они так спорили, пока не решили, что без них невозможно работать. На том и решили и после этого уже больше не ссорились, а жили долго и счастливо.
Предположим что отрезок будет равен X см тогда зная координату точки можно узнать будет ли точка принадлежать отрезку надо просто длинна отрезка минус значение координаты
program zadacha;
var x1,y1,x2,y2,x3,y3,a,b: real;
begin
writeln('Введите координаты x1,y1');
readln(x1,y1);
writeln('Введите координаты x2,y2');
readln(x2,y2);
writeln('Введите координаты x3,y3');
readln(x3,y3);
a:=(y1-y2)/(x1-x2);
b:=((y1+y2)-a*(x1+x2))/2;
if (y3 = a*x3+b) and (x3 > x1) and (x3 < x2) or (y3 = a*x3+b) and (x2 > x1) and (x3 < x1)
then writeln('Точка принадлежит отрезку')else writeln('Точка не принадлежит отрезку')
end.
