Inverter os elementos de uma tabela - Recursão

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;

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 '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.

Assine nossa newsletter!

Assine nossa newsletter!