Помогите решить такую задачку....

← →
DelphiNew (2004-12-16 15:07) [0]

Есть массив чисел, числа расположены не по порядку (например [2,6,1,3,7,4]). Нужно отсортировать их до такого состояния [1,2,3,4,6,7]. Как можно такое сотворить?

← →
Digitman © (2004-12-16 15:10) [1]

> Нужно отсортировать их до такого состояния [1,2,3,4,6,7]

страшное состояние.
хотя бы потому что страшно назвать их "списком, отсортированным в порядке возрастания"

> Как можно такое сотворить?

используя любой удобный/необходимый алгоритм сортировки

← →
msguns © (2004-12-16 15:14) [2]

Самый простоы способ - создать любой списковый объект, имеющий св-во Sorted, запихать туда числа массива, преобразовав их в строку типа NNNNN (вместе с незначащими нулями). Отсортировать. Затем из списка обратно в массив.

А можно по-джидайски: написать код сортировка (например, методом "пузырьков" ;) )

← →
TUser © (2004-12-16 15:19) [3]

поскольку чисел немного - бублик-сорт :)

PS. По найчному его зовут пузырьковой сортировкой

← →
DelphiNew (2004-12-16 15:21) [4]

а где можно почитать про этот метод?

← →
Александр Иванов © (2004-12-16 15:24) [5]

..\Program Files\Borland\Delphi6\Demos\Threads

http://algolist.manual.ru/
http://alglib.manual.ru/index.php

Метод примерно такой
YA:array[0..length(YA)-1] of sometype;
...
i:=1; k:=length(YA);
while i < length(YA) do begin
for j:=length(YA)-1 downto i do
if YA[j] < YA[j+1] then begin
Swap(j,j+1); k:=j;
end;
i:=k;
end;

← →
DelphiNew (2004-12-16 17:43) [7]

Всем большое спасибо - получилось

Помогите решить такую задачку.... Найти похожие ветки