Section courante

A propos

Section administrative du site

ODD

 Impaire
Turbo Pascal pour Windows System

Syntaxe

Function Odd(i:LongInt):Boolean;

Paramètres

Nom Description
i Ce paramètre permet d'indiquer l'expression contenant le nombre à traiter

Retour

Valeur Description
FALSE Cette valeur permet d'indiquer que le nombre est paire
TRUE Cette valeur permet d'indiquer que le nombre est impaire

Description

Cette fonction indique si la valeur entière est un nombre impaire.

Algorithme

MODULE ODD(X)
   RETOURNE X ∩ 1 = 1

Exemple

Voici un exemple montrant les résultats générer par cette fonction :

  1. Program OddSamples;
  2.  
  3. Uses WinCrt;
  4.  
  5. Var I:ShortInt;
  6.  
  7. BEGIN
  8.  For I := -4 to 10 do Begin
  9.   Write('Le nombre ',I,' est ');
  10.   If(Odd(I))Then Begin
  11.    WriteLn('Impaire');
  12.   End
  13.    Else
  14.   Begin
  15.    WriteLn('Pair');
  16.   End;
  17.  End;
  18. 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

Dernière mise à jour : Dimanche, le 10 décembre 2017