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

Janeiro 2017

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;



Tradução feita por Lucia Maurity y Nouira

Veja também

Artigo original publicado por . Tradução feita por pintuda. Última modificação: 12 de janeiro de 2012 às 18:04 por pintuda.
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.