Напишите программу, определяющую, лежит ли точка А(ха, ya ): а) на прямой y = kx + L, над ней или под ней.
Answers & Comments
fikort
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 w<y then writeln('Точка лежит над прямой') else writeln('Точка лежит под прямой'); end.
Answers & Comments
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 w<y then
writeln('Точка лежит над прямой')
else
writeln('Точка лежит под прямой');
end.