/ Материалы / Язык программирования: Паскаль / Выясните, лежат ли на одной прямой точки А(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.



Похожие материалы
К сожалению, похожего ничего не нашлось!
Поделитесь в социальных сетях

Мы Вконтакте

Наверх