Задачи на определение принадлежности точки области Для каждой задачи составить программу содержащую ветвления и определяющую принадлежит ли точка с координатами x, y заштрихованной области

Question

Информатика

Галека

20 апреля, 21:46

Задачи на определение принадлежности точки области Для каждой задачи составить программу содержащую ветвления и определяющую принадлежит ли точка с координатами x, y заштрихованной области

+3

Ответы (2)

Знаете ответ?

Венуша · Answer 1

Var x, y:real;

Begin

Write ('x = ') ; ReadLn (x) ;

Write ('y = ') ; ReadLn (y) ;

if (y>=5-x) and (y=x-3) and (y<=x+3) then Write ('Принадлежит')

else Write ('Не принадлежит')

End.

Надюша · Answer 2

Var x, y:real;

Begin

Write ('x = ') ; ReadLn (x) ;

Write ('y = ') ; ReadLn (y) ;

if (y>=5-x) and (y=x-3) and (y<=x+3) then Write ('Принадлежит')

else Write ('Не принадлежит')

End.