ALGORITMOS DE BÚSQUEDA Y ORDENACIÓN

INSERCIÓN DIRECTA,
IMPLEMENTACIÓN EN PASCAL
PROCEDURE Inserciondirecta( var v:tvector);
{Efecto. Se ordena ‘v’ ascendentemente}
VAR
i, j:tIntervalo;
aux:telem;
BEGIN
for i:=2 to N do begin
aux:=v[i]
j:=i-1
while (j≥1) and (v[j]>aux) do begin
v[j+1]:=v[j]; Desplazamiento del
j:=j-1
menor valor
end; {while}
v[j+1]:=aux
Colocación del valor
end {for}
en su lugar correspondiente
END; {inserciondirecta}