Напишите программу, определяющую, лежит ли точка А(ха, ya ): а) ** прямой y = kx + L, над...

Question

Напишите программу, определяющую, лежит ли точка А(ха, ya ): а) на прямой y = kx + L, над ней или под ней.

Answer 1

Var
x,y,l,k,w:real;
begin
writeln('Введите координаты точки');
read(x,y);
writeln('Введите k и l');
read(k,l);
w:=k*x+l;
If w=y then
writeln('Точка лежит на прямой')
else
If wwriteln('Точка лежит над прямой')
else
writeln('Точка лежит под прямой');
end.