A rounding function http://www.tommstudio.com (April 19, 2001) Author: booktian Recommended: booktian
Below is a four-grade function of the interaction of the Guizhou National, if you want to be the N-bit decimal, just simply modify it. Function myround: Extended; Beginif (int (x) * 10 5)> int (x * 10) ThenbegginResult: = flches (x); end elsebeginResult: = CEIL (x); end; end;