XProfan

Título de la ventana "Integer-Función para Floats a 15 Stellen"
Cls:declarar a!,sgn!:set("decimals",18)
repeat:imprimir "\n Float-Valor: ";:input a!:imprimir Intf(a!)

until 0

proc Intf :parámetros a!

var sgn!=if(abs(a!)<val("1e-16"),0,if(a!<0,-1,1))
volver val(format$("%g",sgn!*abs(round(abs(a!)-0.5,0))))

ENDPROC