Fonction Optimiser(Invariant) ConvertirPoids(P : Reel, PoidsDepart : PoidsSupportes, PoidsArrivee : PoidsSupportes) Retourner Reel;
Si aucune conversion n'est nécessaire, la même valeur est retournée.
Principal
/*******/
Variable
/******/
P : Reel;
Debut
...
P=ConvertirPoids(10, PoidsKilogramme, Poids);
/* P contient l'équivalent de dix kilogrammes exprimés dans l'unité choisie par l'utilisateur. */
...
Fin Principal
Traduction
- - - - - - - - -