Math function: POWER of a number

gwren1 · **Posted:** Fri Feb 26, 2010 4:41 pm

Function: Math_Power(num:Integer, index:Integer)
Returns the power of a number with a specified exponent/index

WARNING: Don't think this is a real math function. Exponents must be plain integers (1,2,3), don't try to use something like 0,3 because its not programmed like that, sadly.
Any enhancements are welcome.

Code:

//Returns the power of a number with a specified exponent/index
Export Function Math_Power(number,index);
var i;
begin
  if index < 1 then
    result := 1 //Anything to the power of 0 is 1.
  else
    result := Number;

  if index > 1 then
  for i=1 to index-1 do
  begin
    result:=result*number;
  end;
end;

Dedicated to McBenn. He might already solved this by himself. I remember he was wondering time ago.

And this is not mine. I googled it and then adapted it to OW. But hey, I'm posting it here.

Even more, the example that I googled had a flaw I had to fix, hehe.

stucuk · **Posted:** Fri Feb 26, 2010 5:25 pm

2^1 should be 2, with yours its 4. Your code would do anything to the power of Index+1. It should be:

Code:

//Returns the power of a number with a specified exponent/index
Export Function Math_Power(number,index);
var i;
begin
  if index < 1 then
    result := 1 //Anything to the power of 0 is 1.
  else
    result := Number;

  if index > 1 then
  for i=1 to index-1 do
  begin
    result:=result*number;
  end;
end;

P.S ^ = Power of in maths(Just not in SAIL).

gwren1 · **Posted:** Fri Feb 26, 2010 6:09 pm

stucuk wrote:

P.S ^ = Power of in maths(Just not in SAIL).

I know that. Thanks for the fix. Updated.

Math function: POWER of a number

Who is online