有关产生随机数的问题！！！散分啦(100分)

  • 主题发起人 主题发起人 nzfboy
  • 开始时间 开始时间
N

nzfboy

Unregistered / Unconfirmed
GUEST, unregistred user!

//产生随机数的一段函数
function myrandom(a,b:integer):integer;
begin
radomize;
if a<=b then
result:=random(b-a)+a
else result:=random(a-b)+b;
end;
它报错：为什么原因，如何解决？
[Error] Frameu.pas(118): Undeclared identifier: 'radomize'
[Fatal Error] pFrame.dpr(5): Could not compile used unit 'Frameu.pas'
 
简单啊，就是函数名写错了。是Randomize，不是Radomize。
 
哈哈，又来拣分了
把你的radomize改成Randomize 就ok了，记的给分我喔！！谢谢
 
按照入下改:
1,radomize ==>randomize
 
我来迟了，你说怎么办
 
老兄，我来的更迟了！[:(]
 
radomize ==>randomize
 
老兄，我最后，散分了。
 
我来晚了
还能不能得分
 
等我大口大口喘着气跑进来 ～
看见前面已经排了很长的队！
：（
 
老兄有没有搞错哟，这么长时间还不结束？看来我是没分了，不过你赶紧结束吧。
 
还没结束，赶紧来抢分！！！
 
function myrandom(a,b:integer):integer;
begin
Randomize;
if a<=b then
result:=random(b-a)+a
else result:=random(a-b)+b;
end;
 
Randomize
 
function myrandom(a,b:integer):integer;
begin
Randomize;
if a<=b then
result:=random(b-a)+a
else result:=random(a-b)+b;
end;
这样就可以了，问题解决了就快点结束，不要浪费其他人的时间和空间
 
我也知道,但都這麼多富翁回答了.我就不畫蛇添足了
 
凑个热闹[:D][:D]
 
function myrandom(a,b:integer):integer;
还可以分点吧
begin
Randomize;
if a<=b then
result:=random(b-a)+a
else result:=random(a-b)+b;
end;

 
啊呀，我最后啦。
 
您必须登录或注册才可回复。

Similar threads

B
★★★关于随机数：求randomize random的用法及注意事项及原理及其它的随机方法？我给分。谢谢(20分)
回复
5
查看
178
bcfans
B
M
请问 delphi 的 random 算法的随机数是怎样产生的？为什么还要初始化，不初始化的话得出来的数都是一样的？(50分)
回复
6
查看
820
htw
H
T
关于随机数的问题~(0分)
回复
4
查看
109
tiger_520
T
W
请各位帮帮忙，关于生成控件的一个问题 (15分)
回复
4
查看
134
bamfk1023
B
G
有关Random随机数发生器(100分)
回复
4
查看
208
jomee
J
后退
顶部