XProfan

Titre de la fenêtre "Integer-Funktion pour Floats jusqu'à 15 Stellen"
Cls:declare a!,sgn!:set("decimals",18)
repeat:imprimer "\n Float-Wert: ";:input a!:imprimer Intf(a!)

until 0

proc Intf :parameters a!

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

endproc