Question

Выяснить,лежит ли на одной прямой точки А(x1,y1), B(x2,y2),C(x3,y3).Координаты точек вводятся пользователем с клавиатуры ,результат работы программы выводится на экран

Answer 1

//Pascal ABC.NET 3.1 сборка 1219

Var
 x1,x2,x3,y1,y2,y3:integer;
 p1,p2:real;
begin
 readln(x1,y1,x2,y2,x3,y3);
 p1:=(y3-y1)/(y2-y1);
 p2:=(x3-x1)/(x2-x1);
 if p1=p2 then writeln('На одной прямой') else writeln('Не на одной прямой');
end.

Пример ввода:
1
1
2
2
3
3
Пример вывода:
На одной прямой

Answer 2

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
Точки лежат на одной прямой