Discussion :

[blaiseac]

Bonjour,

Je me sens bête, je n'arrive plus a retrouver comment programmer l'ajout d'un élément dans une liste FIFO. En effet, seule la logique de la LIFO me revient
Voici le code que j'ai fait pour créer ma liste (pas la bonne malheureusement...).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
            new(pnouv);
            pnouv^.Produit:=produit;
            pnouv^.psuiv:=NIL;
            if pdebprod=NIL  then
                pdebprod:=pnouv
            else
                begin
                        pnouv^.psuiv:=pdebprod;
                        pdebprod:=pnouv;
                        dispose(pnouv);
                end;

Merci de votre aide

[blaiseac]

En fait, c'est bon, je retire ma question...
En fait après une pause j'ai pu mieux réflechier et voila le resultat(pour ceux qui se posaient la question, on ne sait jamais...)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
            new(pnouv);
            pnouv^.Produit:=produit;
            pnouv^.psuiv:=NIL;
            if pdebprod=NIL  then
                begin
                        pdebprod:=pnouv;
                        pfinprod:=pnouv;
                end
            else
                begin
                        pfinprod^.psuiv:=pnouv;
                        pfinprod:=pnouv;
                        dispose(pnouv);
                end;