constante entier N <- ...

{ Methode de tri a bulle optimise               }
{ d'un tableau d'entiers                        }

action triBulleOptimise(t)
  Données / Résultats
    t : Tableau [N] de entier
  Locales
    i : entier
    j : entier
    aux : entier
    permutation : booleen
    ne : entier
    np : entier
    cpt : entier
  ne <- N-1
  np <- N-1
  cpt <- 0
  faire
    cpt <- cpt+1
    permutation <- faux
    pour j de 0 à np-1 faire
      si t[j] > t[j+1] alors
        aux <- t[j]
        t[j] <- t[j+1]
        t[j+1] <- aux
        permutation <- vrai
      fsi
    np <- np-1
  fait
  tantque permutation et ( cpt < ne )
fin action