Помогите сделать в паскале!

Запросить с клавиатуры координаты точки (X, Y) и горизонтального отрезка прямой (Xn, Xk, Yn) и определить, лежит точка на отрезке прямой или нет. Сообщение об этом вывести на экран. Подсказка. Если координата Y точки не равна координате Y прямой, то НЕ лежит, если координата Х точки не находится в пределах между Хn начала и Хk конца прямой, то точка НЕ лежит на прямой.

Question

Информатика

Саломея

22 января, 01:20

Помогите сделать в паскале!

Запросить с клавиатуры координаты точки (X, Y) и горизонтального отрезка прямой (Xn, Xk, Yn) и определить, лежит точка на отрезке прямой или нет. Сообщение об этом вывести на экран. Подсказка. Если координата Y точки не равна координате Y прямой, то НЕ лежит, если координата Х точки не находится в пределах между Хn начала и Хk конца прямой, то точка НЕ лежит на прямой.

+1

Ответы (1)

Знаете ответ на вопрос?

Кируня · Answer 1

Var

a, b, z, x, y:real;

begin

write ('Введите координаты точки (x, y) : ') ;

readln (x, y) ;

write ('Введите координаты отрезка (Xn, Xk, Yn) : ') ;

readln (a, b, z) ;

if (y=z) and (x>=a) and (x<=b) then

writeln ('Да, принадлежит')

else writeln ('Нет, не принадлежит')

end.