Pascal - Tri par insertion - Récursivité-

Procedure Tri_Ins (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;
Ce document intitulé « Pascal - Tri par insertion - Récursivité- » issu de Comment Ça Marche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.