Составить программу, содержащую ветвления и определяющую, принадлежит ли точка с...

Question

Составить программу, содержащую ветвления и определяющую, принадлежит ли точка с координатами (X, Y) заштрихованной области.

---

Answer 1

Var x,y: real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*y>=0)and(y<=-x+6)and(y>=-x-6)
  then writeln('Да')
  else writeln('Нет');
end.

Пример:
x = -2
y = -2
Да

Answer 2

Var x,y: real;
begin
  write('x y через пробел: '); readln(x,y);
  if ((x>=0) and (x<=6) and (y<=6-x) and (y>=0)) or
     ((-6<=x) and (x<=0) and (y<=0) and (y>= -6-x)) then
  writeln('точка принадлежит области')
  else writeln('точка не принадлежит области');
end.

x y через пробел: -3 -4
точка не принадлежит области

x y через пробел: -3 -2
точка принадлежит области

x y через пробел: 1 1.5
точка принадлежит области

x y через пробел: 3 4
точка не принадлежит области

Comments

(-5; -2) - ?