XProfan

WindowTitle "Integer-Funktion per Floats bis 15 Stellen"
Cls:declare a!,sgn!:set("decimals",18)
repeat:print "\n Float-Wert: ";:input a!:print Intf(a!)

until 0

proc Intf :parameters a!

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

endproc