Алгоритмы сортировки

← →
mishapost (2004-10-24 23:58) [0]

Народ очень надо хороший рабочий алгоритм сортировки методом вставки а также методом QuickSort.

Помогите

← →
Кириешки © (2004-10-25 00:00) [1]

>Народ очень надо хороший рабочий алгоритм сортировки методом >вставки а также методом QuickSort.

Сортировки чего?

← →
mishapost (2004-10-25 00:01) [2]

массива

← →
Кириешки © (2004-10-25 00:04) [3]

массивы бывают разными...
массив чего?

← →
mishapost (2004-10-25 00:07) [4]

чисел к тому же целых, массив не меньше 10000 эл.

← →
kaZaNoVa © (2004-10-25 00:09) [5]

лаба, да ?

← →
mishapost (2004-10-25 00:10) [6]

Да так точно.
Нужно написать прогу которая сравнивает этих два метода сортировки массива на время и в итоге построить график

← →
wnew © (2004-10-25 00:49) [7]

http://www.codersclub.net/articles/100.html

← →
kaZaNoVa © (2004-10-25 00:54) [8]

procedure TForm1.Button4Click(Sender: TObject); procedure SortDate(L, R: Integer); var i,j,p: Integer; temp: String; begin repeat I:= L; J:=R; P:=(L+R)shr 1; repeat while(memo1.Lines[I]<memo1.Lines[P])do Inc(I); while(memo1.Lines[J]>memo1.Lines[P])do Dec(J); if I<=J then begin temp:=memo1.Lines[I]; memo1.Lines[I]:=memo1.Lines[J]; memo1.Lines[J]:=temp; if P=I then P:=J else if P=J then P:=I; Inc(I); Dec(J); end; until I>J; if L<J then SortDate(L,J); L:=I; until I>=R; end; begin SortDate(0,Memo1.Lines.Count-1); end;

← →
ALEIIIKA (2004-10-25 10:23) [9]

Смотрите пример в поставке Delphi
procedure QuickSort(var A: array of Integer; iLo, iHi: Integer); var Lo, Hi, Mid: Integer; t : Integer; begin Lo := iLo; Hi := iHi; Mid := A[(Lo + Hi) div 2].i; repeat while A[Lo].i < Mid do Inc(Lo); while A[Hi].i > Mid do Dec(Hi); if Lo <= Hi then begin T := A[Lo]; A[Lo] := A[Hi]; A[Hi] := T; Inc(Lo); Dec(Hi); end; until Lo > Hi; if Hi > iLo then QuickSort(A, iLo, Hi); if Lo < iHi then QuickSort(A, Lo, iHi); end;

> хороший рабочий алгоритм сортировки методом вставки

Это парадокс.

А хорошие алгоритмы есть в книгах. Еще в модуле Classes есть такая procedure QuickSort

← →
mishapost (2004-10-25 21:09) [11]

Народ огромное спасибо. Про модуль Classes - то его использоватеь нельзя

> mishapost (25.10.04 00:10) [6]

В поставке Delphi есть пример с использованием потоков (Demos\Threads\thrddemo.dpr). Сортирует тремя способами оновременно.
Бери его за основу и меняй под свою задачу.

Алгоритмы сортировки Найти похожие ветки