AND |
Et |
---|---|
Turbo Pascal pour Windows |
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 Turbo Pascal pour Windows, avec des valeurs brutes :
- Program AndRawSamples;
-
- Uses WinCrt;
-
- 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);
- WriteLn('5 AND 2 = ',5 AND 2);
- WriteLn('6 AND 2 = ',6 AND 2);
- WriteLn('7 AND 2 = ',7 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;
-
- Uses WinCrt;
-
- 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
Voir également
Langage de programmation - Turbo Pascal pour Windows - Les opérateurs - NOT
Langage de programmation - Turbo Pascal pour Windows - Les opérateurs - OR
Langage de programmation - Turbo Pascal pour Windows - Les opérateurs - XOR
Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - AND
Dernière mise à jour : Dimanche, le 10 décembre 2017