ALGORITMOS DE BÚSQUEDA Y ORDENACIÓN

INTERCAMBIO DIRECTO,
IMPLEMENTACIÓN EN PASCAL
PROCEDURE Intercambiodirecto( var v:tvector);
{Efecto. Se ordena ‘v’ ascendentemente}
VAR
i, j:tIntervalo;
aux:telem;
BEGIN
for i:=1 to N-1 do
for j:=N downto i+1
{se busca el menor desde atrás y se sitúa en vi }
if v[j-1]>v[j] then begin
aux:=v[j];
v[j]:=v[j-1]; Intercambio
v[j-1]:=aux;
end; {if}
END; {intercambiodirecto}