Question

delphi中有没有求一个数的n次方的函数

Answer 1

在free pascal中有个power函数，在delphi的标准函数中没有，其实求x^n可以用exp(n*ln(x))替代 ！

procedure TForm1.Button1Click(Sender: TObject);
begin
      showmessage(floattostr(exp(2*ln(2.1))));
end;

end.


或者在前面的uses子句中加入 math 单元，这是可以使用power函数：
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,math;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
      showmessage(floattostr(exp(3*ln(2.1))));
      showmessage(floattostr(power(2.1,3)));
end;

end.