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

action affichage(-> caractere [] e,
                 -> caractere [] t,
                 -> entier nb)
  entier i
  caractere c
  si nb == longueur(t) alors
    pour i de 0 à longueur(t)-1 faire
      afficher(t[i])
    fait
    afficherln()
    sinon
    pour i de 0 à longueur(t)-nb-1 faire
      t[nb] <- e[i]
      c <- e[i]
      e[i] <- e[longueur(t)-nb-1]
      affichage(e,t,nb+1)
      e[longueur(t)-nb-1] <- e[i]
      e[i] <- c
    fait
  fsi
fin action