Текущий архив: 2004.11.07;
Скачать: CL | DM;

Вниз

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

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


---

← →
TUser ©   (2004-10-25 10:45) [10]

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

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

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

---

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

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

---

← →
Defunct ©   (2004-10-26 00:10) [12]

> mishapost   (25.10.04 00:10) [6]

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

---

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

Текущий архив: 2004.11.07;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.028 c