Question

delphi7 求一个数的N次方的函数

delphi7 中有没有求一个数的N次方的函数？
如果没有请告诉一个方法，
例如：求2的N次方，N值是1+2+3+...+n。
procedure TForm1.Button1Click(Sender: TObject);
begin
while t<10 do
begin
t:=t+1;
z:=z+t;
end;
edit2.Text:=inttostr(z);
x:=2;
begin
for y:=1 to z-1 do
x:=2*x
end;
edit1.Text:=inttostr(x);
end;
end.

谢谢一楼，虽然，我已经自己搞好了，但是还是感谢你的热心帮助我。

Answer 1

function cifang(a,n:integer) return integer;
var
i,j,k:integer;

begin
j:=0;
k:=1;
for i:=1 to n do begin
j:=j+i;
end;
for i:=i to j do begin
k:=k*a
end;
end;

Answer 2

delphi7函数参考大全 下下来吧 个人感觉非常好用 就是大了点 百来兆。。

Answer 3

Power(2, N);