Décaler les éléments d'un tableau (Rotation) -Récursivité-

Voici une procédure récursive qui permet de décaler tous les éléments d'un tableau d'une position à droite à partir de la position p

Procedure Decaler (Var t : Tab; p, n : integer);  
Begin  
     If p <= n Then  
     Begin  
          Decaler (t, p + 1, n);  
          t[p + 1] := t[p];  
     End;  
End;

Ce document intitulé « Décaler les éléments d'un tableau (Rotation) -Récursivité- » issu de CommentCaMarche (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.