Inverter os elementos de uma tabela - Recursão

Fevereiro 2017

Veja um procedimento recursivo para inverter os elementos de uma parte de uma tabela entre as posições P e N:

Procedimento Inverter (Var t : Tab; p, n : Integer);    
Var aux: Real;    
Begin                             
     If p < n Then    
     Begin    
          aux := t[p];    
          t[p] := t[n];    
          t[n] := aux;    
          Inverter (t, p + 1, n - 1);              
     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 17:56 por pintuda.
Este documento, intitulado 'Inverter os elementos de uma tabela - 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.