Question

Помогите сделать программу в паскале. Принадлежит ли точка закрашенной области?

Answer 1

Условия нахождения точки А(х,у) в заштрихованной области или на её границах:

$left{begin{matrix} y textgreater 0 \ xleqslant 0 \ ygeqslant 0.8x+4 end{matrix}right.$
или
$left{begin{matrix} xgeqslant 1 \ yleqslant -1 end{matrix}right.$

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var x,y:real;
  Write('Введите через пробел координаты точки: ');
  Read(x,y);
  if (y>=0) and (x<=0) and (y>=0.8*x+4) or (x>=1) and (y<=-1) then
    Writeln('Точка попадает в область или на её границы')
  else
    Writeln('Точка не попадает в область или на её границы')
end.

Тестовое решение
Введите через пробел координаты точки: -4.2 2.1
Точка попадает а область или на её границы