Pair ou impair ? Résolu

[Kayne]

Est-ce que quelqu'un aurait une idée pour savoir si un nombre est pair ou impair?

[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)

[Kayne]

Ok merci beaucoup

[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

[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)

[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 ?

[Backup]

En tout cas merci beaucoup pour vos scripts.

Ce ne sont pas des Scripts !!