Pointeur

fonction long_liste(p:^liste):entier
variable
i:entier
debut
   tantque (p < nil)alors
            i ← i+1
            p ← p^.suiv
   fintantque
long_liste ← i
fin



procedure suppression( var p :^liste)
Vaiable
p1,p:^liste
debut
   si (p ≠ nil) alors
       si (long_liste(p)=1)
           p ← nil
           sinon
           p1 ← p
           tantque(p1^.suivant^.suivant)faire
                   p1 ← p1^.suivant
           fintantque
           p ← p1 ^.suivant
           p1 ^.suivant ← nil
           p ← nil
       finsi
   finsi
fin


procedure insertion (var p:^liste , var k:entier,x:entier)
variable
p1,p2:^liste
i:entier
debut
  ecrire ("entrer la position dont laquelle vous voudrez inserer la valeur")
  lire(k)
  si (k=0) alors
     nouveau(p,x)
     sinon
        si (k>long_liste(p)) alors
           ecrire("la position k=" ,k, " n'existe pas car la liste est de taille",long_liste(p))
           sinon
              p2 ← p
              pour i de 1 à k faire
                 p2 ← p2^.suivant;
              finpour
              p1 ← nouveau(^liste)
              p1^.valeur ← X
              p1^.suivant ← p2^.suivant
              p2^.suivant ← p1
       finsi
  finsi
fin