ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Eugene Gorev                         2:5054/2.65    03 Aug 2001  11:57:19
 To : All
 Subject : Обратная быстрая сортировка
 -------------------------------------------------------------------------------- 
 

 
 Киньте текст субджа в эху плиз.
 Для примера прямая:
 
 ДДД Тут начинается Unit1.pas ДДДДДД
 
 { [ SKIP ] }
 
 procedure TCludgeForm.SortHigherSG(SCol:integer);
 
 procedure QuickSort( iLo, iHi: Integer);
 var
   Lo, Hi, t1: Integer;
   tmp, Mid  :string[200];
 begin
   Lo := iLo;
   Hi := iHi;
   Mid := SG.Cells[SCol,(Lo + Hi) div 2];
   repeat
     while SG.Cells[SCol,Lo] < Mid do Inc(Lo);
     while SG.Cells[SCol,Hi] > Mid do Dec(Hi);
     if Lo <= Hi then
     begin
       for t1:=0 to SG.ColCount-1 do
       begin
         tmp:=SG.Cells[t1,Lo];
         SG.Cells[t1,Lo]:=SG.Cells[t1,Hi];
         SG.Cells[t1,Hi]:=tmp;
       end;
 
       tmp:=Dump[EL[Lo]];
       Dump[EL[Lo]]:=Dump[EL[Hi]];
       Dump[EL[Hi]]:=tmp;
 
       Inc(Lo);
       Dec(Hi);
     end;
   until Lo > Hi;
   if Hi > iLo then QuickSort( iLo, Hi );
   if Lo < iHi then QuickSort( Lo, iHi );
 end;
 
 begin
   Log('QuickSort ' + IntToStr(SCol) + ' column begin');
   QuickSort( 1, SG.RowCount-1 );
   Log('QuickSort ended');
   StatusBar.Panels[3].Text:='Пю тючЁрётрэшю';
 end;
 
 { [ SKIP ] }
 
 ДДД А здесь Unit1.pas кончается ДДД
 
  WBR, Eugene Gorev.
   np: nothing
 
 --- GoldED+/W32 1.1.4.7
  * Origin: Hack & Slash,Iron & Blood,Run & Click,Sneak & Steal (2:5054/2.65)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор