Заданы координаты трех точек плоскости. Эти точки не лежат на одной прямой?

Нужна программа в Паскале.

1

Ответы и объяснения

  • Kitsu
  • почетный грамотей
2012-12-26T21:18:57+04:00

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.