Deslocar os elementos de uma tabela (Rotação) - Recursão

Veja um procedimento recursivo para deslocar todos os elementos de uma tabela, de uma posição à direita, para uma posição p.

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

Este documento, intitulado 'Deslocar os elementos de uma tabela (Rotação) - Recursão', está disponível sob a licença Creative Commons. Você pode copiar e/ou modificar o conteúdo desta página com base nas condições estipuladas pela licença. Não se esqueça de creditar o CCM (br.ccm.net) ao utilizar este artigo.

Assine nossa newsletter!

Assine nossa newsletter!
Junte-se à comunidade