求一个数的几次方应如何实现(50分)

C

cqsssco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #1

求一个数的几次方应如何实现

 

L

Laird

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #2

var
Form1: TForm1;
x,y:integer;
implementation
{$R *.dfm}
function Tform1.test(a:integer ;b:integer): integer;
begin
x:= a;
for y:=1 to b-1 do
x:=x*a;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
test(2,9);//2 9 可以改成你想要的。比如 strtoint(edit1.text) strtoint(edit2.text)
end;
//笨办法。

 

C

CaoAizu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #3

Pascal 中没有专门的乘方函数 所以只能用循环来解决问题

 

Q

QuickSilver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #4

uses Math;
function Power(Base, Exponent: Extended): Extended;
求5的7次方 power(5,7)

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #5

赞同 QuickSilver，因为 Power 的指数可为实数（只要 Base > 0）

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #6

如果确定只用整数可以用 IntPower, 应该快一些