Parité d'un nombre entier (int signed, unsigned)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 49 933 fois - Téléchargée 8 fois

Contenu du snippet

const
   CTC : array[Boolean] of string = ('impair','pair');
 
{ X est un entier de n bits signé ou non signé }

{ solution 1 : Le modulo 2, si il retourne 0, alors le chiffre est pair, sinon impair }
 
 ShowMessage(IntToStr(X) + ' est ' + CTC[ (X mod 2) = 0 ]);
 
{ solution 2 : La fonction "odd", retourne true si impair, sinon false }
  
  ShowMessage(IntToStr(X) + ' est ' + CTC[ not odd(X) ]);
  
{ solution 3 : par masquage du premier bit, egal 0 alors pair, sinon impair,
de loin la methode la plus performante. }
  
  ShowMessage(IntToStr(X) + ' est ' + CTC[ (X and $1) = $0 ]);
  


Compatibilité : Delphi 5

Disponible dans d'autres langages :

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.