Главная » Выясните, лежат ли на одной прямой точки А(x1, y1)...
14:18

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


Похожие материалы:
Нашли ошибку на сайте? Напишите в комментариях!
Категория: Язык программирования: Паскаль | Просмотров: 131 | Добавил: Ученик | Рейтинг: 5.0/1