Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Срочно! Разработать в виде программи алгоритм вычисления взаимного расположения точки и прямой(pascal)

Ответ оставил Гость

Uses Crt;var x,y,x1,y1,x2,y2:integer;BeginClrscr;Writeln(Задайте: x,y,x1,y1,x2,y2);Readln(x,y,x1,y1,x2,y2);If (abs(x-x1)+abs(x2-x)=abs(x2-x1)) and (abs(y-y1)+(abs(y2-y)=abs(y2-y1)) thenWriteln(точка принадлежит отрезку)ElseWritelb(точка не пренадлежит отрезку)ReadlnEnd.