A continuación un procedimiento recursivo que permite desplazar una posición a la derecha todos los elementos de una matriz a partir de la posición p.
Procedure Desplazar (Var t : Tab; p, n : integer);
Begin
If p <= n Then
Begin
Desplazar (t, p + 1, n);
t[p + 1] := t[p];
End;
End;
Véase también
Comunidad de asistencia y consejos.
El artículo original fue escrito por
ZOUARI. Traducido por
Carlos-vialfa.
