Fonction Optimiser(Invariant, NulAbsorbant) Compter(Modele : Nul Ou Binaire, Position : Nul Ou Entier=Nul) Retourner Nul Ou Entier;
Si le binaire est Nul ou si Modele est Nul, alors le résultat est Nul.
Si Position est négatif, le comptage commence au premier octet du binaire.
Si Position est supérieur à la taille du binaire, alors le résultat est 0.
Principal
/*******/
Variable
/******/
B1 : Binaire;
B2 : Binaire;
E3 : Entier;
Debut
B1={0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x58, 0x59};
/* B1 contient ABCDEFXY. */
B2={0x58, 0x59};
/* B2 contient XY. */
E3=B1.Compter(B2);
/* E3 a pour valeur 1. */
Fin Principal
- | - | - | - | - | - | - | - | - |