Question

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

Answer 1

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