Fonction Optimiser(Invariant, NulAbsorbant) Inserer(B : Nul Ou Binaire, Position : Nul Ou Entier) Retourner Nul Ou Binaire;
Si le binaire est Nul, si B est Nul ou si Position est Nul, alors le résultat est Nul.
Si Position est négatif, le résultat est le binaire initial.
Si Position est supérieur à la taille du binaire, alors le binaire B est ajouté à la fin du binaire.
Principal
/*******/
Variable
/******/
B1 : Binaire;
B2 : Binaire;
B3 : Binaire;
Debut
B1={0x41, 0x42, 0x43, 0x44, 0x45, 0x46};
/* B1 contient ABCDEF. */
B2={0x63, 0x6F, 0x75, 0x63, 0x6F, 0x75};
/* B1 contient ABCDEF. */
B3=B1.Inserer(B2, 3);
/* B3 contient ABCcoucouDEF. */
Fin Principal
- | - | - | - | - | - | - | - | - |