请教:如何求一个数的N次方根(50)

  • 主题发起人 主题发起人 youjiboli
  • 开始时间 开始时间
Y

youjiboli

Unregistered / Unconfirmed
GUEST, unregistred user!
请教:如何求一个数的N次方根比如:如何求一个数的3次方根、5次方根谢谢关注!
 
power(5,1/n);
 
要引用math单元~~
 
谢谢两位哈 但是我刚试过了power(5,1/n)这种方法不行啊引用math单元该如何使用啊 能不能举个简单的例子 谢谢
 
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.
 
楼上既是~~楼主看懂了吗也可以这样unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,[red]math[/red];//放在这里
 
谢谢szhcracker和de410,问题解决了 积分不多,一人分点,意思下,呵呵
 
后退
顶部