Выясните, лежат ли на одной прямой точки А(x1, y1)...
Категория: Язык программирования: Паскаль
Задание:
Выясните, лежат ли на одной прямой точки А(x1, y1), B(x2, y2), C(x3, y3)
| Входные данные | Результат |
|
x1=1 y1=1 x2=6 y2=3 x3=11 y3=5 |
Точки лежат на одной прямой |
Решение на языке Паскаль:
program z3;
var
x1, x2, x3, y1, y2, y3, z, n:real;
Begin
write ('Введите координаты точки А ');
readln (x1,y1);
write ('Введите координаты точки В ');
readln (x2,y2);
write ('Введите координаты точки C ');
readln (x3,y3);
z:=(x3-x1)/(y3-y1);
n:=(x3-x2)/(y3-y2);
if (z=n) and (z=(x2-x1)/(y2-y1)) then
writeln ('Точки лежат на одной прямой')
else
writeln ('Точки не лежат на одной прямой');
end.