Заданы координаты трех точек плоскости. Эти точки не лежат на одной прямой?
Нужна программа в Паскале.
var x1,x2,x3,y1,y2,y3:real;beginreadln(x1,y1);readln(x2,y2);readln(x3,y3);if (x3-x1)*(y2-y1)=(x2-x1)*(y3-y1) then writeln('lejat na pryamoi') else writeln('ne lejat na pryamoi');end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var x1,x2,x3,y1,y2,y3:real;
begin
readln(x1,y1);
readln(x2,y2);
readln(x3,y3);
if (x3-x1)*(y2-y1)=(x2-x1)*(y3-y1) then writeln('lejat na pryamoi') else writeln('ne lejat na pryamoi');
end.