home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / BIPL.ZIP / PROCS.ZIP / REAL2INT.ICN < prev    next >
Encoding:
Text File  |  1992-09-28  |  923 b   |  46 lines
  1. ############################################################################
  2. #
  3. #    File:     real2int.icn
  4. #
  5. #    Subject:  Procedures for various real-to-integer conversions
  6. #
  7. #    Author:   Ralph E. Griswold
  8. #
  9. #    Date:     August 22, 1992
  10. #
  11. ###########################################################################
  12. #
  13. #    ceil(r)        nearest integer to r away from 0
  14. #
  15. #     floor(r)    nearest integer to r toward 0
  16. #
  17. #    round(r)    nearest integer to r
  18. #
  19. #    trunc(r)    nearest integer less than r
  20. #
  21. ############################################################################
  22.  
  23. procedure ceil(r)
  24.  
  25.    if r > 0 then return integer(r) + 1 else return -(integer(-r) + 1)
  26.  
  27. end
  28.  
  29. procedure floor(r)
  30.  
  31.    if r > 0 then return integer(r) else return -integer(-r)
  32.  
  33. end
  34.  
  35. procedure round(r)
  36.  
  37.    if r > 0 then return integer(r + 0.5) else return -integer(0.5 - r)
  38.  
  39. end
  40.  
  41. procedure trunc(r)
  42.  
  43.    return integer(r)
  44.  
  45. end
  46.