Método Shell de Ordenação
algoritmo()
{
inteiro i, j, inter, n, k;
vetor inteiro v[10];
inteiro temp;
n := 10;
para ( i := 1 ate 10 passo 1 )
{
leia ( "informe valor: ", v[i] );
}
para (inter:=n/2; inter > 0; inter := inter / 2 )
{
para (i:=inter; i < n; i := i + 1 )
{
para (j:=i-inter+1; j > 0; j := j - inter )
{
k := j + inter;
se ( v[j] > v[k] )
{
temp := v[j];
v[j] := v[k];
v[k] := temp;
}
}
}
}
para ( i := 1 ate 10 passo 1 )
{
escreva (v[i]);
}
}