VPF::сортировка пузырьком - Форум программистов

kuzyonok

Дата 25.4.2006, 18:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 25.4.2006
Где: Красноярск

Репутация: нет
Всего: нет

Есть примерный алгоритм сортировки улучшенным пузырьком (шейкера). но что то он не работает. не до конца сортирует. ПОМОГИТЕ!!!!!Пожалуйста!

Код


Procedure SortArray ( var DynArray : TArrayType ) ;
  var
    i , j , Temp, left, right : integer ;
  begin
  left:=2;
  right:=high ( DynArray );
  j:=high ( DynArray );
  repeat
  for i:=right downto left-1 do
  begin
   if DynArray[i-1]>DynArray[i] then
   begin
    Temp := DynArray [ i-1 ] ;
    DynArray [ i -1] := DynArray [ i ] ;
    DynArray [ i ] := Temp;
    j:=i;
   end;
  end;
   left:=i+1; 
   for i:=left to right+1 do
   begin
   if DynArray[i-1]>DynArray[i] then
   begin
    Temp := DynArray [ i-1 ] ;
    DynArray [ i -1] := DynArray [ i ] ;
    DynArray [ i ] := Temp ;
    j:=i;
    end;
    end;
    right:=j-1;
   until left>right
  end ;

Это сообщение отредактировал(а) Girder - 26.4.2006, 09:29

Albinos_x

Дата 25.4.2006, 19:46 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

что означает: не до конца?
и как определяется TArrayType ?

Это сообщение отредактировал(а) Albinos_x - 25.4.2006, 19:56

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Albinos_x

Дата 25.4.2006, 20:49 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

если я правильно понял идею:

Код


Type
   TArrayType = array of integer;

Procedure SortArray ( var DynArray : TArrayType ) ;
  var
    i,r,l,Temp,left,right:integer ;
  begin
  left:=1;
  l:=1;
  right:=length( DynArray );
  r:=right;
repeat
   for i:=left to right-1 do
      begin
      if DynArray[right-i-1]>DynArray[right-i] then
         begin
         Temp:=DynArray[right-i-1] ;
         DynArray [right-i-1]:=DynArray [right-i] ;
         DynArray [right-i]:=Temp;
         l:=right-i-1;
         end;
      if DynArray[i-1]>DynArray[i] then
         begin
         Temp:=DynArray[i-1] ;
         DynArray[i-1]:=DynArray[i];
         DynArray[i]:=Temp;
         r:=i+1;
         end;
      end;
    r:=r-1;
    right:=r;
    l:=l+1;
    left:=l;
   until left>=right
end ;

PS: пользуйтесь тегами [code=delphi]

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »