Помогите составить программу на пскаль с самого начала с объяснениями плиз

01.01.2001

помогите составить программу на пскаль с самого начала с объяснениями плиз
определить, принадлежит ли точка с заданными координатами заштрихованной области

  • if (abs(x) < 2 ) and (y > 0) and (y <1 ) and (y <2 abs(x)) then writeln('yes') else writeln('no');
  • Нужно составить уравнения прямых, ограничивающих область на рисунке.
    Для этого берутся координаты двух точек и подставляются в уравнение прямой y = a*x + b, чтобы определить коэффициенты a, b.
    В итоге получим уравнения двух прямых:
    y <= x + 1;
    y <= -x + 1;
    третье уравнение очевидно:
    y >= 0.

    function inArea(x, y: real): boolean;
    begin
    if ( (y <= (x + 1)) and (y <= (-x + 1)) and (y >= 0) )
    then inArea := true
    else inArea := false;
    end;

Вас заинтересует