Question

Вариант 5.Точка на плоскости задана своими координатами X и Y. Построить таблицу, содержащую координаты пяти точек, для каждой из которых необходимо определить, принадлежит ли точка заштрихованной области.

Answer 1

должны выполняться следующие условия

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.