constante N : entier <- ...

{ Affichage de toutes les combinaisons        }
{ de n valeurs existant un ensemble           }
{ de n valeurs                                }
{ Application a un tableau de caracteres      }

action affichage(e,t,nb)
  Données
    e : Tableau[N] de caractere
    t : Tableau[N] de caractere
    nb : entier
  Locales
    i : entier
    v : caractere
  si nb = N alors
    pour i de 0 à N-1 faire
      Ecran.afficher(t[i])
    fait
    Ecran.afficherln()
    sinon
    pour i de 0 à N-nb-1 faire
      t[nb] <- e[i]
      v <- e[i]
      e[i] <- e[N-nb-1]
      affichage(e,t,nb+1)
      e[N-nb-1] <- e[i]
      e[i] <- v
    fait
  fsi
fin action