{ Inversion d'une chaine de caracteres        }

chaine fonction inversionChaine(st)
  Données
    st : chaine
  Locales
    s : chaine
    s1 : chaine
    s2 : chaine
    l1 : entier
    lst : entier
  lst <- longueur(st)
  si ( lst = 0 ) ou ( lst = 1 ) alors
    s <- st
    sinon
    l1 <- lst/2
    s1 <- inversionChaine(sousChaine(st,0,l1))
    s2 <- inversionChaine(sousChaine(st,l1,lst)) 
    s = concatener(s2,s1)
  fsi
  retourner s
fin action