Fonction Optimiser(Invariant, NulAbsorbant, PasDEffetDeBord) BornerRepertoire(NomRepertoire : Nul Ou Caractere) Retourner Nul Ou Caractere;
Si le dernier caractère de NomRepertoire est le séparateur de répertoire, alors le résultat est le paramètre. Sinon, le résultat est la concaténation de NomRepertoire et du séparateur de répertoire.
Si NomRepertoire est Nul, alors le résultat est Nul.
Principal
/*******/
Variable
/******/
Repertoire : Nul Ou Caractere;
Debut
...
Ecran.Ecrire(BornerRepertoire(Repertoire));
/* Ecrit le répertoire une fois borné. */
...
Fin Principal
- | - | - | - | - | - | - | - | - |