Pascal - Insertion sort - Ricorsione

Dicembre 2016

Ecco una procedura che consente di ordinare un array di n interi utilizzando il metodo di insertion sort :

Procedure Ins_Sort (Var t: TAB; n: integer);  
Var aux,i : integer;
begin
If n > 1 Then
begin
Tri_Ins (t,n - 1);
If t[n] < t[n - 1] Then
Begin
aux:= t[n];
i := n;
Repeat
t[i] := t[i - 1];
i := i - 1;
Until (i = 1) Or (aux > t[i - 1]);
t[i] := aux;
End;

Potrebbe anche interessarti :
Il documento intitolato « Pascal - Insertion sort - Ricorsione » da CCM (it.ccm.net) è reso disponibile sotto i termini della licenza Creative Commons. È possibile copiare, modificare delle copie di questa pagina, nelle condizioni previste dalla licenza, finché questa nota appaia chiaramente.