Question

Требуется написать программу, которая получает с клавиатуры координаты точки на плоскости (x,y – действительные числа) и определить принадлежность точки заштрихованной области, включая ее границы.

Answer 1

Var x,y:real;
begin
write('x, y:');
readln(x,y);
if (y<=-0.75*x*x+5)and(y>=x)and(y>=-x)
 then writeln('Точка принадлежит заштрихованной области')
 else writeln('Точка не принадлежит заштрихованной области');
end.

Пример:
x, y:
2 1
Точка не принадлежит заштрихованной области