Delphi中如何实现X的n次方,就是向vb中的X^n 找了很久不知如何写。帮帮忙。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Power函数!!!也可以自己写一个递归函数!!! unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Math;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Label1: TLabel; procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);var i :double ;begin Button1.SetFocus ; i:= Power(2.4,5); Label1.Caption := floatToStr(i);end;end. 邊乘的形式: 明显太慢,而且占空间;还不如先做log再加;delphi的手册都是这么可怜吧唧的用浮点运算来做的。 有个笨办法:用循环: for i:=1 to n do a:=a*a我想你的要求不会太高吧,一般的n方应该够用了吧,太高次你试试,可能会慢! 这样的C++类,该怎么改写成delphi的? 日期空值怎么表示? 系统托盘的问题? 再来一个问题,刚才的问题问错了,真夸张!~~~~~进来看!~ 那位兄弟给个数据库编程的例子??? 请教个问题:我在delphi里用到了临时表,在sql server 7里,正确,在oracle里不正确.请看源码 大家进来看看这问题了~~~~~~~~~~~~~~~~~~~~~~~~~ 用windows api建立了一个隐藏窗口,从头到尾它将会收到系统的哪些消息? 滚动显示问题,快来帮忙! 关于网页链接的问题,很急的 终于有了五个三角角,尽情高兴,散分! 请问,delphi 7有没有简体中文版?
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Math;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);
var i :double ;
begin
Button1.SetFocus ;
i:= Power(2.4,5);
Label1.Caption := floatToStr(i);
end;end.
delphi的手册都是这么可怜吧唧的用浮点运算来做的。
for i:=1 to n do
a:=a*a
我想你的要求不会太高吧,一般的n方应该够用了吧,太高次你试试,可能会慢!