Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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

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.