Question

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

Answer 1

{PascalABC}

Program f0RwARdirop;

var  

 R,x,y:real;

 b:boolean;

 i:integer;

 s:string;

begin

 s:='**** -=Alphaeus=- ****';

 for i:=1 to 22 do begin write(s[i]); sleep(200) end;

 writeln; 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.