Вопрос пользователя:
Вариант 5.
Точка на плоскости задана своими координатами X и Y. Построить таблицу, содержащую координаты пяти точек, для каждой из которых необходимо определить, принадлежит ли точка заштрихованной области.
Илюха отвечает:
должны выполняться следующие условия
y>-x+1
y>x-1
(x-1)^2+y^2<1
var
x,y:real;
begin
for i:=1 to 5 do
begin
x:=random*4-2;
y:=random*4-2;
if (y>-x+1) and (y>x-1) and (((x-1)*(x-1)+y*y)<1) then
writeln(‘x=’,x:8:2,’ y=’,y:8:2,’ принадлежит’)
else
writeln(‘x=’,x:8:2,’ y=’,y:8:2,’ не принадлежит’)
end;
end.