Выяснить,лежит ли на одной прямой точки А(x1,y1), B(x2,y2),C(x3,y3).Координаты точек вводятся пользователем с клавиатуры ,результат работы программы выводится на экран
Выяснить,лежит ли на одной прямой точки А(x1,y1), B(x2,y2),C(x3,y3).Координаты точек вводятся пользователем с клавиатуры ,результат работы программы выводится на экран
Гость
Ответ(ы) на вопрос:
Гость//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
Пример вывода:
На одной прямой
Гость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
Точки лежат на одной прямой
Не нашли ответ?
Похожие вопросы