Ejemplo de Algorimo de Ordenamiento Por Inserción por PseInt

Proceso OrdenamientoPorInsercion
Definir elementos como entero;
Definir continuar como logico;
Definir item como entero;
Definir n como entero;
Definir lista como entero;
Definir posicion como entero;
Definir i como entero;
Definir j como entero;

Dimension elementos [1001];

Para i<-0 Hasta 1000 Con Paso 1 Hacer
elementos[i] <- -1;
FinPara
n <- 0;

continuar <- verdadero;

Mientras continuar Hacer
Si n < 1001 Entonces
Escribir "Ingrese elemento ",(n+1)," :";
Leer item;
Si item < 1 Entonces
item <- item*-1;
FinSi
elementos[n] <- item;
n <- n + 1;
Escribir "¿Continuar?: [1] Si [2]No";
Leer item;
Si item = 2 Entonces
continuar <- falso;
FinSi
FinSi
FinMientras

Dimension lista[n];



Para i<-1 Hasta n - 1 Con Paso 1 Hacer




item <- elementos[i];
posicion <- i;

Mientras posicion > 0 & elementos[i - 1] > item Hacer
elementos[posicion] <- elementos[posicion-1];
posicion <- posicion -1;
FinMientras
elementos[posicion] <- item;

FinPara


Para j<-0 Hasta n - 1 Con Paso 1 Hacer
Escribir "Elemento ordenado en ",j," :",elementos[j];
FinPara


FinProceso


Basado en el algoritmo de Ordenamiento por Inserción presentado en : Wikipedia.com