Определить, лежат ли три точки плоскости на одной прямой - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Помогите, пожалуйста с задачей! Написать программу, определяющую, лежат ли три точки плоскости на одной прямой! Точки и заданы координатами!

Решение задачи: «Определить, лежат ли три точки плоскости на одной прямой»

textual
Листинг программы
uses crt;
var x1,x2,x3,y1,y2,y3,s:real;
begin
s:=0;
write('Vvedite koordinaty: ');
readln(x1,y1,x2,y2,x3,y3);
s:=0.5*((x2-x1)*(y3-y1)-(x3-x1)*(y2-y1));{площадь треугольника}
if s=0 then write('Lejat na odnoy pryamoy')
else write('Ne lejat na odnoy pryamoy');
readkey;
end.

Объяснение кода листинга программы

  1. В начале кода подключается библиотека crt, которая предоставляет функции для работы с консолью.
  2. Переменные x1, y1, x2, y2, x3, y3 объявлены как real, что означает, что они могут хранить числовые значения с плавающей точкой.
  3. Далее происходит чтение координат точек из консоли с помощью функции readln.
  4. Значения координат сохраняются в переменных x1, y1, x2, y2, x3, y3.
  5. Затем вычисляется площадь треугольника по формуле Герона: s := 0.5 ((x2 - x1) (y3 - y1) - (x3 - x1) * (y2 - y1)).
  6. Если значение s равно нулю, то выводится сообщение Лежат на одной прямой, иначе выводится сообщение Не лежат на одной прямой.
  7. Конец программы завершается вызовом функции readkey, которая ожидает ввода пользователя.

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы