home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / CMPLTPAS.ZIP / POWER.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-09-29  |  901 b   |  19 lines
  1. {->>>>Power<<<<------------------------------------------------}
  2. {                                                              }
  3. { Filename : POWER.SRC -- Last Modified 9/29/88                }
  4. {                                                              }
  5. { This routine performs the general function of raising        }
  6. { Mantissa to the power Exponent.  This is slow as such things }
  7. { go; if you need to do this within a tight loop, be tricky    }
  8. { and do it some other way.                                    }
  9. {                                                              }
  10. {     From: COMPLETE TURBO PASCAL 5.0  by Jeff Duntemann       }
  11. {    Scott, Foresman & Co., Inc. 1988   ISBN 0-673-38355-5     }
  12. {--------------------------------------------------------------}
  13.  
  14. FUNCTION Power(Mantissa,Exponent : Real) : Real;
  15.  
  16. BEGIN
  17.   Power := Exp(Ln(Mantissa) * Exponent)
  18. END;
  19.