Пусть D - заштрихованная часть плоскости и пусть задана точка своими координатами (X,Y). Определить, при

[Igoreha010]

Пусть D - заштрихованная часть плоскости и пусть задана точка своими координатами (X,Y). Определить, принадлежит ли точка с координатами (X,Y) заштрихованной части плоскости.
В задаче даны 2 окружности, одна внутри другой. Окружность внутри в два раза меньше внешней окружности.

procedure TForm1.Button1Click(Sender: TObject);
var
x,y:real;
begin
x:=strtofloat(edit1.text);
y:=strtofloat(edit2.text);

if ((Y>(sqrt(2-X*X))) or (Y=(sqrt(2-X*X)))) and (((Y)<(sqrt(2-X*X)*2)) or ((Y)=(sqrt(2-X*X)*2)))  then
showmessage('пренадлежит') else showmessage ('не пренадлежит');
end;
end.

нужно что бы программа при введении координат х,y говорила находятся ли точка между окружнастями.
помогите найти ошибку
[IMG]Скачать файл Рисунок.jpg[/IMG]

[counter]

если R - радиус большей окружности и r - радиус меньшей окружности, то проверять можно как-то так :

r1=pow(X,2)+pow(Y,2)
 
if(r1>pow(r,2) && r1<pow(R,2))
  cout<<"принадлежит";
else
  cout<<"не принадлежит";

зы: паскаля\дельфи не знаю поэтому написал на Си, pow(X,2) - возводит X в степень 2
зы2:

if ((Y<(sqrt(2*2-X*X))) or (Y=(sqrt(2*2-X*X)))) and (((Y)>(sqrt(1*1-X*X))) or ((Y)=(sqrt(1*1-X*X))))

[Igoreha010]

спасибо за попытку помочь....
но подставив строку в паскаль... он ругается на цыкл....

не паскаль, а в делфи*

[L_M]

В задаче 2 считать if ((x0-x_center)>r1)and((x0-x_center)<r2)and((y0-y_center)>r2)and((y0-y_center)<r2) then ... если центры окружностей совпадают и r1 - радиус меньшей, r2 - радиус большей