Pascal-taal - Verschuivingsreeks elementen (rotatie) -Recursie

Hier is een recursieve procedure die het mogelijk maakt om alle elementen van een array vanaf de positie p naar rechts te verplaatsen.

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

Dank aan Zouari Lazhar voor deze tip.