topic-32335

Board index FiveWin para Harbour/xHarbour numero par o impar?

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

numero par o impar?
Posted: Mon Apr 25, 2016 08:01 AM

Hola.
Existe alguan funcion interna que te diga si es impar o par un numero?
(para no codificar una funcion)

gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

AngelSalom

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Re: numero par o impar?
Posted: Mon Apr 25, 2016 09:25 AM

Esto te puede valer :

Code (fw): Select all Collapse

If Int(nNumero/2)=nNumero/2

Para probar :

Code (fw): Select all Collapse

#include "fivewin.ch"

Function Main()
Local nNumero:=24

If Int(nNumero/2)=nNumero/2
  msginfo ('par')
else
 msginfo ('impar')
endif
Return (nil)

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4

Biel EA6DD

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

Re: numero par o impar?
Posted: Mon Apr 25, 2016 09:44 AM

Code (fw): Select all Collapse

 FUNCTION IsPar(num);RETURN IIF(num%2=0,.T.,.F.)

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: numero par o impar?
Posted: Mon Apr 25, 2016 11:22 AM

gracias a ambos dos!

pense que habia una funcion interna, ya estoy usando ese metodo.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

FiveTech Support Forums

Continue the discussion