AND |
Et |
|---|---|
| Virtual Pascal |
Syntaxe
| boolean AND boolean |
| entier AND entier |
Paramètres
| Nom | Description |
|---|---|
| boolean | Ce paramètre permet d'indiquer une expression de type booléen avec lequel un «Et logique» est effectué |
| entier | Ce paramètre permet d'indiquer une expression de type entière avec lequel un «Et binaire» est effectué |
Description
Cet opérateur permet d'effectuer un Et logique sur des booléens ou Et binaire sur des valeurs numériques.
Exemples
Voici un exemple montrant l'utilisation de «AND», dans Virtual Pascal, avec des valeurs brutes :
- Program AndRawSamples;
-
- BEGIN
- WriteLn('0 AND 1 = ',0 AND 1);
- WriteLn('1 AND 1 = ',1 AND 1);
- WriteLn('2 AND 1 = ',2 AND 1);
- WriteLn('3 AND 1 = ',3 AND 1);
- WriteLn('4 AND 1 = ',4 AND 1);
- WriteLn('0 AND 2 = ',0 AND 2);
- WriteLn('1 AND 2 = ',1 AND 2);
- WriteLn('2 AND 2 = ',2 AND 2);
- WriteLn('3 AND 2 = ',3 AND 2);
- WriteLn('4 AND 2 = ',4 AND 2);
- END.
on obtiendra le résultat suivant :
0 AND 1 = 01 AND 1 = 1
2 AND 1 = 0
3 AND 1 = 1
4 AND 1 = 0
0 AND 2 = 0
1 AND 2 = 0
2 AND 2 = 2
3 AND 2 = 2
4 AND 2 = 0
Voici un exemple permettant de tester si certains nombres sont impaires à l'aide de cet opérateur :
- Program AndSamples;
-
- Function IsOdd(X:Integer):Boolean;Begin
- IsOdd := Boolean(X AND 1);
- End;
-
- BEGIN
- WriteLn('Nombre -13 est impaire : ',IsOdd(-13));
- WriteLn('Nombre -1 est impaire : ',IsOdd(-1));
- WriteLn('Nombre 0 est impaire : ',IsOdd(0));
- WriteLn('Nombre 1 est impaire : ',IsOdd(1));
- WriteLn('Nombre 4 est impaire : ',IsOdd(4));
- WriteLn('Nombre 7 est impaire : ',IsOdd(7));
- WriteLn('Nombre 20 est impaire : ',IsOdd(20));
- END.
on obtiendra le résultat suivant :
Nombre -13 est impaire : TRUENombre -1 est impaire : TRUE
Nombre 0 est impaire : FALSE
Nombre 1 est impaire : TRUE
Nombre 4 est impaire : FALSE
Nombre 7 est impaire : TRUE
Nombre 20 est impaire : FALSE
Dernière mise à jour : Vendredi, le 29 juillet 2016