Inverser les éléments d'un tableau -Récursivité-

Voici une procédure récursive qui permet d'inverser les éléments d'une partie d'un tableau compris entre la position p et n :

Procedure Inverser (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;


Cet article est régulièrement mis à jour par des experts sous la
direction de Jean-François Pillou, fondateur de CommentCaMarche
et directeur délégué au développement numérique du groupe Figaro.

A voir également

Ce document intitulé « Inverser les éléments d'un tableau -Récursivité- » issu de Comment Ça Marche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.