begin process at 2010 03 18 23:26:17
  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 :21 034
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 .NET (Dotnet) COMPILATION A LA VOLÉE, INTERPRÉTER UNE FONCTION MATHÉMATIQU... par sergeb44
Source avec Zip Source .NET (Dotnet) PISH2010-VB2008 par SaintMaur
Source avec Zip Source avec une capture PI-SH-2010-VB6 par SaintMaur
Source avec Zip Source avec une capture CHIFFRAGE ET DECHIFFRAGE FONCTION AFFINE par tresorsdevie
ALGORITHME DE NIVEAU POUR LA RÉSOLUTION DU MÉTHODE POTENTIEL... par sagessekaye
Toutes les sources de la catégorie Maths

 Sources en rapport avec celle ci

CONVERSION D'UN NOMBRE EN "PACKED NUMBER", ET INVERSEMENT par WebSeb
Source avec Zip CALCULS SUR DE GRANDS NOMBRES (PLUSIEURS MILLIERS DE CHIFFRE... par apexinfo
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 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 <> [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 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


Console Nintendo Wii
Entre 220€ et 307€

Visiter le guide achat

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

Photo Village du Lot et Garonne, Saint Front 
  

Visiter la photothèque
 
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 : 0,671 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)