Sorry your browser is not supported!

Sync On
Global Up# : Global Dn#

Do

Text 20,20,Str$(Round(5.4))
Text 20,40,Str$(Round(5.5))

Sync
Loop


function Round(Num#)
 Up#=CEIL(Num#)
 Dn#=FLOOR(Num#)

 If Up#-Num# > .5 then RoundedNum#=Dn# ELSE RoundedNum#=Up#
endfunction RoundedNum#

Put the globals at the top of your program. Put the function at the bottom.

Round(Number-you-want-to-round#) goes where you want the rounded number.

function Round(Num#)
 Up#=CEIL(Num#)
 Dn#=FLOOR(Num#)

 If Up#-Num# > .5 then RoundedNum#=Dn# ELSE RoundedNum#=Up#
endfunction RoundedNum#

function Round(n#)
   n=int(n#+0.5)
endfunction n

Sync On
Global Up# : Global Dn#

Do
   cls
   print Round(4.0),"=",Round2(4.0)
   print Round(5.4),"=",Round2(5.4)
   print Round(5.5),"=",Round2(5.5)
   print Round(6.9),"=",Round2(6.9)
   Sync
Loop

function Round(Num#)
 Up#=CEIL(Num#)
 Dn#=FLOOR(Num#)

 If Up#-Num# > .5 then RoundedNum#=Dn# ELSE RoundedNum#=Up#
endfunction RoundedNum#

function Round2(n#)
   n=int(n#+0.5)
endfunction n