Составить программу, содержащую ветвления и определяющую, принадлежит ли точка с...

Question

Составить программу, содержащую ветвления и определяющую, принадлежит ли точка с координатами (X,Y) заштрихованной области. Помогите, пожалуйста.

---

Answer 1

Var x, y: real;
begin
writeln('Введите координаты точки x, y');
read(x, y);
if abs(x - 4) + abs(y - 4) <= 3 then writeln('Принадлежит')<br>else writeln('Не принадлежит')
end.

Comments

А почему (х-4) и (y-4)

---

Центр квадрата имеет координаты (4, 4). Если присмотреться, то можно заметить, что закрашены только те точки, сумма смещений по x и по y которых не больше 3. В программе abs(x - 4) - смещение по x, а abs(y - 4) - смещение по y.

---

То есть если идти от точки по бокам клеток, то путь будет меньше 3

---

не больше*

---

спасибо)