
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