[lmikle]

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

спасибо конечно)))но я не разобрался что к чему в этом Делфи((((

Тебе на форму надо "бросить" несколько компонентов TEdit и минимум 1 кнопку. Едитов нужно 6 - два радиуса, координаты центров окружности и координаты точки. Потом на кнопке тебе надо получить значения из этих едитов и проверить по формуле, попадает ли точка в получившееся кольцо, типа:

Код:

uses Math; // для min и max

procedure TForm1.Button1Click(Sender :TObject);
var
  X, Y, X0, Y0, R1, R2 : Integer;
begin
  // Здесь получаем значения из TEditN в соотв переменные
  ...

  // Теперь делаем проверку
  If (sqr(min(R1,R2)) < sqr(X-X0) + sqr(Y - Y0)) And
     (sqr(max(R1,R2)) > sqr(X-X0) + sqr(Y - Y0)) 
    Then ShowMessage('Попадает')
    Else ShowMessage('Не попадает')
end;