Il existe une fonction dans de nombreux langages, comme le Pascal, permettant de déterminer si un nombre est impaire ou paire. Voici un programme très performant permettant de déterminer celui-ci en DarkBASIC:
FOR I=-4 TO 10
PRINT "Le nombre "+STR$(I)+" est ";
IF Odd(I)THEN PRINT "Impaire" ELSE PRINT "Pair"
NEXT
WAIT KEY
FUNCTION Odd(value)
ReturnValue=(value AND 1)=1
ENDFUNCTION ReturnValue
on obtiendra le résultat suivant:
Le nombre -4 est PairLe nombre -3 est Impaire
Le nombre -2 est Pair
Le nombre -1 est Impaire
Le nombre 0 est Pair
Le nombre 1 est Impaire
Le nombre 2 est Pair
Le nombre 3 est Impaire
Le nombre 4 est Pair
Le nombre 5 est Impaire
Le nombre 6 est Pair
Le nombre 7 est Impaire
Le nombre 8 est Pair
Le nombre 9 est Impaire
Le nombre 10 est Pair
Voir également
Dernière mise à jour : Samedi, le 4 octobre 2008