delphi7求一个数的N次方的函数delphi7中有没有求一个数的N次方的函数?如果没有请告诉一个方法,例如：求2的N次方,N值是1+2+3+...+n.procedureTForm1.Button1Click(Sender:TObject);beginwhilet

Question

delphi7 求一个数的N次方的函数
delphi7 中有没有求一个数的N次方的函数?
如果没有请告诉一个方法,
例如：求2的N次方,N值是1+2+3+...+n.
procedure TForm1.Button1Click(Sender:TObject);
begin
while t

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;