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

Dernière mise à jour le 17 novembre 2009 à 14:25 par marlalapocket
Publié par ZOUARI
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;


Je vous invite à me faire part de votre critiques et suggestions à l’adresse email suivante Lazhar.zouari@laposte.net
Collection CommentÇaMarche.net