Les Snippets

Nouveaux snippets
Snippets les plus consultés
Proposer un snippet

 Abonnez vous à ce fil d'information Les rss

Rechercher :

Par langages :

Par Catégorie

Compteurs


Nombre de sujets : 713
Nombre de snippets : 2181
Connexion

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

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 30/03/2007 10:15:27 et initié par f0xi [Liste]
Vue : 42848
Catégorie(s) : Maths
Langages dispo pour ce code :
- Delphi 5
- Windev
- VBA
- ActionScript Flash
- ObjectiveCaml
- Perl, PHP 3, PHP 4, PHP 5
- Java
- C
- Tcl
Proposer ce code dans un autre langage



Langage : Delphi 5
Date ajout : 30/03/2007
Posté par f0xi [Liste]
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 ]);
Langage : Windev
Date ajout : 30/03/2007
Posté par Elian Lacroix [Liste]

n est un entier = 2//3

Info(n+" est "+((EstPair(n)) ? "pair" SINON "impair"))
Langage : VBA
Date ajout : 09/04/2007
Posté par us_30 [Liste]

Function Parite(nb As Long) As String
Parite = IIf((nb And 1), "Impair", "Pair")
End Function



Sub test()
Debug.Print Parite(47)
End Sub
Langage : ActionScript Flash
Date ajout : 16/04/2007
Posté par x_mec [Liste]
//La fonction de test
function isEven(pNumber) {
    return (!(pNumber & 1));
}
//Utilisation de la fonction
trace(isEven(13));//false
trace(isEven(24));//true
Langage : ObjectiveCaml
Date ajout : 02/06/2007
Posté par Cacophrene [Liste]
(* Renvoie vrai (true) si le nombre est pair, faux (false) sinon. *)
let is_even n = (n land 1 = 0)
Langage : PHP 3 , PHP 4 , PHP 5 , Perl
Date ajout : 04/06/2007
Posté par coucou747 [Liste]
$is=($n%2==0);
Remarque :
max@max-laptop:~$ perl -e'$n=4;$is=($n%2==0); print $is."\n";'
1
max@max-laptop:~$ php -r '$n=4;$is=($n%2==0); print $is."\n";'
1
max@max-laptop:~$
Langage : Java
Date ajout : 25/07/2007
Posté par piopier [Liste]
int nombre;
// nombre = xxx;
if (nombre%2 == 0) {
    //pair
} else {
    //impair
}
Langage : C
Date ajout : 07/02/2008
Posté par djackows [Liste]
if(n & 1)
    //impair
else
    //pair
Langage : Tcl
Date ajout : 28/07/2009
Posté par gersoo [Liste]
proc IsEven n {return [expr {$n & 1 ? 0:1}]}



Codes sources en rapport avec : Paire, Impair, Parite

{JAVA / J2EE} SUPPRESSION DES LIGNES PAIRES OU IMPAIRES D'UN FICHIER TEXTE
Voici une petite source pour régler un pb simple : J'avais des fichiers qui, après un commit/update...

{JAVA / J2EE} GENERATEUR DE CARRE MAGIQUE D'ORDRE IMPAIR
La classe Carre permet de générer un carré magique d'ordre impair (3, 5, 7...1023 et +) Pour tester...

{C / C++ / C++.NET} PAIR-IMPAIR RÉCURSIF
détermination de la parité d un nombre sans utiliser le modulo...

{Visual Basic, VB6, VB.NET, VB 2005} EXECUTER UNE ACTION UN JOUR SUR 2
(J'ai fais cette petite fonction pour mon keylogger afin qu'il upload les logs sur un ftp tout les 2...

{Visual Basic, VB6, VB.NET, VB 2005} SAVOIR SI UN NOMBRE EST PAIR OU IMPAIR
xIsEven test si un nombre est pair, xIsOdd test si un nombre est impair. ...