各位delphi界好友您們好 本人寫了以下2^k的function，但覺不是太好， 請問有何方法能做出同樣結果，而又簡單的function呢? 如delphi內置有這個功能，該怎樣寫才得出同樣結果? 等候各位高手指點迷津 function Pow(P1,P2 : integer) :integer; //計算2^k次方 var P3, P4 :integer; begin if P2 = 0 then result :=1; P3 :=1; for P4 := 1 to P2 do P3 := P3*P1; result := P3; end; //計算2^k次方*********** jl 平常心活著

------
平常心活著

jl 你好     使用內置函式 function Power(const Base, Exponent: Extended): Extended; function IntPower(const Base: Extended; const Exponent: Integer): Extended register; 發表人 - chance36 於 2004/04/06 18:52:29

To Chance36: 使用內置函式 function Power(const Base, Exponent: Extended): Extended; function IntPower(const Base: Extended; const Exponent: Integer): Extended register; 但function Power(const Base, Exponent: Extended): Extended; 我是用integer output, Extended不合用,那怎樣用Extended to Integer呢? 我不懂，能否舉一例子呢?謝謝 jl 平常心活著

------
平常心活著

引言: 我是用integer output, Extended不合用,那怎樣用Extended to Integer呢?

jl 你好 Result := Trunc(Power(2,3));// 無條件捨去 Result := Round(Power(3,7));//結果 四捨六入五成雙 發表人 - chance36 於 2004/04/07 18:45:51

To Chance36: 謝謝您的解答，問題已得到完滿的解決。 From jl 平常心活著

------
平常心活著