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;

Nosso conteúdo é produzido em colaboração com especialistas em tecnologia da informação sob o comando de Jean-François Pillou, fundador do CCM.net. CCM é um site sobre tecnologia líder em nível internacional e está disponível em 11 idiomas.
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!