[serik321]

Определите, принадлежит ли точка А, заданная координатами (х; у), в части плоскости, выделенных кольцом с радиусами R1 и R2 и центром в точке О (х0; y0). Формула кольца (R1) 2 ≤ (x-x0) + (y-y0) ≤ (R2)

[angvelem]

Вы уверены, что вас поймут?

[serik321]

В смысле??

[lmikle]

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

Визначте, чи належить точка А, задана координатами (х; у), у частині площини, виокремленій кільцем з радіусами R1 і R2 та центром у точці О(х0; y0). Формула кільця: (R1)2≤(x-x0)+(y-y0)≤(R2)

Еще раз и по русски. Сайт находится в домене .ru.

PS. А что, просто по формуле посчитать религия не позволяет?
Кстати, формула окружности с центром в точке (x0,y0), если мне не изменяет память sqr(R) = sqr(x-x0) + sqr(y-y0), где sql - возведение в квадрат,

[angvelem]

В прямом - пишите на официальном языке форума.

[serik321]

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

[serik321]

извиняюсь)))понял)))сейчас исправлю))))

[serik321]

Так вы можете помочь или нет.....?

[serik321]

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

[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;

[serik321]

Спасибо большое!!!))