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

June 2017







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


Published by aakai1056. Latest update on March 10, 2010 at 06:11 AM by jak58.
This document, titled "Pascal Language - Shift array of elements (Rotation)-Recursion," is available under the Creative Commons license. Any copy, reuse, or modification of the content should be sufficiently credited to CCM (ccm.net).