Insertion sort con Pascal (ricorsione)

Ultimo aggiornamento 2 luglio 2020 alle 09:37 da Antonello Ciccarello .

Pascal è un linguaggio di programmazione nato agli inizi degli anni '70, utilizzato soprattutto dai programmatori alle prime armi che vogliono imparare le prime nozioni per la programmazione.

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

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;