home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MATH / MATH.ARC / C.LBR / FLOOR.C < prev    next >
Encoding:
C/C++ Source or Header  |  1988-07-21  |  640 b   |  30 lines
  1.  
  2. /***********************************************************
  3.  *               The TULSA IBM C BOARD                     *
  4.  *                   918-664-8737                          *
  5.  *             300/1200 XMODEM, 24 Hours                   *
  6.  **********************************************************/
  7.  
  8.  
  9. #include "math.h"
  10.  
  11. double floor(d)
  12. double d;
  13. {
  14.         if (d < 0.0)
  15.                 return -ceil(-d);
  16.         modf(d, &d);
  17.         return d;
  18. }
  19.  
  20. double ceil(d)
  21. double d;
  22. {
  23.         if (d < 0.0)
  24.                 return -floor(-d);
  25.         if (modf(d, &d) > 0.0)
  26.                 ++d;
  27.         return d;
  28. }
  29.  
  30.