Геометрия в паскале

[shrek=)]

Геометрия в паскале

Определить принадлежит ли точка заштрихованной области (Голова пухнит) можно просто алгоритм!

 

[Vladimir_S]

Определить принадлежит ли точка заштрихованной области (Голова пухнит) можно просто алгоритм!

"Элементарно, Ватсон!":

Const
 R=5.0;
VAR
 X,Y:Real;
 B:boolean;
BEGIN
 Write('X= ');
 Readln(X);
 Write('Y= ');
 Readln(Y);
 B:=((X>=0) and (Y>=0) and (X<=R) and (Y<=R)) or
    ((X<0) and (Y<0) and (X>=-R) and (Y>=-R)) or
    ((X>0) and (Y<0) and (X<=R) and (Y>=-R) and (Sqrt(sqr(X-R)+sqr(y+R))>=R)) or
    ((X<0) and (Y>0) and (X>=-R) and (Y<=R) and (Sqrt(sqr(X+R)+sqr(y-R))>=R));
 Writeln(B);
 Readln;
END.