Question

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

Answer 1

Var
  x, y: real;
  b: boolean;

begin
  Write('Введите через пробел координаты X,Y: ');
  Readln(x, y);
  { рис 21 }
  if y < 0 then b := false
  else
  if x <= 0 then b := (sqr(x) + sqr(y) <= sqr(3))
  else b := (y <= 3 - x / 2);
  Writeln(b);
  { рис 23 }
  if (y<0) or (sqr(x)+sqr(y)>sqr(6)) then b:=false
  else
  if x<=0 then b:=true
  else b:=(sqr(x)+sqr(y)>=sqr(3));
  Writeln(b)
end.

Тестовое решение:

Введите через пробел координаты X,Y: 3.4 2
False
True