Question

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

Answer 1

У меня получилось вот так...
Пожалуйста, протестируй программу обязательно!

uses Crt;
  var X,Y: real;
      bol: boolean;
begin
 ClrScr;
 Write(' X = ');  ReadLn(X);
 Write(' Y = ');  ReadLn(Y);
 bol:=(Y>=0) and (Y<=sqrt(9-x*x)) and (Y<=3-X/2);
 if bol=true then Writeln (' Yes!!!')
             else WriteLn (' No...');
 ReadLn;
end.