unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) btn1: TButton; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation uses Math;{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject);var R: Extended;begin R := Power(27, 1/3); // 27的3次方根 R := Power(27, 1/5); // 27的5次方根 ShowMessage(Format('%.4f', [R]));end;end.