home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / source / minmax.mod < prev    next >
Encoding:
Text File  |  1987-11-10  |  3.5 KB  |  69 lines
  1. (*----------------------------------------------------------------------*)
  2. (*               Min --- Find minimum of two integers                   *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. FUNCTION Min( A, B: INTEGER ) : INTEGER;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*   Function: Min                                                      *)
  10. (*                                                                      *)
  11. (*   Purpose:  Returns smaller of two numbers                           *)
  12. (*                                                                      *)
  13. (*   Calling sequence:                                                  *)
  14. (*                                                                      *)
  15. (*      Smaller := MIN( A , B ) : INTEGER;                              *)
  16. (*                                                                      *)
  17. (*         A       --- 1st input integer number                         *)
  18. (*         B       --- 2nd input integer number                         *)
  19. (*         Smaller --- smaller of A, B returned                         *)
  20. (*                                                                      *)
  21. (*                                                                      *)
  22. (*   Calls:  None                                                       *)
  23. (*                                                                      *)
  24. (*                                                                      *)
  25. (*----------------------------------------------------------------------*)
  26.  
  27. BEGIN (* Min *)
  28.  
  29.    IF ( A < B ) THEN
  30.       Min := A
  31.    ELSE
  32.       Min := B;
  33.  
  34. END   (* Min *);
  35.  
  36. (*----------------------------------------------------------------------*)
  37. (*               Max --- Find maximum of two integers                   *)
  38. (*----------------------------------------------------------------------*)
  39.  
  40. FUNCTION Max( A, B: INTEGER ) : INTEGER;
  41.  
  42. (*----------------------------------------------------------------------*)
  43. (*                                                                      *)
  44. (*   Function:  Max                                                     *)
  45. (*                                                                      *)
  46. (*   Purpose:  Returns larger of two numbers                            *)
  47. (*                                                                      *)
  48. (*   Calling sequence:                                                  *)
  49. (*                                                                      *)
  50. (*      Larger := MAX( A , B ) : INTEGER;                               *)
  51. (*                                                                      *)
  52. (*         A       --- 1st input integer number                         *)
  53. (*         B       --- 2nd input integer number                         *)
  54. (*         Larger  --- Larger of A, B returned                          *)
  55. (*                                                                      *)
  56. (*                                                                      *)
  57. (*   Calls:  None                                                       *)
  58. (*                                                                      *)
  59. (*----------------------------------------------------------------------*)
  60.  
  61. BEGIN (* Max *)
  62.  
  63.    IF ( A > B ) THEN
  64.       Max := A
  65.    ELSE
  66.       Max := B;
  67.  
  68. END   (* Max *);
  69.