Section courante

A propos

Section administrative du site

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

Exemple

Voici quelques exemples de l'utilisation de cette fonction :

  1. Program IncludeSamples;
  2.  
  3. Var
  4.  RegistreIntel8088:Set of (AH,AL,AX,BH,BL,BP,BX,CH,CL,CS,CX,DH,DL,DS,DX,ES,SI);
  5.  Alphabet:Set Of 'A'..'Z';
  6.  Centieme:Set of 0..99;
  7.  Caractere:Set Of Char;
  8.  C:Char;
  9.  
  10. BEGIN
  11.  RegistreIntel8088:=[AL,AH,BL,BH,CL,CH,DL,DH];
  12.  Include(RegistreIntel8088,CS);
  13.  Alphabet:=['A','E','I','O','U'];
  14.  Include(Alphabet,'Y');
  15.  Write('Voyelle = ');
  16.  For C:='A' to 'Z' do If C In Alphabet Then Write(C);
  17.  WriteLn;
  18.  Caractere:=['0'..'9'];
  19.  Include(Caractere,'A');
  20.  Include(Caractere,'B');
  21.  Include(Caractere,'C');
  22.  Include(Caractere,'D');
  23.  Include(Caractere,'E');
  24.  Include(Caractere,'F');
  25.  Write('Hexadecimal = ');
  26.  For C:=#0     to #255     do If C In Caractere Then Write(C);
  27.  WriteLn;
  28. END.

on obtiendra le résultat suivant :

Voyelle = AEIOUY
Hexadecimal = 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