Pascal Language - Inverting the elements of an array- recursion

September 2017





Here is a recursive procedure that allows the elements to reverse part of a table between the position p and n:

Procedure Invert (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;   
          Inverser (t, p + 1, n - 1);             
     End;   
End;


Thanks to Zouari Lazhar for this tip

Related

Published by jak58. Latest update on March 10, 2010 at 06:12 AM by jak58.
This document, titled "Pascal Language - Inverting the elements of an array- recursion," is available under the Creative Commons license. Any copy, reuse, or modification of the content should be sufficiently credited to CCM (ccm.net).