Fonction Optimiser(Invariant, NulAbsorbant) Pgcd(E1 : Nul Ou Entier, E2 : Nul Ou Entier) Retourner Nul Ou Entier;
Fonction Optimiser(Invariant, NulAbsorbant) Pgcd(D1 : Nul Ou Decimal, D2 : Nul Ou Decimal) Retourner Nul Ou Decimal;
Fonction Optimiser(Invariant, NulAbsorbant) Pgcd(E1 : Nul Ou Entier, E2 : Nul Ou Entier, XX : Nul Ou Entier Sortie, YY : Nul Ou Entier Sortie) Retourner Nul Ou Entier;
Fonction Optimiser(Invariant, NulAbsorbant) Pgcd(D1 : Nul Ou Decimal, D2 : Nul Ou Decimal, XX : Nul Ou Decimal Sortie, YY : Nul Ou Decimal Sortie) Retourner Nul Ou Decimal;
Pour la seconde forme du Pgcd, les paramètres XX et YY reçoivent les valeurs tels que :
Pgcd(D1,D2)=D1*XX+D2*YY
Pgcd(E1,E2)=E1*XX+E2*YY
Si les paramètres sont des décimaux, alors ils doivent être des nombres entiers.
Si les paramètres sont Nul, alors le résultat est Nul.
Principal
/*******/
Variable
/******/
P : Entier;
Debut
...
P=Pgcd(8,6);
/* Calcule le pgcd de 8 et 6 soit 2. */
...
Fin Principal
- | - | - | - | - | - | - | - | - |