INCLUDE |
Include |
|---|---|
| Free Pascal | System |
Syntaxe
| Procedure Include(var S: TSetType;E: TSetElement); |
Paramètres
| Nom | Description |
|---|---|
| S | Ce paramètre permet d'indiquer la variable contenant l'ensemble |
| E | Ce paramètre permet d'indiquer les éléments d'exclusion de l'ensemble |
Description
Ce mot réservé permet d'inclure un élément d'une variable d'ensemble (SET).
Remarques
- La procédure Include inclut E dans l'ensemble S s'il ne fait pas encore partie de l'ensemble. Le E doit être du même type que le type de base de l'ensemble S.
- Ainsi, les deux déclarations suivantes font la même chose :
S:=S+[E];
Include(S,E);
Exemple
Voici quelques exemples de l'utilisation de cette fonction :
- Program IncludeSamples;
-
- Var
- RegistreIntel8088:Set of (AH,AL,AX,BH,BL,BP,BX,CH,CL,CS,CX,DH,DL,DS,DX,ES,SI);
- Alphabet:Set Of 'A'..'Z';
- Centieme:Set of 0..99;
- Caractere:Set Of Char;
- C:Char;
-
- BEGIN
- RegistreIntel8088:=[AL,AH,BL,BH,CL,CH,DL,DH];
- Include(RegistreIntel8088,CS);
- Alphabet:=['A','E','I','O','U'];
- Include(Alphabet,'Y');
- Write('Voyelle = ');
- For C:='A' to 'Z' do If C In Alphabet Then Write(C);
- WriteLn;
- Caractere:=['0'..'9'];
- Include(Caractere,'A');
- Include(Caractere,'B');
- Include(Caractere,'C');
- Include(Caractere,'D');
- Include(Caractere,'E');
- Include(Caractere,'F');
- Write('Hexadecimal = ');
- For C:=#0 to #255 do If C In Caractere Then Write(C);
- WriteLn;
- END.
on obtiendra le résultat suivant :
Voyelle = AEIOUYHexadecimal = 0123456789ABCDEF
Voir également
Langage de programmation - Free Pascal - Référence de procédures et fonctions - Exclude
Dernière mise à jour : Dimanche, le 28 février 2016