In some cases, I need to round a number to closest upper and some cases into closest lower integer value. I only see INTEGER command which I think only rounds to closest lower integer number. Is there any such command in GLBasic or do I need to implement my own?
Thanks,
Ãâ€"zden
if you want to round it business like, you can try this (I think it was already ask somewhere though)
PRINT round(5.434344), 0, 0
PRINT round(5.66344), 0, 20
SHOWSCREEN
KEYWAIT
// ------------------------------------------------------------- //
// --- ROUND% ---
// ------------------------------------------------------------- //
FUNCTION round%: p_num
RETURN INTEGER(p_num + .5)
ENDFUNCTION // ROUND%
bad for negative numbers ;)
You could round like this:
FUNCTION Round: number, prec
LOCAL mulf = MAX(POW(10., prec), 1e-12)
number = number *mulf
LOCAL ret
IF number<0
RETURN INTEGER(number-.5)/mulf
ENDIF
RETURN INTEGER(number+.5)/mulf
ENDFUNCTION
But usually you only want rounded numbers for output. Then use FORMAT$().
Good for positive and negative numbers
FUNCTION round%: p_num
RETURN INTEGER(p_num+(SGN(p_num)*0.5))
ENDFUNCTION // ROUND%