Ir ao conteúdo
  • Cadastre-se

Tim sort pascal


Posts recomendados

Ola, tenho esse cogido aqui

 

const INFTY = maxint;
var a, b, c : array [1..10000] of integer;

procedure gen (n : integer);
var i : integer;
begin
  randomize;
  for i := 1 to n do a[i] := random (3200
	);
end;

procedure vypis (n : integer);
var i : integer;
begin
  for i := 1 to n do write (a[i], ' '); writeln;
end;

procedure merge (l, m, r : integer);
var i, j, k : integer;
begin
  for i := l to m do b[i] := a[i];
  i := l; b[m+1] := INFTY;
  for j := m+1 to r do c[j] := a[j];
  j := m+1; c[r+1] := INFTY; k := l;
  while (b[i]<INFTY) or (c[j]<INFTY) do
    if b[i]<c[j] then begin a[k] := b[i]; inc (i); inc(k); end
                 else begin a[k] := c[j]; inc (j); inc(k); end;
end;

Gostaria de saber como modificar ele para que funcione como im Tim sort, ou se tiver um aquivo de Tim sort em pascar que alguem puder me passar. 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...