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