Question

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

Answer 1

Область может быть описана как совокупность двух отдельных областей.
$A(x,y) \in \begin {cases} x \geq -5 \\ x \leq 0 \\ |y| \leq x+5\end {cases} \\ A(x,y) \in \begin {cases} x \geq 0 \\ y \geq 0 \\ x^2+y^2 \leq 25 \end {cases}$

var
  x, y: real;
  p, q: boolean;

begin
  Write('Введите через пробел координаты x,y: ');
  Readln(x, y);
  p := (x >= 0) and (y >= 0) and (sqr(x) + sqr(y) <= 25);
  q := (x >= -5) and (x<=0) and (abs(y) <= x + 5);
  Writeln(p or q)
end.

Примеры выполнения программы:

Введите через пробел координаты x,y: -2 1
True

Введите через пробел координаты x,y: -4 2
False

Введите через пробел координаты x,y: 3 3
True

Введите через пробел координаты x,y: 6 3
False

Answer 2

Var x,y,c,d:integer;
begin
readln(x,y);
if (((x*x+y*y)<=25) and (x>=0) and (x<=5) and (y>=0) and (y<=5))
or ((-x-5<=y) and (x>=-5) and (x<=0) and (y<=0) and (y>=-5))
or ((x+5>=y) and (x>=-5) and (x<=0) and (y>=0) and (y<=5))
then
writeln('true');
end.