Помощь - Поиск - Пользователи - Календарь
Полная версия: сорт матрицы что за метод???
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Shadow
:D вот на асме набрал программу
значит берется первая переменная сравнив со второй если первая больше то меняются местами
---
каждый рас после перезаписи массив начин сорт с начала
--
что за емтод кто знает???
___ALex___
самая медленная сортировка - метод пузырька

вот ещё тебе два варианта её
Код

//сортировка методом пузырька на ассемблере
procedure BubbleSort(Mas: Pointer; Len: LongWord);
asm

  dec   Len
@CycleExt:
  xor   ebx,ebx
  mov   ecx,Len
  mov   esi,0
@CycleIn:
  mov   edi,Mas[esi]
  cmp   edi,Mas[esi+4]
  jg    @Exchange
  add   esi,4
  loop  @CycleIn
  jmp   @Check
@Exchange:
  mov   ebx,Mas[esi+4]
  mov   Mas[esi+4],edi
  mov   Mas[esi],ebx
  add   esi,4
  loop  @CycleIn
@Check:
  cmp   ebx,0
  je    @Exit
  jmp   @CycleExt
@Exit:

end;

//сортировка методом пузырька на паскале
procedure BubSort(var Mas: Array of Integer);
var
i: LongWord;
Tmp: Integer;
Fix: Boolean;
begin

 repeat
  Fix := False;
  for i := 0 to Length(Mas) - 1 do
  if Mas[i] > Mas[i + 1] then
   begin
    Tmp := Mas[i];
    Mas[i] := Mas[i + 1];
    Mas[i + 1] := Tmp;
    Fix := True;
   end;
 until not Fix;

end;
Shadow
:D ПАСИБО
GLuk
Юзал бы модификацию QuickSort, доки я тебе вроде выслал
Shadow
:-[ :-/ да вот дрова то не дошли пошли на два адреса
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.