Voila je dois coder une ptite procédure toute bête en pascal qui me permettrai d'afficher une pile(une pile étant définie par un empilement de données, dont on ne peut accéder qu'à l'élément du sommet, et donc pour accéder aux données en dessous il faut dépiler les éléments qui sont au dessus...)
 
Je dois coder cette procédure de facon recursive(je travaille sur papier), de facon à ce qu'une pile (1,2,3,4 avec 4 comme sommet de pile), s'affiche de la manière suivante : 4, 3, 2, 1, -  
 
Donc ma procedure :
 
T_Pile étant le type définissant une pile.
T_Element étant le type des éléments de la pile.
 
 
procedure afficherPile(P : T_Pile);
 
var x : T_Element;
 
begin
 if P = Pile_Vide then
   write('-') else
   begin
      x := sommet(P);
      writeln(x);
      depiler(P);
      AfficherPile(P);
   end;
end;
 
Ma procedure est bien correcte?
 

Et bien oui elle est correcte j'ai eu confirmation...