Задание в паскале с кординатами

[Valet]

Задание в паскале с кординатами

прошу помочь с заданием:

Написать программу, определяющяю, попадает ли точка с известными координатами (х,у) в заштрихованную область
Буду очень благодарен за помощь.
ниже график

 

[Vladimir_S]

прошу помочь с заданием:

Написать программу, определяющяю, попадает ли точка с известными координатами (х,у) в заштрихованную область
Буду очень благодарен за помощь.
ниже график

Ну это совсем просто:

VAR
 x,y:Real;

BEGIN
 Write('x= ');
 ReadLn(x);
 Write('y= ');
 ReadLn(y);
 If ((x<=0) and (x>=-1) and (y>=0)) or
    ((x>=0) and (x<=1) and (y<=0)) then WriteLn('Yes!') else WriteLn('No!');
 ReadLn;
END.

 

[Valet]

огромное спасибо