Помогите сделать в паскале! Запросить с клавиатуры координаты точки (X, Y) и горизонтального отрезка прямой (Xn, Xk, Yn) и определить, лежит точка на отрезке прямой или нет. Сообщение об этом вывести на экран. Подсказка. Если ...
Помогите сделать в паскале!
Запросить с клавиатуры координаты точки (X, Y) и горизонтального отрезка прямой (Xn, Xk, Yn) и определить, лежит точка на отрезке прямой или нет. Сообщение об этом вывести на экран. Подсказка. Если координата Y точки не равна координате Y прямой, то НЕ лежит, если координата Х точки не находится в пределах между Хn начала и Хk конца прямой, то точка НЕ лежит на прямой.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы