Page 1 sur 1

Pair ou impair ? Résolu

Publié : lun. 11/févr./2008 17:40
par Kayne
Est-ce que quelqu'un aurait une idée pour savoir si un nombre est pair ou impair?

Publié : lun. 11/févr./2008 17:44
par comtois
tu testes le premier bit, c'est le seul à contenir une valeur impair

s'il est à 1 alors le nombre est impair.

Code : Tout sélectionner

Macro TEST_PARITE(x)
  If (x) & 1
  Debug Str((x)) + " est impair"
  Else
    Debug Str((x)) + " est pair"
  EndIf    
EndMacro

a=12
b=31
TEST_PARITE(a)
TEST_PARITE(b)
TEST_PARITE(a+b)

Publié : lun. 11/févr./2008 17:45
par Kayne
Ok merci beaucoup

Publié : lun. 11/févr./2008 18:36
par Ouaf-Ouaf
Haan pas mal :) J'aurais jamais pensé ^^

Mmh moi si j'me souviens bien.. Oui, j'faisais un truc comme :

Parite = Round( Round( Var/2, 0 ) - Var/2 , 1 )

Si c'est un paire ça donne 0
Si c'est un impaire, ça donne un 0,xx arrondis à 1 :D

Publié : mer. 13/févr./2008 0:55
par africanos
une autre solution :)

Code : Tout sélectionner


Macro TEST_PARITE(x)
  If (x) %2
  Debug Str((x)) + " est impair"
  Else
    Debug Str((x)) + " est pair"
  EndIf   
EndMacro

a=12
b=31
TEST_PARITE(a)
TEST_PARITE(b)
TEST_PARITE(a+b)


Publié : ven. 15/févr./2008 15:39
par Kayne
En tout cas merci beaucoup pour vos scripts. Ceux avec les macros ont l'air les plus efficaces mais j'ai du mal a comprendre. Comment ça marche exactement les macros ?

Publié : ven. 15/févr./2008 16:14
par Backup
Kayne a écrit :En tout cas merci beaucoup pour vos scripts.

Ce ne sont pas des Scripts !!