Question

Нужно сделать программу на паскале.Определить нахождение точки заштрихованой области.Срочно помогите пожалуйста!!!!!

Answer 1

1. Получим уравнения прямых, образующих стороны треугольника.
Уравнение прямой, проходящей через две точки с известными координатами можно записать в виде
$displaystyle frac{x-x_1}{x_2-x_1}= frac{y-y_1}{y_2-y_1}$
Для точек с координатами (-2;-1) и (-1;1) получаем
$displaystyle frac{x-(-2)}{-1-(-2)}= frac{y-(-1)}{1-(-1)}; quad frac{x+2}{1}= frac{y+1}{2}; quad y=2x+3$
Для остальных двух прямых аналогичным образом находим
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. Пишем программу

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

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.

Пример
Введите x и y -0.4 0.7
Точка находится внутри треугольника