Задача с сортировкой (Delphi). Дано n точек на плоскости. Указать (n-1)-звенную несамопересекающуюся незамкнутую ломаную

[BDA]

В найденном вами примере сравнивались элементы с индексами j и j+1, а в вашем коде - i и j.
И кусок кода в button4click для красоты:

BubbleSort(a,low(a),high(a));
for i:=low(a) to high(a) do

[Леон2110]

Большое спасибо, все заработало как надо) не подскажите еще как сделать, чтобы в мой объявленный массив в глобальных переменных, заполнялся рандомно от 1 до 99?:

a: array[0..6] of TPoint = ((x:10; y:20),(x:40; y:50),(x:40; y:40),(x:40; y:30),(x:50; y:60),(x:60; y:70),(x:10; y:10));

Если бы это было по нажатии кнопки можно было прописать randomize; и заполнить, но тут по две цифры и еще буквы х, у, и он объявлен в глобальных переменных.

[Mad_Cat]

чтобы в мой объявленный массив в глобальных переменных, заполнялся рандомно

randomize;
for i:=0 to 6 do
begin
a[i].x:=random(99)+1;
a[i].y:=random(99)+1;
end;

[Леон2110]

Спасибо еще раз, отличный рандом, теперь еще одна проблемка. Хотел в конце вывести все точки таким способом:

Form1.Canvas.Polygon(a);

Но как выяснилось это способ для построения многоугольника, работает как надо, но в конце он еще соединяет первую и последнюю точку, мне этого не нужно. Знаете способ как можно вывести мои точки с координатами и соединенные линиями?

[BDA]

Canvas.Polyline

[Леон2110]

про Canvas.Polyline, сейчас почитаю, а вот пока пробую вот что:

компонент PaintBox и вот какой код:

Form1.PB1.Canvas.MoveTo(A[0].x,A[0].y);
Form1.PB1.Canvas.LineTo(A[1].x,A[1].y);
Form1.PB1.Canvas.MoveTo(A[1].x,A[1].y);
Form1.PB1.Canvas.LineTo(A[2].x,A[2].y);
Form1.PB1.Canvas.MoveTo(A[2].x,A[2].y);
Form1.PB1.Canvas.LineTo(A[3].x,A[3].y);
Form1.PB1.Canvas.MoveTo(A[3].x,A[3].y);
Form1.PB1.Canvas.LineTo(A[4].x,A[4].y);
...

смысл от первой точки чертит до второй, от второй до третьей и т.д., вроде нормально все, но было бы лучше если бы сами точки немного выделялись, а то когда точки лежат на одной координате, проходит сплошная линия и не видно, что там точка.

Вот немного нашел, после линий прописать:

Form1.PB1.canvas.Pixels[A[0].x,A[0].y]:=clRed;
Form1.PB1.canvas.Pixels[A[1].x,A[1].y]:=clRed;
Form1.PB1.canvas.Pixels[A[2].x,A[2].y]:=clRed;
Form1.PB1.canvas.Pixels[A[3].x,A[3].y]:=clRed;
...

Делает все точки красным цветом, но все же слабо видно, было бы удобнее если бы они были размером не 1х1 пиксель а чуть больше

и еще возникает мысль сделать это в цикле все...

[BDA]

With Form1.Canvas do
begin
  Polyline(a);
  Pen.Color := clRed;
  for i := low(a) to high(a) do
    Ellipse(a[i].x - 2, a[i].y - 2, a[i].x + 2, a[i].y + 2);
end;

[Леон2110]

Спасибо) намного короче и функциональнее.

[BHMJ(G)]

Вариант со спиралью. Время работы зависит от количества точек как n**2, так что больше 5-6 тыс. точек задавать не рекомендую. В качестве начальной выбирается точка, расположенная ближе всего к одному из углов.

[rrrFer]

Время работы зависит от количества точек как n**2

n**2 это (n * 2) или (n * n) ?
Квадрата там быть не должно, n * 2 получить нереально.
Решаться должно за n * log(n)