Скачать: CL | DM;

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

← →
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

---

← →
TUser ©   (2004-12-16 16:45) [6]

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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.039 c