заданы x и y, принадлежит ли точка (x,y) заштрихованной части плоскости, нужно составить программу в паскале, помогите пожалуйста, написать формулу для следующего графика, на фото...
Answers & Comments
vitas1648
Var x,y:real; begin write("Введите x:"); readln(x); write("Введите y:"); readln(y); if (((x>0) and (x<=1) and (y>0) and (y<=1)) or ((x>=-1) and (x<0) and (y>=-1) and (y<0)) or ((x=0) and (y=0))) then writeln("Входит") else writeln("Не входит"); end.
Answers & Comments
begin
write("Введите x:");
readln(x);
write("Введите y:");
readln(y);
if (((x>0) and (x<=1) and (y>0) and (y<=1)) or ((x>=-1) and (x<0) and (y>=-1) and (y<0)) or ((x=0) and (y=0))) then writeln("Входит") else writeln("Не входит");
end.