Section courante

A propos

Section administrative du site

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 :

  1. Program AndRawSamples;
  2.  
  3. Uses WinCrt;
  4.  
  5. BEGIN
  6.  WriteLn('0 AND 1 = ',0 AND 1);
  7.  WriteLn('1 AND 1 = ',1 AND 1);
  8.  WriteLn('2 AND 1 = ',2 AND 1);
  9.  WriteLn('3 AND 1 = ',3 AND 1);
  10.  WriteLn('4 AND 1 = ',4 AND 1);
  11.  WriteLn('0 AND 2 = ',0 AND 2);
  12.  WriteLn('1 AND 2 = ',1 AND 2);
  13.  WriteLn('2 AND 2 = ',2 AND 2);
  14.  WriteLn('3 AND 2 = ',3 AND 2);
  15.  WriteLn('4 AND 2 = ',4 AND 2);
  16.  WriteLn('5 AND 2 = ',5 AND 2);
  17.  WriteLn('6 AND 2 = ',6 AND 2);
  18.  WriteLn('7 AND 2 = ',7 AND 2);
  19. END.

on obtiendra le résultat suivant :

0 AND 1 = 0
1 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 :

  1. Program AndSamples;
  2.  
  3. Uses WinCrt;
  4.      
  5. Function IsOdd(X:Integer):Boolean;Begin
  6.  IsOdd := Boolean(X AND 1);
  7. End;
  8.      
  9. BEGIN
  10.  WriteLn('Nombre -13 est impaire : ',IsOdd(-13));
  11.  WriteLn('Nombre -1 est impaire : ',IsOdd(-1));
  12.  WriteLn('Nombre 0 est impaire : ',IsOdd(0));
  13.  WriteLn('Nombre 1 est impaire : ',IsOdd(1));
  14.  WriteLn('Nombre 4 est impaire : ',IsOdd(4));
  15.  WriteLn('Nombre 7 est impaire : ',IsOdd(7));
  16.  WriteLn('Nombre 20 est impaire : ',IsOdd(20));
  17. END.

on obtiendra le résultat suivant :

Nombre -13 est impaire : TRUE
Nombre -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