Требуется написать программу, которая получает с клавиатуры координаты точки на плоскости (x,y – действительные числа) и определить принадлежность точки заштрихованной области, включая ее границы.
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 Точка не принадлежит заштрихованной области
Answers & Comments
Verified answer
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
Точка не принадлежит заштрихованной области