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 Turbo Basic:
DEF FNOdd(value)
FNOdd=(value AND 1)=1
END DEF
FOR I=-4 TO 10
PRINT "Le nombre "+STR$(I)+" est ";
IF FNOdd(I)THEN PRINT "Impaire" ELSE PRINT "Pair"
NEXT
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 : Mardi, le 28 juillet 2015