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);
If p <= n Then
Decaler (t, p + 1, n);
t[p + 1] := t[p];
Thanks to Zouari Lazhar for this tip.
Published by aakai1056
Latest update on March 10, 2010 at 06:11 AM by jak58.