Section courante

A propos

Section administrative du site

SET

Ensemble
Virtual Pascal  

Syntaxe

Type identype=Set of typbase;
Var identvar:Set of typbase;

Paramètres

Nom Description
identype Ce paramètre permet d'indiquer un nom de type de données
identvar Ce paramètre permet d'indiquer un nom de variable
typbase Ce paramètre permet d'indiquer un type de base

Description

Ce mot réservé permet de définir des ensembles.

Remarque

Exemple

Voici quelques exemples de l'utilisation de ce mot réservé :

  1. Program SetSamples;
  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.  Alphabet:=['A','E','I','O','U','Y'];
  13.  Write('Voyelle = ');
  14.  For C:='A' to 'Z' do If C In Alphabet Then Write(C);
  15.  WriteLn;
  16.  Caractere:=['0'..'9','A'..'F'];
  17.  Write('Hexadecimal = ');
  18.  For C:=#0    to #255    do If C In Caractere Then Write(C);
  19.  WriteLn;
  20. END.

on obtiendra le résultat suivant :

Voyelle = AEIOUY
Hexadecimal = 0123456789ABCDEF


Dernière mise à jour : Vendredi, le 29 juillet 2016