Delphi中N的N次方计算方法

记得以前有个群问过此类问题，恰逢今日Blog新开，公布一下我的方法。其实就是个函数的应用罢了。

高手飘过~~~~~~

 

   
   
   
   

    
    
    
    
    1 
    
    
    
    procedure
    
    
    
     TForm1.Button1Click(Sender: TObject);

    
    
    
    2 
    
    
    
     
    
    
    
    var
    
    
    
    

    
    
    
    3 
    
    
    
     f : Real;

    
    
    
    4 
    
    
    
     
    
    
    
    begin
    
    
    
    

    
    
    
    5 
    
    
    
     f :
    
    
    
    =
    
    
    
     Power(
    
    
    
    2.2
    
    
    
    ,
    
    
    
    2.2
    
    
    
    );

    
    
    
    6 
    
    
    
     
    
    
    
    //
    
    
    
    f :
    
    
    
    =
    
    
    
     IntPower(
    
    
    
    2
    
    
    
    ,
    
    
    
    2.2
    
    
    
    );

    
    
    
    7 
    
    
    
     ShowMessage(FloatToStr(f));

    
    
    
    8 
    
    
    
    
    
    
    
    end
    
    
    
    ;