home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / ADDSUB.INC next >
Encoding:
Text File  |  1988-01-29  |  806 b   |  49 lines
  1.  
  2. procedure iadd(var a: integer; b: integer);
  3. begin
  4.   a := a + b;
  5. end;
  6. procedure isub(var a: integer; b: integer);
  7. begin
  8.   a := a - b;
  9. end;
  10. procedure imult(var a: integer; b: integer);
  11. begin
  12.   a := a * b;
  13. end;
  14. procedure idiv(var a: integer; b: integer);
  15. begin
  16.   a := a div b;
  17. end;
  18.  
  19. procedure radd(var a: real; b: real);
  20. begin
  21.   a := a + b;
  22. end;
  23. procedure rsub(var a: real; b: real);
  24. begin
  25.   a := a - b;
  26. end;
  27. procedure rmult(var a: real; b: real);
  28. begin
  29.   a := a * b;
  30. end;
  31. procedure rdiv(var a: real; b: real);
  32. begin
  33.   a := a / b;
  34. end;
  35.  
  36. procedure rrange(var a: real; b,c: real);
  37. begin
  38.    if a < b then a := b else
  39.    if a > c then a := c;
  40. end;
  41.  
  42. procedure irange(var a: integer; b,c: integer);
  43. begin
  44.    if a < b then a := b else
  45.    if a > c then a := c;
  46. end;
  47.  
  48.  
  49.