Fonction Optimiser(Invariant, NulAbsorbant) Rechercher(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.
Si aucune occurrence n'est trouvée, le résultat est -1.
Principal
/*******/
Variable
/******/
B1 : Binaire;
B2 : Binaire;
E3 : Entier;
Debut
B1={0x41, 0x42, 0x43, 0x44, 0x45, 0x46};
/* B1 contient ABCDEF. */
B2={0x43, 0x44};
/* B2 contient CD. */
E3=B1.Rechercher(B2);
/* E2 a pour valeur 2. */
Fin Principal
- | - | - | - | - | - | - | - | - |