Section courante

A propos

Section administrative du site

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

  1. Function Odd(Byval value As Integer) As Integer
  2.      Odd= (value And 1) = 1
  3. End Function
  4.  
  5. Sub Main()
  6.      Dim i As Integer
  7.      For i = -4 To 10
  8.           Print "Le nombre " & Str$(i) & " est ";
  9.           If Odd(i) Then
  10.                Print "Impaire"
  11.           Else
  12.                Print "Pair"
  13.           End If
  14.      Next
  15. End Sub

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 18 janvier 2015