ROUND function

Purpose: Rounds a floating point number.


 Syntax:

 RetVal# = ROUND(Number, Decimals%)

 Parameters:

  • RetVal# Number rounded to Decimals% places.
  • Number Literal or variable floating point number to be rounded.
  • Decimals Decimal places to which Number is to be rounded.

Example:

 
 COLOR 15,1
 CLS
 DIM c%
 DIM s!
 DIM r!
 DIM d#
 DIM n#
 DIM z$
 
 s! = 41.551
 d# = 41.551
 
 PRINT " -----------------------------------------------------------------------------"
 PRINT "                          TESTING  -  ROUND Function                          "
 PRINT " -----------------------------------------------------------------------------"
 PRINT "         SINGLE FLOAT VARIABLE         |        DOUBLE FLOAT VARIABLE         "
 PRINT "        Value           2 Decimals     |       Value           2 Decimals     "
 PRINT " -----------------------------------------------------------------------------"
 
 FOR c% = 1 TO 9
   ' single
   LOCATE 6+c%,2,0
   z$ = USING$("###.##",s!) : PRINT z$
   r! = ROUND(s!, 2)
   LOCATE 6+c%,22,0
   z$ = USING$("###.##",r!) : PRINT z$
   s! = s! + 0.001
   ' double
   LOCATE 6+c%,40,0
   z$ = USING$("###.##",d#) : PRINT z$
   n# = ROUND(d#, 2)
   LOCATE 6+c%,61,0
   z$ = USING$("###.##",n#) : PRINT z$
   d# = d# + 0.001
 NEXT c%