O que esse algoritmo faz? [RESOLVIDO]

parrera
(usa Debian)

Enviado em 05/04/2009 - 13:07h

procedure FazAlgo(var A: Vetor; n: integer);
var i, j, x: integer;
begin
for i := 2 to n do begin
x := A[i];
j := i - 1;
A[0] := x; { sentinela para terminar o loop qdo j = 0
}
while x < A[j] do begin
A[j + 1] := A[j];
j := j - 1;
end;
A[j + 1] := x;
end;
end;

???
Alguém podia me ajudar no que esse algoritmo faz?a ordem de complexidade dele?

franciscosouza
(usa Ubuntu)

Enviado em 05/04/2009 - 23:41h

Olá colega, este código não está em C nem C++, ele está em Pascal.

O objetivo dele é ordernar um vetor de inteiros.

m4iir1c10
(usa Arch Linux)

Enviado em 06/04/2009 - 09:14h

Eu nao conheco PASCAL, porem se esse codigo tem como variaveis A,n,i,j e x; e preciso declarar o valor de uma dessas variaveis para que se possa determinar o valor das demais.

procedure FazAlgo(var A: Vetor; n: integer); //Nao tenho ideia oque seja o Vetor porem integer e numero cardinal
var i, j, x: integer;
begin // inicio da funcao
for i := 2 to n do begin //loop cada vez que o valor de n for (igual ou diferente) de 2 iniciar o loop
x := A[i]; // o valor de x e igual (?) ao valor da Matriz A[i]
j := i - 1; // o valor de j e igual (?) um valor a menos que i ou seja se i = 4 j = 3
A[0] := x; // em outras palavras A[0] e = A[i] que e igual a x e quando j = 0 o loop a seguir deve terminar
while x < A[j] do begin
A[j + 1] := A[j]; // esse loop e como "enquanto 1 + 1 = 2 diminua o valor de j
j := j - 1;
end; // fim do loop while
A[j + 1] := x; // A[j + 1] = x, A[0],A[i]
end; // fim do loop for
end; //fim da funcao

Isso foi oque eu entendi, nao quer dizer que esteja correto. Caso essa linguagem nao seja PASCAL, que linguagem e essa ??? de onde voce tirou esse codigo ? algum script do google ?