Question

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

Answer 1

Код в комментарии ниже:

Answer 2

program check_point;
uses crt;
var
x, y: real;
begin
writeln('Введите кординаты');
write('X: ');
readln(x);
write('Y: ');
readln(y);
if (((x>=-5) and (x<=0) and (((y>=0) and (y<=5) and (y-x<=5)) or
((y>=-5) and (y<=0) and (-x-y<=5)))) or
((x>=0) and (x<=5) and (y>=0) and (y<=5) and (sqrt(x*x+y*y)<=5))) then
writeln('Ответ: Принадлежит')
else
writeln('Ответ: Не принадлежит');
readkey();
end.