怎样在DELPHI中编写计算公式的程序？

来源：百度知道 编辑：UC知道 时间：2024/06/04 07:43:34
怎样编Y等于A乘以X的B次方，其中A等于e的a次方（原式是a=lnA,现在要求出A用于第一个公式）

急用啊，各位大大谢谢了！！！！！！

funtion getA(e: extended) : extend;
var
a : extended;
sum : extended;
begin
A := 1;
sum := 1;
e :=?? //先赋值
for a:=1 to a do //这里的a为实际数值,即多少次方
begin
A := sum;
A := A * e;
sum := A;
end;
result := sum ;
end;

procedure GetY();
var
e : extended;
i : extended;
X : extended;
Y : extended;
tmp : extended;
sum : extended;
begin
Y := 1;
tmp := 1;
X := ??; //赋个实际值给X；
A := getA(e);
for i :=1 to B do //同样B也是实际数值
begin
tmp := sum;
tmp := tmp * X;
sum := tmp ;
end;
Y := A * tmp;
showmessage(floattostr(Y));
end;