Gracias PMroz, funciona muy bien.
Gene
No parece haber una función de signo en JSL. ¿Necesita una función de signo? ¿Algo que devuelve 1 para positivo, 0 para cero y -1 para negativo? Aquí hay una solución:
/ *
Nombre de la función: signo
Descripción: Devuelve 1 si es positivo, 0 para cero, -1 para negativo
Argumentos:
un número Número a probar
* /
firmar = función ( { un número } ,
{ Predeterminado local } ,
sign_value = . ;
Si ( ! esta vacio ( un número ) ,
Si ( un número > 0 ,
sign_value = 1 ,
un número == 0 ,
sign_value = 0 ,
un número < 0 ,
sign_value = - 1
) ;
) ;
// Devolver el valor de signo
sign_value ;
) ;
Uso de la muestra:
una = firmar ( 47 ) ;
impresión ( una ) ;
segundo = firmar ( 0 ) ;
impresión ( segundo ) ;
do = firmar ( - 999999 ) ;
impresión ( do ) ;
Produce lo siguiente en la ventana de registro:
1
0
-1
