Retrouvez les meilleurs cours et tutoriels pour apprendre les algorithmes Une erreur dans cette actualité ? Signalez-nous-la !
| Code : | Sélectionner tout |
1 2 3 4 5 6 7 8 9 10 11 12 13 | fonction supprimerAprès(ref L :listeSC_Car;val P :entier) :booléen;
var suivP :entier;
début
suivP = suivant(L,P);
si P == 0 ou suivP == 0 alors
retourner faux;
sinon
L.vListe[P].suivant = suivant(L,suivP);
mettreCellule(L,suivP, L.premierLibre);
retourner vrai;
finsi
fin
finfonction |
| Code : | Sélectionner tout |
1 2 3 4 5 6 7 8 9 10 11 12 13 | fonction supprimerApres( var L : listeSC_Car; P : integer) : boolean;
var suivP : integer;
begin
suivP := suivant(L,P);
if (P = 0) or (suivP = 0) then
result:= false
else
begin
L.vListe[P].suivant := suivant(L,suivP);
mettreCellule(L,suivP, L.premierLibre);
result:= true;
end;
end; |
1 |
0 |
|
1 |
1 |
).|
0 |
0 |
|
0 |
0 |
|
0 |
0 |
|
0 |
0 |
|
0 |
0 |
