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

Написать программу на Паскале для нахождения точки с координатами 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.