菜鸟问题:x的y次方怎么实现。当xy均为double时,用power肯定不行阿(急急急!)(50分)

B

boyi_cj

Unregistered / Unconfirmed
GUEST, unregistred user!
菜鸟问题:x的y次方怎么实现。当xy均为double时,用power肯定不行阿
 
怎么没人阿,分不够可以再加阿
 
function Power(const Base, Exponent: Extended): Extended;
怎么会不行呢???
 
用power是可以的
 
应该不问题,但 x 不能为负数!!
procedure TForm1.Button2Click(Sender: TObject);
var
x,y,z:double;
begin
x:=1.23;
y:=4.4;
z:=power(x,-y);
showmessage(floattostr(z));
end;
 
使用Power()函数注意使用 Unit Math,应该能行的!
 
function Power(x, y : extended) : extended;
begin
result := exp(y*ln(x));
end;

 
在开发一个小系统的时候,想用Power(X,1/n)函数计算一个多次开方,但是,系统运行的时候该函数所属功能却没有反应,晕!我仔细的检查了好几遍,发现编码没问题,请问:为什么Delphi6.0中的Power函数没响应??谢谢
 
顶部