Discussion :

[matdu27]

Bonjour,
j'ai implanté un TDA Pile.
Maintenant je souhaite créer une procédure qui, quand je rentre une chaîne de caractères, empile les caractères qui la composent dans la pile.
Je ne vois pas comment faire, merci d'avance pour votre aide.

[droggo]

Sie,

Tu as implémenté ta pile, et tu ne sais pas t'en servir ?

C'est pour le moins curieux.

[matdu27]

Oui en effet, en fait je dois faire le tri par insertion, pour le code du tri je vois comment le faire, c'est juste pour recuperer les caracteres un par un et les empiler que je vois pas trop :S

Voici ce que j'ai fait mais sa ne marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure Lecture (var pile : Pile);
  var
    x : Element;
  begin
    if eoln then
    begin
      readln;
      pile := PileVide
    end
    else
      begin
        read(x);
        Empile(x, Lecture);
      end;
  end;