home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 24 / CD_ASCQ_24_0995.iso / vrac / homonlib.zip / MINMAX.BAS < prev    next >
BASIC Source File  |  1995-04-13  |  2KB  |  105 lines

  1. DEFINT A-Z
  2.  
  3. DECLARE FUNCTION Dmax# (a#, b#)
  4. DECLARE FUNCTION Dmin# (a#, b#)
  5. DECLARE FUNCTION Imax (a, b)
  6. DECLARE FUNCTION Imin (a, b)
  7. DECLARE FUNCTION Lmax& (a&, b&)
  8. DECLARE FUNCTION Lmin& (a&, b&)
  9. DECLARE FUNCTION Smax! (a!, b!)
  10. DECLARE FUNCTION Smin! (a!, b!)
  11.  
  12. '****************************************************************************
  13. 'The various max() and min() functions simply return the larger or smaller of
  14. ' two numbers.  There is one set of functions for each of the numeric data
  15. ' types.
  16. '
  17. 'While useful by themselves, they can be extremely handy when used in pairs:
  18. '
  19. '    biggest = Imax(a, Imax(b, c))
  20. '
  21. '    smallest! = Smin!(a!, Smin!(b!, c!))
  22. '
  23. '****************************************************************************
  24.  
  25. FUNCTION Dmax# (a#, b#)
  26.  
  27. IF a# > b# THEN
  28.      Dmax# = a#
  29. ELSE
  30.      Dmax# = b#
  31. END IF
  32.  
  33. END FUNCTION
  34.  
  35. FUNCTION Dmin# (a#, b#)
  36.  
  37. IF a# < b# THEN
  38.      Dmin# = a#
  39. ELSE
  40.      Dmin# = b#
  41. END IF
  42.  
  43. END FUNCTION
  44.  
  45. FUNCTION Imax (a, b)
  46.  
  47. IF a > b THEN
  48.      Imax = a
  49. ELSE
  50.      Imax = b
  51. END IF
  52.  
  53. END FUNCTION
  54.  
  55. FUNCTION Imin (a, b)
  56.  
  57. IF a < b THEN
  58.      Imin = a
  59. ELSE
  60.      Imin = b
  61. END IF
  62.  
  63. END FUNCTION
  64.  
  65. FUNCTION Lmax& (a&, b&)
  66.  
  67. IF a& > b& THEN
  68.      Lmax& = a&
  69. ELSE
  70.      Lmax& = b&
  71. END IF
  72.  
  73. END FUNCTION
  74.  
  75. FUNCTION Lmin& (a&, b&)
  76.  
  77. IF a& < b& THEN
  78.      Lmin& = a&
  79. ELSE
  80.      Lmin& = b&
  81. END IF
  82.  
  83. END FUNCTION
  84.  
  85. FUNCTION Smax! (a!, b!)
  86.  
  87. IF a! > b! THEN
  88.      Smax! = a!
  89. ELSE
  90.      Smax! = b!
  91. END IF
  92.  
  93. END FUNCTION
  94.  
  95. FUNCTION Smin! (a!, b!)
  96.  
  97. IF a! < b! THEN
  98.      Smin! = a!
  99. ELSE
  100.      Smin! = b!
  101. END IF
  102.  
  103. END FUNCTION
  104.  
  105.