KioskeaKioskeaCommentCaMarcheInscrivez-vous, c'est gratuit !
Samedi 17 mai 2008 - 08:18:50

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

Thèmes de "Pascal"
Inverser les éléments d'un tableau -Récursivité- ZOUARI vendredi 11 janvier 2008 à 11:21:22 ZOUARI
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;


Je vous invite à me faire part de votre critiques et suggestions à l’adresse email suivante Lazhar.zouari@laposte.net

 

Autres Astuces dans la catégorie Pascal