/ Материалы / Язык программирования: Паскаль / Выясните, лежат ли на одной прямой точки А(x1, y1)...

Выясните, лежат ли на одной прямой точки А(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.
 


Похожие материалы

avatar
Наверх