Лучший ответ:
Смотри еще 1 ответ ниже
Ваш ответ:
Еще ответы и пояснения:
-
более месяца назад
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
Точки лежат на одной прямой
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
Точки лежат на одной прямой
