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 Oberon .NET:
MODULE oddsamples;
VAR
I:INTEGER;
PROCEDURE Odd(value:INTEGER):BOOLEAN;
BEGIN
RETURN ABS(value) MOD 2 = 1;
END Odd;
BEGIN
FOR I := -4 TO 10 DO
WRITE("Le nombre ",I," est ");
IF Odd(I) THEN
WRITELN("Impaire");
ELSE
WRITELN("Pair");
END;
END;
END oddsamples.
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 2 février 2008