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.
