Inverter os elementos de uma tabela - Recursão

Novembro 2016

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 :
Este documento, intitulado « Inverter os elementos de uma tabela - 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.