FiveTech Support Forums

Hola amigos del foro.
Me encuentro con Harbour que me saca a lo "macho" de la aplicación en cuanto se encuentra una división por cero entre variables.
Se que no es correcto, pero en clipper no petaba
Tengo que revisar mi código o hay algo que pueda hacer??

Gracias.

Angel,

Que build de harbour estás usando ? De que fecha ?

Angel,

Con el build actual de Harbour, este código funciona bien:

function Main()

MsgInfo( "before" )

MsgInfo( 2 / 0 )

MsgInfo( "after" )

return nil

Lo que se está discutiendo ahora en la lista de desarrollo de Harbour es porque 2 / 0 = 0, cuando en realidad debiera ser infinito, y por lo tanto generar un error, ó un aviso.

Antonio Linares wrote:Lo que se está discutiendo ahora en la lista de desarrollo de Harbour es porque 2 / 0 = 0, cuando en realidad debiera ser infinito, y por lo tanto generar un error, ó un aviso.

thefull wrote:Es cero, porque desde el errorsys se le dice que retorne cero.

thefull wrote:
cuando realizas divisiones entre int / double, es decir 1 / 0.0, 1.0 / 0, ocasionaba una caida no recuperable ni por errorsys , ni por begin secuenque , ni leches.

function Main()

   Alert( "antes" )
   Alert( 2 / 0.0 )
   Alert( "despues" )

return nil

Antonio Linares wrote:

thefull wrote:Es cero, porque desde el errorsys se le dice que retorne cero.

Si, eso se está haciendo. Pero en matemáticas, una cantidad dividida por cero es igual a infinito (tiende a infinito). Posiblemente Clipper salió del paso haciéndolo igual a cero, pero no es correcto.

Bueno, tambien tan( 90 ) tiende a infinito, pero, ¿ como representar ese numero ?, logicamente en una calculadora, te sale ERR.
Pero, por "compatibilidad" con clipper DEBE de retornar CERO , o ERROR!

A elegir, me quedo con cero
Asi si coges la calculadora de windows, aplica 2 / 0 = Error:division por cero.
Ahora, aplicas tan( 90 ) = Entrada no válida para func.

OH!!!, me quedo con cero , jejejel o al menos, que el errorsys DEVUELVA CERO, mas sencillo imposible...
IF ( oError:genCode == EG_ZERODIV ) // by default, division by zero yields zero
RETURN 0
ENDIF

thefull wrote:
cuando realizas divisiones entre int / double, es decir 1 / 0.0, 1.0 / 0, ocasionaba una caida no recuperable ni por errorsys , ni por begin secuenque , ni leches.

Antonio Linares wrote:Acabo de probar este test con el build más reciente de Harbour, y NO se cae la aplicación. Deben haber arreglado lo que comentas. Lo que si es que el valor que muestra es incorrecto:

Code: Select all Collapse

function Main()

   Alert( "antes" )
   Alert( 2 / 0.0 )
   Alert( "despues" )

return nil