Videolivro 1 - ordenação com vetores

2. Ordenação por inserção

O método que veremos agora é a ordenação por inserção, ou Insertion Sort, termo em inglês para este tipo de ordenação.
Vejamos o vídeo do português Joaquim Romualdo, utilizando um baralho para fazer a inserção:

O programa em Pascal para ordenar o vetor deste baralho é:

Programa Insertion Sort em Pascal:
Program InsertionSort;
var
vet : array[0..7] of integer;
cont, proximo, aux: integer;
Begin

vet[0]:= 6; vet[1]:=7; vet[2]:=1; vet[3]:=11;
vet[4]:=13; vet[5]:=10; vet[6]:=4; vet[7]:=2;
for cont:=0 to 6 do
for proximo:=(cont+1) to 7 do
begin
if (vet[proximo] < vet[cont])
then
begin
aux := vet[cont];
vet[cont] := vet[proximo];
vet[proximo] := aux;
end;
end; //final do for
// imprimir o vetor ordenado
for cont:=0 to 7 do
write (vet[cont], ' ');

End.
Vejamos a construção em Java para este método: