找了很久不知如何写。
帮帮忙。
帮帮忙。
解决方案 »
- 如何用语句修改ACCESS2000字段允许空字符串?
- cnpack里面的数据库连接池控件
- 如何设计远程网络版进销存软件,客户是有40多家分店的大的集团公司,怎么把这些分公司联在一起?
- C语言中“char * params[]”的参数在delphi中该如何定义?100分求解决放过。
- 分数不够再开帖!
- 不要嫌分少,我刚来,没分呀
- 请问控制台程序(console application)如果获得程序的所在路径?
- 只要能解决,多少分都好说!(很急,在线等待!)
- WORD文件被破坏,如何恢复??
- 我想给SpeedButtom.Glyph赋值,该怎么做
- 终于有了五个三角角,尽情高兴,散分!
- 请问,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方应该够用了吧,太高次你试试,可能会慢!