Задача ** определение принадлежности точки области

Question

Задача на определение принадлежности точки области

---

Comments

на чем?

---

Паскаль

Answer 1

Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (y<=0)and(y>=1.5*x-6)and(y>=-1.5*x-6)
  then writeln('Точка попадает в область')
  else writeln('Точка не попадает в облась');
end.

Пример:
x = -1
y = -2
Точка попадает в область