Определить, лежат ли три точки плоскости на одной прямой - Turbo Pascal

Формулировка задачи:

Помогите, пожалуйста с задачей! Написать программу, определяющую, лежат ли три точки плоскости на одной прямой! Точки и заданы координатами!

Код к задаче: «Определить, лежат ли три точки плоскости на одной прямой - Turbo Pascal»

textual
uses crt;
var x1,x2,x3,y1,y2,y3,s:real;
begin
s:=0;
write('Vvedite koordinaty: ');
readln(x1,y1,x2,y2,x3,y3);
s:=0.5*((x2-x1)*(y3-y1)-(x3-x1)*(y2-y1));{площадь треугольника}
if s=0 then write('Lejat na odnoy pryamoy')
else write('Ne lejat na odnoy pryamoy');
readkey;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

6   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы