Section courante

A propos

Section administrative du site

Il existe une fonction dans de nombreux langages, comme le Turbo Pascal pour Windows, 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 Pascal pour Windows :

  1. Program OddSamples;
  2.  
  3. Uses WinCrt;
  4.  
  5. Function Odd(value:Integer):Boolean;Begin
  6.  Odd := value and 1 = 1;
  7. End;
  8.  
  9. Var
  10.  I:Integer;
  11. BEGIN
  12.  For I := -4 To 10 do Begin
  13.   Write('Le nombre ',I,' est ');
  14.   If Odd(I)Then WriteLn('Impaire')
  15.            Else WriteLn('Pair');
  16.  End;
  17. END.

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 : Dimanche, le 10 décembre 2017