Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.12.06;
Скачать: CL | DM;

Вниз

Сортировка "двухпутевая вставка "   Найти похожие ветки 

 
Lloyd   (2008-11-24 00:26) [0]

Задача:
Помогите пожалуйста реализовать Сортировку "двухпутевой вставкой "

Времени много потерял,так и не могу закочнить.
Oдну часть сортирует а одну нет.. :(

var

        massiv: array [1..1000] of integer;
       massiv2: array [1..1000] of integer;

procedure TForm1.Button2Click(Sender: TObject);
var
i,k,right,left,m:integer;
res: array [1..1000] of integer;
begin
     k:=(1+n)  div 2;

massiv2[k]:= massiv[1];

left:=k; right:=k; m:=k;
      Memo2.Lines.Clear;
 for i:=2 to n do

   if massiv[i]>massiv2[m] then

     begin m:=(left+right+1) div 2;
       if right=n then
         begin
         left:=left-(m-k); right:=right-(m-k); m:=k;
         end;
right:=right+1;

 massiv2[i] := right;
  Memo2.Lines.Add("Index array[" + IntToStr(i) + "]    :    " + IntToStr(massiv2[i]));
       end
   else

begin
 m:=(right+left-1) div 2;

 if left=1 then
   begin
   left:=left+(k-m); right:=right+(k-m); m:=k;
   end;
 left:=left-1;
      massiv2[i] := left;
   // Memo2.Lines.Add("Index array[" + IntToStr(i) + "]    :    " + IntToStr(massiv2[i]));

end;


 
MBo ©   (2008-11-24 05:51) [1]

http://forum.algolist.ru/algorithm-sort-search/1192-dvuhputevaia-vstavka.html


 
Lloyd   (2008-11-24 10:53) [2]

Не работает.. примерно так же как и у меня :(


 
MBo ©   (2008-11-24 13:26) [3]

Мой код в той ветке идет после слов "oxo-xо", и у меня, как ни странно, он работает...



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

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

Наверх




Память: 0.47 MB
Время: 0.013 c
15-1254491780
Unknown user
2009-10-02 17:56
2009.12.06
Чтение/запись PSD (Photoshop) формата


15-1255165531
Дмитрий_
2009-10-10 13:05
2009.12.06
Разъесните что нужно сделать


8-1184697814
opoloXAI
2007-07-17 22:43
2009.12.06
MMSystem.pas => waveInGetNumDevs / waveInGetID


15-1254773945
KilkennyCat
2009-10-06 00:19
2009.12.06
Еаsy, с Днем Рождения!


1-1227270584
parasolka
2008-11-21 15:29
2009.12.06
Ширина ячеек в DBGrid.