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

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

Question

Информатика

Даниил

31 октября, 10:10

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

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

+5

Ответы (1)

Знаете ответ на вопрос?

Станиславка · Answer 1

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.

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

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

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