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

Novembro 2016

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 :
Este documento, intitulado « Deslocar os elementos de uma tabela (Rotação) - Recursão »a partir de CCM (br.ccm.net) está disponibilizado sob a licença Creative Commons. Você pode copiar, modificar cópias desta página, nas condições estipuladas pela licença, como esta nota aparece claramente.