Cocker

PowerPRO

Mar 20th, 2011
97
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.08 KB | None | 0 0
  1. function Power(a:real;b:integer):real;
  2. begin
  3. Power := exp(b * ln(a));
  4. end;
Add Comment
Please, Sign In to add comment