Apprendre les bases de l'algorithmique

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

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;