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 Ada :
- WITH TEXT_IO;
-
- PROCEDURE OddSamples IS
-
- USE TEXT_IO;
-
- FUNCTION Odd(Value:IN Integer) RETURN Boolean IS BEGIN
- RETURN Value MOD 2 = 1;
- END Odd;
-
- BEGIN
- FOR I IN -4..10 LOOP
- PUT("Le nombre " & INTEGER'IMAGE(I) & " est ");
- IF Odd(I)THEN
- PUT_LINE("Impaire");
- ELSE
- PUT_LINE("Pair");
- END IF;
- END LOOP;
- 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 25 août 2012