求助 [复制链接]

一个数m的n次方用pascal怎么实现?

引用第1楼zhuang于2006-11-05 21:43发表的:
m^n=e^(ln(m^n))=e^(n(lnm))
所以可以用exp(n*ln(m))

right

m^n用Free Pascal可以用m**n，注意返回的是longint以内的。

如果要更大的可以编子程序：
function power(a,b:integer) : int64;
var i:integer;
jg:int64;
begin
jg:=1;
for i:=1 to b do jg:=jg*a;
exit(jg);
end;

调用的时候用power(m,n)就可以了，注意在FP下编译

m^n=e^(ln(m^n))=e^(n(lnm))
所以可以用exp(n*ln(m))