World of Shareware - Software Farm 2/wosw_2.zip/wosw_2/PASCAL/MADTRB21.ZIP/POWER.SRC

Text File | 1985-06-09 | 107b | 6 lines

FUNCTION POWER(MANTISSA,EXPONENT : REAL) : REAL;

BEGIN
  POWER := EXP(LN(MANTISSA) * EXPONENT)
END;