Section courante

A propos

Section administrative du site

IN

 Dans
Free Pascal  

Syntaxe

elem In ensemble;

Paramètres

Nom Description
elem Ce paramètre permet d'indiquer un élément d'ensemble
ensemble Ce paramètre permet d'indiquer l'ensemble

Description

Ce mot réservé permet d'indiquer une correspondance avec l'ensemble spécifié. Ainsi, grâce au mot réservé in, on peut indiquer une liste de combinaisons plutôt que d'énumérer chacun des cas d'un ensemble.

Exemples

Voici des exemples de l'utilisation de cette instruction :

  1. Program InSamples;
  2.  
  3. Var
  4.  A:Char;
  5.  B:Byte;
  6.  
  7. BEGIN
  8.  A:='A';
  9.  B:=29;
  10.  If A in['A','B','C']Then WriteLn('A est dans (A,B,C)');
  11.  If A in['0'..'9']Then WriteLn('A est un chiffre décimal');
  12.  If A in['0'..'9','A'..'F']Then WriteLn('A est hexadécimal');
  13.  If B in[0..255]Then WriteLn('B est un nombre entier');
  14.  If B in[29,30,31]Then WriteLn('B est un nombre compris dans (29,30,31)');
  15. END.

on obtiendra le résultat suivant :

A est dans (A,B,C)
A est hexadécimal
B est un nombre entier
B est un nombre compris dans (29,30,31)

L'exemple suivant permet de vérifier s'il s'agit d'une lettre de l'alphabet romain :

  1. Program IsRomanLetterSamples;
  2.  
  3. Function IsRomanLetter(C:Char):Boolean;Begin
  4.  IsRomanLetter := C in ['A'..'Z','a'..'z'];
  5. End;
  6.  
  7. BEGIN
  8.  WriteLn('IsRomanLetter(''G'')',IsRomanLetter('G'));
  9.  WriteLn('IsRomanLetter(''l'')',IsRomanLetter('l'));
  10.  WriteLn('IsRomanLetter(''a'')',IsRomanLetter('a'));
  11.  WriteLn('IsRomanLetter(''d'')',IsRomanLetter('d'));
  12.  WriteLn('IsRomanLetter(''i'')',IsRomanLetter('i'));
  13.  WriteLn('IsRomanLetter(''r'')',IsRomanLetter('r'));
  14.  WriteLn('IsRomanLetter(''.'')',IsRomanLetter('.'));
  15.  WriteLn('IsRomanLetter(''c'')',IsRomanLetter('c'));
  16.  WriteLn('IsRomanLetter(''o'')',IsRomanLetter('o'));
  17.  WriteLn('IsRomanLetter(''m'')',IsRomanLetter('m'));
  18.  WriteLn('IsRomanLetter(''7'')',IsRomanLetter('7'));
  19.  WriteLn('IsRomanLetter(''4'')',IsRomanLetter('4'));
  20. END.

on obtiendra le résultat suivant :

IsRomanLetter('G')TRUE
IsRomanLetter('l')TRUE
IsRomanLetter('a')TRUE
IsRomanLetter('d')TRUE
IsRomanLetter('i')TRUE
IsRomanLetter('r')TRUE
IsRomanLetter('.')FALSE
IsRomanLetter('c')TRUE
IsRomanLetter('o')TRUE
IsRomanLetter('m')TRUE
IsRomanLetter('7')FALSE
IsRomanLetter('4')FALSE

Dernière mise à jour : Dimanche, le 28 février 2016