Accueil de Gladir.com Notes légales de Gladir.com Flux RSS des nouvelles du site Gladir.com - Langage de programmation - Perl - Mathématique - Odd (Impaire ou paire) Section du logiciel DOS «MonsterBook» Inventaire de la bibliothèque de Gladir.com Entrée administrateur

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 Perl :

  1. #!/usr/bin/perl
  2.  
  3. sub Odd() {
  4.  my($value) = @_;
  5.  return ($value & 1) == 1;
  6. }
  7.  
  8. my($I);
  9. for($I = -4; $I <= 10; $I++) {
  10.     print "Le nombre " . $I . " est " . (&Odd($I) ? "Impaire":"Pair") . "\n";
  11. }

on obtiendra le résultat suivant :

Le nombre -4 est Pair
Le 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

Science - Mathématique

Dernière mise à jour: Mardi, le 3 janvier 2012