5,388
社区成员
发帖
与我相关
我的任务
分享各位看看我的代码对不对？
我要取1到3的任意实数，各位看看我下面的代码对不对：
procedure TForm1.Button1Click(Sender: TObject);
var
a:real;
begin
randomize;
a:=1+random(10)/10*2; //1到3的任意实数
end;
procedure TForm1.Button1Click(Sender: TObject);
var
a:real;
begin
randomize;
a:=1+random(10)/10*2; //1到3的任意实数
end;
...全文
请发表友善的回复…
发表回复
koma2003 2003-06-03
- 打赏
- 举报
可以的
kuangjingbo 2003-06-03
- 打赏
- 举报
行吧！
jianke5555 2003-06-03
- 打赏
- 举报
差不多是对的，建议用下面两种方法：
var
a:real;
begin
randomize;
a:=1+random(10)/10.0*2; //1到3的任意实数
end;
或：
var
a:real;
begin
randomize;
a:=1+random(1)*2; //1到3的任意实数
end;
var
a:real;
begin
randomize;
a:=1+random(10)/10.0*2; //1到3的任意实数
end;
或：
var
a:real;
begin
randomize;
a:=1+random(1)*2; //1到3的任意实数
end;
hookharsh 2003-06-03
- 打赏
- 举报
应该是可以的。
