Задачи на определение принадлежности точки области Для каждой задачи составить программу содержащую ветвления и определяющую принадлежит ли точка с координатами x, y заштрихованной области
Answers & Comments
mrdd20
Var x,y:real; Begin Write('x = ');ReadLn(x); Write('y = ');ReadLn(y); if (y>=5-x)and(y<=11-x)and(y>=x-3)and(y<=x+3) then Write('Принадлежит') else Write('Не принадлежит') End.
2 votes Thanks 1
yaya1233
Var x,y:real; Begin Write('x = ');ReadLn(x); Write('y = ');ReadLn(y); if (y>=5-x)and(y<=11-x)and(y>=x-3)and(y<=x+3) then Write('Принадлежит') else Write('Не принадлежит') End.
Answers & Comments
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
if (y>=5-x)and(y<=11-x)and(y>=x-3)and(y<=x+3) then Write('Принадлежит')
else Write('Не принадлежит')
End.
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
if (y>=5-x)and(y<=11-x)and(y>=x-3)and(y<=x+3) then Write('Принадлежит')
else Write('Не принадлежит')
End.