Ближайшая точка к курсору

[Claster]

Все привет......известен центр и радиус, как узнать ближайшую точку к курсору в это радиусе?

[D@rkD@iver]

по теореме пифагора!
с^2= (x1-x2)^2+(y1-y2)^2;
находишь минимальный c^2 это и будет искомая точка

[Step_UA]

Как то так ...

var
 x0,y0,r,x1,y1,x,y,alfa:real;
begin
 write('Центр окружности: ');
 readln(x0,y0);
 write('Радиус окружности: ');
 readln(r);
 write('Координаты точки: ');
 readln(x1,y1);
 if x1<>x0
  then alfa:=arctan((y1-y0)/(x1-x0))
  else if y1<y0
           then alfa:=-pi/2
           else alfa:=pi/2;
 x:=cos(alfa)*r;
 y:=sin(alfa)*r;
 if x1<x0 then begin x:=-x; y:=-y end;
 x:=x+x0; y:=y+y0;
 writeln('x=',x:5:2,'  y=',y:5:2);
 readln
end.

[Claster]

Перенес все на компоненты.............вопрос а как узнать ближайшую точку в области радиуса?

procedure TForm1.Button1Click(Sender: TObject);
begin
  rad := Round (sqrt(sqr(x1 - x0) + sqr (y1 - y0)));
  label3.Caption := 'Радиус = ' + inttostr(rad);
  if x1<>x0
  then alfa:=Round(arctan((y1-y0)/(x1-x0)))
  else if y1<y0
           then alfa:=Round(-pi/2)
           else alfa:=Round(pi/2);
 x2:=Round(cos(alfa)*rad+x0);
 y2:=Round(sin(alfa)*rad+y0);
 if x1<x0 then begin x2:=-x2; y2:=-y2 end;
 Label4.Caption := 'Ближайшая точка X = '+inttostr(x2) + ' Y = ' + inttostr(y2);
 Form1.Canvas.Pixels[x2,y2]:=clBlack;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then begin
    x0 := x;
    y0 := y;
    label1.Caption := 'Центр: X = '+inttostr(x0)+' Y = ' +inttostr(y0);
    Form1.Canvas.Pixels[x0,y0]:=clBlack;
  end;

  if Button = mbRight then begin
    x1 := x;
    y1 := y;
    label2.Caption := 'Точка 2: X = '+inttostr(x1)+' Y = ' +inttostr(y1);
    Form1.Canvas.Pixels[x1,y1]:=clBlack;
  end;
end;

[Step_UA]

если вы под выражением "в области радиуса" подразумеваете точку на окружности, то изначально все так и было ... x0,y0 - центр круга; x1,y1 - любая точка; r - радиус; x,y-ближайшая точка на окружности
ЗЫ немного подправил код

[NetSpace]

Вам надо в цикле перебрать все известные точки, сравнивая расстояние от них до центра. А самое минимальное значение нужно запомнить. вот и всё.

[Claster]

for i := 0 to x2 do
  for j := 0 to y2 do
    begin

    //Условие отбора

      end;

    end;

В таком цикле??

[NetSpace]

допустим, r - радиус вашей окружности. одна из точек - это конец курсора с точками xc:=Mouse.CursorPos.X и yc:=Mouse.CursorPos.Y. а остальные точки вокруг курсора могут быть у вас в массиве pixX[i] и pixY[i], где i=1..100, скажем так.
вам нужно перебрать все значения по индексу i:

Rmin:=10000;//начальное значение минимального расстояния
for i:=1 to N do
begin
   R:=sqrt((xc-pixX)*(xc-pixX)+(yc-pixY)*(yc-pixY));//теорема Пифагора
   if(R<Rmin)and(R<=r)then
   begin 
      Rmin:=R;//новое минимальное значение расстояния до курсора от точки
      Imin:=i;//запоминаем номер ближайшёй точки;
   end;
end;

если R будет числом целым, то придётся результат округлить R:=Round(а тут ваш корень)

[Claster]

ок спасибо.......может подскажите еще почему курсор мерцает и как я понимаю получает сразу 2 координаты

var
  Form1: TForm1;
//cX,cY - координаты центра
//pX,pY - предыдущие координаты
cX,cY,pX,pY,cX2,cY2,Ugol,rLen,c:Integer;
Pos:TPoint;
bPoint, bLine : boolean;
Angle : Integer; //Угол, под каторым пересекаются прямые

implementation

{$R *.dfm}

function PosFromAngle(cX, cY : Integer; rLen : cardinal; Angle: Extended): TPoint;
begin
//Координаты точки лежащей на окружности, радиусом rLen
//с центром cX,cY и углом Angle
  Result.X:= cX+Round(rLen*Cos(Angle*pi/180));//DegToRad(Angle)
  Result.Y:= cY+Round(rLen*Sin(Angle*pi/180));//DegToRad(Angle)
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if Button = mbLeft then
  begin
   Cx := X;
   Cy := Y;
   bPoint := false;
   Label1.Caption := 'Точка 1 : X = '+inttostr(cx)+' Y = '+inttostr(cy);
   Form1.Canvas.Pixels[Cx,cY]:=ClBlack;
  end;
    if button = mbRight then
      begin
        Cx2 := X;
        Cy2 := Y;
        Label2.Caption := 'Точка 2 : X = '+inttostr(cx2)+' Y = '+inttostr(cy2);
        bPoint := true;
        Form1.Canvas.Pixels[cX2,cY2]:=ClBlack;
        Ugol := Round(180*arctan2(cY2 - cY, cX2 - cX)/pi);
        Label3.Caption := 'Угол = ' + inttostr(ugol);
      end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  begin
    GetCursorPos(pos);
    Edit1.Text := 'X = '+inttostr(X);
    Edit2.Text := 'Y = '+inttostr(Y);
      if bPoint then
        begin
         while Ugol > 90 do
         Ugol := Ugol - 90;
         //cX,cY - координаты центра
        //pX,pY - предыдущие координаты
          If (X = pX) and (Y = pY) then exit; //Если перемещения не было - выходим.
          If (X > cX) and (Y > cY) then Angle := Ugol;
          If (X > cX) and (Y < cY) then Angle := Ugol + 90;
          If (X < cX) and (Y < cY) then Angle := Ugol + 180;
          If (X < cX) and (Y > cY) then Angle := Ugol + 270;

          rLen := Round (sqrt(sqr(cx - x) + sqr (cY - y)));
          Label5.Caption := 'rLen = ' + inttostr(rLen);

          Pos := PosFromAngle(cX, cY, rLen , Angle);

          px := pos.X;
          py := pos.Y;

          if (px <> cx2) and (py <> cy2) then
           begin
            Label6.Caption := 'Мышь двигается';
           end;
          //ClientOrigin положение начала клиентской области относитель*но экрана
          SetCursorPos(ClientOrigin.X + pos.X , ClientOrigin.Y + pos.Y);
          label4.Caption := 'Angle = ' + inttostr(angle);
          Form1.Canvas.Pixels[pos.X,pos.Y] := clBlack;
          abort;
          end;
      end;

procedure TForm1.FormResize(Sender: TObject);
begin
 bPoint := false;
end;

end.

[NetSpace]

Хм, мерцает, если щёлкнуть правой клавишей мышки, а левая всё мерцание вылечивает. причём рисуются координатные оси...