18 de noviembre de 2004

Saber si un número es par

Tres funciones distintas para saber si un número entero es par.

1. Utilizando el operador %
FUNCTION EsPar(tnEntero)
  RETURN tnEntero % 2 = 0
ENDFUNC
2. Utilizando el operador ^
FUNCTION EsPar(tnEntero)
  RETURN -1 ^ tnEntero = 1
ENDFUNC
3. Utilizando BITTEST()
FUNCTION EsPar(tnEntero)
  RETURN NOT BITTEST(tnEntero,0)
ENDFUNC
Nota del editor: Las funciones 1. y 2. fueron tomadas del Grupo de Noticias de VFP en español, de respuestas enviadas por Luis María Guayán y Dario David Puccio respectivamente. La función 3. fue tomada de la ayuda de VFP de la función BITTEST().

No hay comentarios. :

Publicar un comentario