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

Question

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

---

Answer 1

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

Comments

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<br> ((y>=-5) and (y<=0) and (-x-y<=5)))) or<br> ((x>=0) and (x<=5) and (y>=0) and (y<=5) and (sqrt(x*x+y*y)<=5))) then<br> writeln('Ответ: Принадлежит')
else
writeln('Ответ: Не принадлежит');
readkey();
end.

Answer 2

Var x,y:real;
    
    begin
    write('Введите координаты точки : ');
    readln(x,y);
        if ((x>=-5)and (y>=-5) and(x<=0)and(y<=5))or ((x>=0) and (x<=5) and (sqrt(sqr(x)+sqr(y))<=5) and (y<=5) and (y>=0))  then writeln('Принадлежит')
       else writeln('Не принадлежит');
    end.

Тест №1
Введите координаты точки : 1 2
Принадлежит

Тест №2
Введите координаты точки : -3 -3
Принадлежит

Тест №3
Введите координаты точки : 3 -3
Не принадлежит