Question

Написать программу, которая проверяет, принадлежит ли точка (x,y) закрашенной области (x,y и R вводится пользователем)
https://imgur.com/a/JTknwUb

Answer 1

PascalABC:

Program f0RwARdirop;

var R, x,y:real;

b:boolean;

begin

 writeln('*   Alphaeus is thinking...   *');

 write('Ok, введите R =');  readln(R);

 write('Теперь введите Х =');  readln(x);

 write('И, наконец, введите Y =');  readln(y);

 if x>=0 then  

     if (x*x+y*y <= R*R) then b:= true else b:=false

   else

     if (abs(x) <=R) AND (abs(y) <=R) AND (abs(x) <= abs(y)) then b:= true else b:=false;

 if b then  writeln('Точка (',x,',',y,') принадлежит закрашенной области')

      else   writeln('Точка (',x,',',y,') НЕ принадлежит закрашенной области');

end.