ПОМОГИТЕ, ПОЖАЛУЙСТА!!! "Требуется написать программу, которая получает с клавиатуры координаты точки на плоскости (x,y – действительные числа) и определить принадлежность точки заштрихованной области, включая ее границы."
Var x,y:real; begin write('x, y:'); readln(x,y); if (x*x+y*y>=4)and(abs(x)<=2)and(abs(y)<=2) then writeln('Точка принадлежит заштрихованной области') else writeln('Точка не принадлежит заштрихованной области'); end.
Пример: x, y: 1.6 -1.6 Точка принадлежит заштрихованной области
1 votes Thanks 1
MargoTomplinson
Спасибо огромнейшее! Только что значит abs?:)
Answers & Comments
Verified answer
Var x,y:real;begin
write('x, y:');
readln(x,y);
if (x*x+y*y>=4)and(abs(x)<=2)and(abs(y)<=2)
then writeln('Точка принадлежит заштрихованной области')
else writeln('Точка не принадлежит заштрихованной области');
end.
Пример:
x, y:
1.6 -1.6
Точка принадлежит заштрихованной области