Как вычислить самую отдаленную точку?

[K775M14]

Делаю задание, где нужно показать некотрое кол-во точек, задаваемое пользователем. А также найти самую отдаленную точку. Построение и нахождение расстояния от точек да начала координат сделал, а вот нахождение максимально удаленный - увы, нет. Может, кто знает, как это делать? Delphi

 


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  x,y,i,n:Integer;
  r:Extended;
  Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
begin
Randomize;
n:=StrToInt(InputBox('','Введите кол-во точек,''));
for i:=1 to n do
begin
 x:=Random(form1.width);
 y:=Random(form1.height);
 form1.canvas.Pixels[x,y]:=clBlack;
 for i:=0 to n do
  r:=sqrt(x1*x1 + y1*y1);
  ShowMessage(FloatToStr(r));
 end;
end;

end.

[evg_m]

А также найти самую отдаленную точку.

от чего отдаленную ?


расстояние между ДВУМЯ точками (x1,y1) и (x2, y2)

R:=sqrt((x2-x1)*(x2-x1) + (y2-y1)*(y2-y1));

для сравнений можно использовать и квадрат расстояний.

r2:=(x2-x1)*(x2-x1) + (y2-y1)*(y2-y1);

[min@y™]

Как звучит оригинал задания?

[Serge_Bliznykov]

K775M14, самую удалённую от начала координат?
Это от левого верхнего угла формы, если судить по вашему коду?

Так очень просто. Как в любой задаче поиска максимума.
Берём за начальное значение удаление первой точки (или отрицательное число, ведь очевидно, что любое расстояние будет больше него).
далее, для каждой точки проверяем удаление, если оно больше максимального, то запоминаем его.
Ну, при этом ещё надо запомнить координаты этой самой максимальной точки и, если надо, её номер.
Вот и всё.

смотрите:

var r,maxR : real;
  xMax, yMax : integer;
begin
Randomize;
maxR := -1;
n:=StrToInt(InputBox('','Введите кол-во точек,''));
for i:=1 to n do
begin
 x:=Random(form1.width);
 y:=Random(form1.height);
 form1.canvas.Pixels[x,y]:=clBlack;
 r:=sqr(x) + sqr(y);
 if (r>maxR) then begin
   maxR := r; xMax := x; yMax:=y
 end;
end;
// самую дальнюю точку прорисуем красным
 form1.canvas.Pixels[xMax,yMax]:=clRed;
 ShowMessage('самая удаленная точка x='+IntToStr(xMax)+' y='+IntToStr(yMax));
end;

[min@y™]

Чото навроде этого, штоли?

[K775M14]

Спасибо, бро, разобрался
Правда, код немного изменил под себя Но все равно, спс

[K775M14]

На плоскости своими координатами заданы N-точек. Найдите координаты самой удаленной (от начала координат) точки. Нарисовать все эти точки на канве формы.