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

Question

Информатика

Лавр

14 октября, 17:09

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

+2

Ответы (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.