1. Получим уравнения прямых, образующих стороны треугольника.
Уравнение прямой, проходящей через две точки с известными координатами можно записать в виде
Для точек с координатами (-2;-1) и (-1;1) получаем
Для остальных двух прямых аналогичным образом находим
y=(2-x)/3 и y=(x-2)/4
2. Составляем условие принадлежности точки треугольнику
Если точка находится внутри треугольника, то она должна располагаться ниже первой прямой, ниже второй и выше третьей:
y<2x+3 ∧ y<(2-x)/3 ∧ y>(x-2)/4
Если точка принадлежит хотя бы одной из сторон треугольника, условие будет таким:
y=2x+3 ∨ y=(2-x)/3 ∨ y=(x-2)/4
3. Пишем программу
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var (x,y):=ReadReal2('Введите x и y');
if (y<2*x+3) and (y<(2-x)/3) and (y>(x-2)/4) then
Writeln('Точка находится внутри треугольника')
else
if (y=2*x+3) or (y=(2-x)/3) or (y=(x-2)/4) then
Writeln('Точка находится на контуре треугольника')
else
Writeln('Точка находится вне треугольника')
end.
<u>Пример</u>Введите x и y -0.4 0.7
Точка находится внутри треугольника