var x1,y1,x2,y2,x3,y3,a,b:real;
begin
write('A: '); readln(x1,y1);
write('B: '); readln(x2,y2);
write('C: '); readln(x3,y3);
a:=(y2-y1)/(x2-x1);
b:=y2-a*x2;
if y3=a*x3+b
then writeln('Точки лежат на одной прямой')
else writeln('Точки не лежат на одной прямой');
end.
Пример:
A: 1 1
B: 2 3
C: 3 5
Точки лежат на одной прямой
Подробнее - на -
Объяснение:
var x1,y1,x2,y2,x3,y3,a,b:real;
begin
write('A: '); readln(x1,y1);
write('B: '); readln(x2,y2);
write('C: '); readln(x3,y3);
a:=(y2-y1)/(x2-x1);
b:=y2-a*x2;
if y3=a*x3+b
then writeln('Точки лежат на одной прямой')
else writeln('Точки не лежат на одной прямой');
end.
Пример:
A: 1 1
B: 2 3
C: 3 5
Точки лежат на одной прямой
Подробнее - на -
Объяснение: