Question

Написать программу, которой передаются координаты точки (x,
y) и которая определяет, попадает ли точка в заштрихованную область на рисунке,
который соответствует Вашему варианту. Попадание на границу области считать
попаданием в область.(VBA)

Answer 1

program qq;
uses crt;
var x, y: real;
begin
readln (x, y);
if (x*y)<0 then   //проверка четверти, в к-й находится точка 
               if (x*x+y*y)<=1 then   // где x^2+y^2=r^2 - ур-е окружности. точка попадает в круг радиусом 1, если радиус окр-ти на которой она лежит, меньше 1                  
                                          writeln ('попадает')                   
                                       else                       
                                           writeln ('не попадает')           
              else                       
                         writeln ('не попадает');
end.