begin process at 2012 02 16 14:02:22
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Maths

 > SAVOIR SI UN NOMBRE EST PAIR OU IMPAIR

SAVOIR SI UN NOMBRE EST PAIR OU IMPAIR


 Information sur la source

Note :
6,4 / 10 - par 5 personnes
6,40 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Maths Classé sous :tester, parité, pair, impair, nombre Niveau :Débutant Date de création :23/08/2000 Vu :26 617
Auteur : Mr X

Ecrire un message privé
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

xIsEven test si un nombre est pair, xIsOdd test si un nombre est impair.

Source

  • '***********************************************************************************************************
  • ' Name : xIsEven
  • ' Purpose : Test if a number is even.
  • ' Syntax : xIsEven(Number)
  • ' Parameters : Number : Number to be tested
  • ' Return : True or False
  • '***********************************************************************************************************
  • Public Function xIsEven(ByVal Number As Long) As Boolean
  • xIsEven = Not -(Number And 1)
  • End Function
  • '***********************************************************************************************************
  • ' Name : xIsOdd
  • ' Purpose : Test if a number is odd.
  • ' Syntax : xIsOdd(Number)
  • ' Parameters : Number : Number to be tested
  • ' Return : True or False
  • '***********************************************************************************************************
  • Public Function xIsOdd(ByVal Number As Long) As Boolean
  • xIsOdd = -(Number And 1)
  • End Function 
'***********************************************************************************************************
' Name       : xIsEven
' Purpose    : Test if a number is even.
' Syntax     : xIsEven(Number)
' Parameters : Number : Number to be tested
' Return     : True or False
'***********************************************************************************************************
Public Function xIsEven(ByVal Number As Long) As Boolean
    xIsEven = Not -(Number And 1)
End Function


'***********************************************************************************************************
' Name       : xIsOdd
' Purpose    : Test if a number is odd.
' Syntax     : xIsOdd(Number)
' Parameters : Number : Number to be tested
' Return     : True or False
'***********************************************************************************************************
Public Function xIsOdd(ByVal Number As Long) As Boolean
    xIsOdd = -(Number And 1)
End Function



 Sources du même auteur

Source avec Zip TESTER SI UN LECTEUR (RESEAU OU NON) EST ACCESSIBLE ET/OU EX...
DETERMINE LE NOMBRE DE JOURS DANS UN MOIS
SAVOIR SI UNE FENETRE EST CHARGEE
FAIRE UNE PAUSE D'UN CERTAIN NOMBRE DE SECONDES
CONVERTION D'UN NOMBRE EN UNE FRACTION
Toutes les sources de Mr X

 Sources de la même categorie

Source avec Zip Source avec une capture CONVERTISSEUR HEXAVIGÉSIMAL par shaeks
Source avec Zip Source avec une capture Source .NET (Dotnet) CRYPTOGRAPHIE AFFINE par Tigrou66
Source avec Zip Source avec une capture SCANNER FLEX par lajouad
Source avec Zip EQUATIONSECONDDEGRÉ,MATH,DEGRÉ par shadkitenge
Source avec Zip Source .NET (Dotnet) SOMME DE CHIFFRES CONTENUE DANS UN NOMBRE par alpha5
Toutes les sources de la catégorie Maths

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture EVALUER UN NOMBRE D'OBJETS AVEC UNE BALANCE ET DEUX ÉCHANTIL... par lexsty
Source avec Zip Source avec une capture Source .NET (Dotnet) NOMBRE EN LETTRES par lermite222
CHIFFRE EN LETTRE FONCTION par ElDoktor
EXECUTER UNE ACTION UN JOUR SUR 2 par Majen
Source avec Zip SAVOIR SI UN NOMBRE EST PREMIER !!! par TomAmplius

Commentaires et avis

Commentaire de Zeroc00l le 12/05/2002 15:17:00

Je suis tout a fait d'accord avec Wardall
Franchement je vois pas l'interet de faire des function pour ce genre de truc.
Mod 2 suffit amplement ...
Mais bon on vit dans une societe libre ( ca reste a prouver ...)
Evitez ce genre de source SVP c'est trop simple ...

Commentaire de Arecibo le 01/06/2003 15:02:55

Je vais peut être répeter ce qu'ont dit les autres mais un simple Mod 2 suffit...

Commentaire de loskiller62 le 28/02/2005 15:21:13

C'est bien ce que je pensais. Le And utilisé par Mr X est une fonction de plus bas niveau que le Mod. et est donc plus efficace.
Après tests sur des valeurs aléatoires on peut constater que la fonction de Mr X est 10% plus rapide que la fonction utilisant le Mod.
Vu que je travaille sur de grosses analyses vous ne m'en voudrez donc pas de préférer la solution de Mr X  :o)
Bravo à toi! 8/10

Commentaire de BruNews le 28/02/2005 15:43:11 administrateur CS

Comment ça de 10% ???
AND est une operation binaire en 1 cycle !!! alors que le modulo est une division qui emploie au bas mot de 16 à 20 cycles processeur.
Alors qu'il suffit de tester le bit 0 pour savoir si un nombre est impair, on ne va tout de même pas aller faire une division, ce serait du délire complet.

If nbr And 1 Then IMPAIR
Else PAIR

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

calcul du bit de parité (pair ou impair) [ par senga34 ] Bonjour ! Etant débutant dans VB, qui peut m'indiquercomment faire pour générer le bit de parité pair ou impair , sachant que je sais TextBox [ par RS8 ] Bonjour, j'ai (de nouveau !) un problème en vb6!Sur ma feuille j'ai plusieurs Textbox et je voudrais tester si la valeur entrée par l'utilisateur est Tester si mes macros de mise à jour ce sont bien déroulées [ par SLEHOUX ] Bonjour à toutes et à tous ,Je cherche un moyen de faire un rapport sur l'éxécution de toutes mes macros exécuter quotid [déplacé VB6 -> VBS] pair et impair [ par chawkiste ] Bonjour, Soit le tableau suivant : Numeros = array(1,2,3,4,5,6,7,8,9) Créer deux autres tableaux « Pair » et « Impair » pour accommoder les numéros pa Tester si un nombre est entier ? [ par typhoon_74 ] Bonjour , J'ai essayé ce code dans mon programme pour tester si mon nombre était entier mais cela ne marche pas ... Le voici :If A <> Configuration AxMSComm [ par gerardt ] Bonjour, je dois dialoguer avec un appareil qui a un protocole établi, 9600Bds, 8 bits, parité pair et un bit stop. Comment dois-je configurer le set Fonction Pair en vb [ par tortuegenie ] Bonjour à tous,j' ai un tout petit souciJ'utilise Excel et vb pour un programme.Dans Excel il existe une fonction PAIR(nombre) qui arrondit Image d'un fichier AVI [ par Janeo ] Bonjour, Comment faire pour aller chercher une image bien précise (par ex : image n°3) dans un fichier vidéo du type AVI, à partir d'un nombre qui m' System.Data.SQLite -> retrouver le nombre d'enregistrements d'une requête [ par mioumiounorris ] Bonjour ! Je suis actuellement en train d'essayer de comprendre les bases de données sous SQLite. J'utilise la classe disponible à l'adresse: [url=ht


Nos sponsors


Sondage...

Comparez les prix


Mio - Moov V735 - GPS Europe - Ecran 7"
Entre 305€ et 375€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 6,084 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)