Порисуем? Delphi

[MrMorozko]

Помогите нарисовать:

Даны действительные числа x,y – координаты точки, R1,R2 – соответственно радиусы большей и меньшей окружностей (см. рис.). Центр 2-й окружности – точка с координатами (0,R1). Определить: принадлежит ли точка (x,y) области, заштрихованной на рисунке.



Спасибо

[MrMorozko]

Или как то этот код переделать:

procedure TForm1.FormCreate(Sender: TObject);
var x1,y1,x2,y2 : integer;
begin
x1:=0;
y1:=0;
x2:=0;
y2:=0;
image1.Canvas.Brush.Color:=cl3DLight;
image1.Canvas.Brush.Style:=bssolid;
image1.Canvas.Pie(image1.Width div 2 -87, image1.Height div 2 -89,image1.Width div 2 +93, image1.Height div 2 +89,image1.Width div 2+45, image1.Height div 2 ,image1.Width div 2 -40, image1.Height div 2 );
image1.Canvas.Brush.Color:=clwhite;
image1.Canvas.Brush.Style:=bssolid;
image1.Canvas.Pie(image1.Width div 2 +49, image1.Height div 2 -45,image1.Width div 2 -49, image1.Height div 2 +45,image1.Width div 2 +1, image1.Height div 2,image1.Width div 2 +1, image1.Height div 2 -45);
Image1.Canvas.Pen.Color:=clblack;
Image1.Canvas.Pen.Width := 3;
Image1.Canvas.Polyline([point(0,image1.height div 2 -2),point(image1.Width,image1.height div 2 -2)]);
Image1.Canvas.Polyline([point(image1.width div 2 +4,0),point(image1.width div 2 +4,image1.height)]);
image1.Canvas.TextOut(image1.Width div 2 - 20,10,'Y');
image1.Canvas.TextOut(image1.Width-10,Image1.Height div 2 - 20,'X');
image1.Canvas.TextOut(image1.Width div 2 +90, image1.Height div 2,'6');
image1.Canvas.TextOut(image1.Width div 2 +50, image1.Height div 2,'3');
while x1 <= 360 do
begin
Image1.Canvas.Pen.Width := 1;
Image1.Canvas.Pen.Style := pssolid;
Image1.Canvas.MoveTo(x1, y1);
Image1.Canvas.LineTo(x1, y1+400);
x1 := x1 + 15;
Image1.Canvas.MoveTo(x2, y2);
Image1.Canvas.LineTo(x2+300, y2);
y2 := y2 + 15;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var r:real; x,y : integer;
begin
Image1.Canvas.Pen.Width := 4;
Image1.Canvas.Pen.Color := clred;
x := StrToInt(Edit1.Text);
y := StrToInt(Edit2.Text);
r:=sqrt(sqr(x)+sqr(y));
Image1.Canvas.MoveTo(image1.Width div 2 +4+x*15,image1.Height div 2 +y*(-15));
Image1.Canvas.LineTo(image1.Width div 2 +4+x*15,image1.Height div 2 +y*(-15));
if (y>=0) and (x>=0) and (r>=3) and (r<=6) then
label3.Caption:='принадлежит' else
if (y>=0) and (x>=-6)and (x<=0) and (r<=6) then
label3.Caption:='принадлежит' else
label3.Caption:='не принадлежит';
end; end.

[MrMorozko]

Я вот смотрю и ничего не понимаю...шарю только в работах с БД просто

[Asker13]

В начале рисуешь маленькую окружность. Установи Image1.Canvas.Brush.Style := bsDiagCross. Потом рисуешь большую. Устанавливаешь Image1.Canvas.Brush.Style := bsSolid;. Затем линии x и y для первой и для второй окружности. Потом надписи.
Image1.Canvas.Ellipse(X1, Y!, X2, Y2) рисует эллипс, окружность другими словами.

[WhiteSpirit]

Условие попадания точки в заштрихованную область

(sqr(x - x2) + sqr(y - y2) <= sqr(R2)) and (sqr(x) + sqr(y) > sqr(R1))

где x2, y2 - координаты центра маленького круга

[MrMorozko]

Сообщение от WhiteSpirit

Условие попадания точки в заштрихованную область

(sqr(x - x2) + sqr(y - y2) <= sqr(R2)) and (sqr(x) + sqr(y) > sqr(R1))

где x2, y2 - координаты центра маленького круга

Прошу пояснить ка кописать R1 и R2

[Asker13]

R1, R2 - радиусы большой и маленькой окружностей...