сортировка двухпутевой вставкой Опции

[Гость]

Мальчики, пожалуйста, дайте код сортировки двухпутевой вставкой. Пожалуйста!!!!Оень нужно!!!!!!!!

[volvo]

Любой конвертер C->Pas на ура справляется с этой задачей:

function tinsert(var a: array of integer; n: integer): boolean;
type
  parr = ^arr;
  arr = array[0 .. pred(maxint div sizeof(integer))] of integer;
var
  X: parr;
  i, j, t, left, right: integer;

begin
  tinsert := false;
  getmem(X, (2 * n - 1) * sizeof(integer));
  if X = nil then exit;

  left := n - 1; right := n - 1;

  x^[n - 1] := a[0];
  for i := 1 to pred(n) do begin
    t := a[i];
    if t >= a[0] then begin
       j := right;
       while (j >= 0) and (t < x^[j]) do begin
         x^[j + 1] := x^[j]; dec(j);
       end;
       x^[j + 1] := t;
       inc(right);
    end
    else begin
      j := left;
      while (j <= 2 * n - 1) and (t > x^[j]) do begin
        x^[j - 1] := x^[j]; inc(j);
      end;
      x^[j - 1] := t;
      dec(left);
    end;
  end;

  for j := left to pred(left+n) do a[j - left] := x^[j];
  freemem(X, (2 * n - 1) * sizeof(integer));
  tinsert := true;
end;


var i: integer;
const
  size = 10;
  a: array[1 .. size] of integer = (
    2, 5, 7, 9, 0, 11, 15, 6, 9, 8
  );

begin
  writeln('Сортировка методом вставок:');
  {
    randomize;
    for i := 1 to size do a[i] := random(100);
  }
  writeln(' До сортировки :');
  for i := 1 to size do write(a[i]:4);
  writeln;

  writeln(' После сортировки :');
  if tinsert(a, size) then begin
    for i := 1 to size do write(a[i]:4);
    writeln;
  end
  else writeln('ошибка памяти');
end.

(P.S. Ты уверена, что это именно двухпутевые вставки?)