home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB21.ZIP / POWER.SRC < prev    next >
Encoding:
Text File  |  1985-06-09  |  107 b   |  6 lines
  1. FUNCTION POWER(MANTISSA,EXPONENT : REAL) : REAL;
  2.  
  3. BEGIN
  4.   POWER := EXP(LN(MANTISSA) * EXPONENT)
  5. END;
  6.