Fonction Trier(Critere : Nul Ou Fonction(O1: Nul Ou TypeElement, O2 : Nul Ou TypeElement) Retourner ComparaisonObjet, Ascendant : Booleen=Vrai) Retourner Nul Ou Liste(Nul Ou TypeElement);
Si la liste est nulle ou si Critere est Nul, alors le résultat est Nul.
Critere est une fonction à deux arguments dont les types doivent être identiques au type des éléments de la liste à trier.
Si Ascendant a pour valeur Vrai, alors la liste est triée par ordre ascendant i.e croissant. Sinon la liste est triée par ordre descendant i.e. décroissant.
Type Personne Defaut
/******************/
Nom : Caractere;
DateDeNaissance : Date;
Constructeur();
Fin Type
/****************************************************************/
Fonction FiltrerDateDeNaissance(P : Nul Ou Personne) Retourner Booleen
/* Objet : Tri par date de naissance. */
/****************************************************************/
Debut
Si P==Nul Alors
Retourner Faux;
Fin Si
Retourner P.DateDeNaissance>Date(10,10,1968);
Fin Fonction
Principal
/*******/
Variable
/******/
L : ListeDe Nul Ou Personne;
Debut
...
L.Trier(FiltrerDateDeNaissance);
/* Tri de la liste par date de naissance. */
...
Fin Principal
ComparaisonObjet pour spécifier la comparaison de deux objets selon un critère.
| - | - | - | - | - | - | - | - | - |