Помогите с сортировкой Опции

[RussoTuristo]

Задача состоит в нахождении минимального остова графа ... Задаю матрицу смежности ( элементу матрицы a[i,j]:=w, где w - вес ребра)
Мне нужно отсортировать рёбра по весу, задача вроде лёгкая, но либо я туплю, либо всё не так просто ...

For i:=1 to n do
   For j:=1 to n do
   if Pred a[i,j]< a[i,j] then .....

Хотел использовать пузырьковую сортировку ...
Проблема состоит в том что я не знаю как записать предыдущий элемент...
Или может как-то по-другому надо поступать?

Сообщение отредактировано: RussoTuristo - 18.12.2008 17:29

[amega]

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

[RussoTuristo]

k:=0;
for i:=1 to n do
   for j:=1 to n do
   inc(k);
   a[i,j]:=b[k];
   p:=k;

Переписали в массив

for i:=1 to n do
   for k:=p downto i+1
   if b[k-1]>b[k] then
   begin
       T:=b[k-1];
       b[k-1]:=b[k];
       b[k]:=T;
   end

Отсортировали массив ...
Но мне нужно работать именно с элементами a[i,j] потому что нужно окрашивать вершины (m[i]:=1 - вершина вошла в остов ....)
Как обратно переделать чтоб отсортированный массив b[k] стал a[i,j]?

Сообщение отредактировано: RussoTuristo - 19.12.2008 14:45