Pascal Language - Shift array of elements (Rotation)-Recursion

December 2016







Here is a recursive procedure which allows to shift all the elements of an array to the right from the position p.

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


Thanks to Zouari Lazhar for this tip.

Related :

This document entitled « Pascal Language - Shift array of elements (Rotation)-Recursion » from CCM (ccm.net) is made available under the Creative Commons license. You can copy, modify copies of this page, under the conditions stipulated by the license, as this note appears clearly.