{ Fonction de calcul et retour de l'inverse   }
{ d'une chaine de caracteres                  }
{ st : la chaine de carateres à inverser      }

chaine fonction inversionChaine(-> chaine st)
  chaine s
  chaine s1
  chaine s2
  entier l1
  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 <- s2+s1
  fsi
  retourner s
fin fonction