H hgtzy Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-03 #1 Delphi函数库里有随机函数吗？如何产生1到10之间的随机整数。谢谢！
Z zhihuali Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-03 #5 都错了，上面的产生的是 0 - 9，应该： Randomize; Random(10)+1;
L linglingx Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-03 #6 var ;i: integer; begin ; Randomize; ; i:=Random(10)+1; end;
D dcsdcs Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-03 #7 来晚了: 补充： Randomize; for i:=1 to 10 do array:=round(Random()*10+1);
欲 欲飞 Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-03 #8 ; ;请大家看Delphi的帮助，Randon(Range:Integer)产生的随机数x属于:{x|0<=x<Range} 并且返回的随机数是实型。如果用Randon(10)则返回的是0~9.999999999间的实数，如果用 Randon(10)+1的话则返回1~10.999999999间的实数。 ; ; 所以：1.如果要求产生的随机数不包括10,则用Int(Randon(10)) ; ; ; ; ; 2.如果要求产生的随机数包括10，则用Int(Randon(11))。 OK！
; ;请大家看Delphi的帮助，Randon(Range:Integer)产生的随机数x属于:{x|0<=x<Range} 并且返回的随机数是实型。如果用Randon(10)则返回的是0~9.999999999间的实数，如果用 Randon(10)+1的话则返回1~10.999999999间的实数。 ; ; 所以：1.如果要求产生的随机数不包括10,则用Int(Randon(10)) ; ; ; ; ; 2.如果要求产生的随机数包括10，则用Int(Randon(11))。 OK！
Z zhihuali Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-03 #10 To：小人物 ; 大家讨论讨论；运行下面的程序： var ; I:Integer; begin ; I:=(Random(10)+1); ; while (I>0) and (I<=10) do ; begin ; ; I:=(Random(10)+1); ; end; ; MessageBox(Handle,Pchar('程序出错了！'+IntToStr(I)),'提示框',MB_OK+MB_WARNING); end; ; ; ;
To：小人物 ; 大家讨论讨论；运行下面的程序： var ; I:Integer; begin ; I:=(Random(10)+1); ; while (I>0) and (I<=10) do ; begin ; ; I:=(Random(10)+1); ; end; ; MessageBox(Handle,Pchar('程序出错了！'+IntToStr(I)),'提示框',MB_OK+MB_WARNING); end; ; ; ;
Z zhihuali Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-03 #12 To：小人物 ; 没什么，只是大家讨论讨论。因为我曾经在这个问题上让我的程序出问题，让我找这个 错误找了好久，所有这种小问题是很可怕的。
Z zj1978 Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-03 #13 random其实产生不了真正的随机数 好象热点区上有个帖子,大家看看
