注册外站的random question（求随机数问题）求解答？

来源：蜘蛛抓取(WebSpider) 时间：2014-11-07 11:50 标签： random 随机数
求翻译验证码 Random Question: What is the third word of this s_魔兽世界吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：5,634,299贴子：
求翻译验证码 Random Question: What is the third word of this s收藏
求翻译验证码 Random Question: What is the third word of this s
<div class="clearfix BAIDU_CLB_AD BAIDU_CLB_AD_pb" id="BAIDU_CLB_AD_">
What is the third word of this sentence?
第三个字在这里是什么意思,?
这是一个论坛的注册验证码
如何回答？
登录百度帐号我的游戏推荐游戏
后查看最近玩过的游戏
使用签名档&&
为兴趣而生，贴吧更懂你。或有关delphi的random随机函数使用问题_百度知道
有关delphi的random随机函数使用问题
假如在10以内随机选择一个值random(10)的情况下，每次的一个随机值都不与上一个重复。请高人指点一下菜人这样的语句怎么写？
那么这个问题该怎么解决？ ototing写的似乎不能解决该问题*****************************大侠，我每次选择的只有一个值就可以啦！请你举个4以内的随机选择值 random(4)的例子，每次一个随机值对应一种窗体颜色。看每点按钮是否与上次颜色重复？我增加悬赏分。
提问者采纳
（看后面的例子）我不明白你说我写的这个不能解决问题？可能是你对我的意思不太明白吧。我干脆做一个实例出来，新建一个工程，在窗体上加一个按钮和一个MEMO.代码如下：unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtype
TForm1 = class(TForm)
Button1: TB
procedure Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations }var
Form1: TForm1;
id:implementation{$R *.dfm}function MyRan(oldval:integer):beginrepeatResult:=random(10);until Result&&procedure TForm1.Button1Click(Sender: TObject);vari:beginfor i:=0 to 100 do
id:=MyRan(id);
Memo1.Lines.Add(inttostr(id))end.点击按钮后，MEMO1里面就产生100个不与上一个重复的10以内数字。 变颜色有何难，新建一个工程，在窗体上加一个按钮，然后代码如下：unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtype
TForm1 = class(TForm)
Button1: TB
procedure Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations }var
Form1: TForm1;
AColor: Array[0..3] of TCimplementation{$R *.dfm}function MyRan(oldval:integer):beginrepeatResult:=random(4);until Result&&procedure TForm1.Button1Click(Sender: TObject);vari:beginid:=MyRan(id);Color:=AColor[id];beginAColor[0]:=clRAColor[1]:=clWAColor[2]:=clGAColor[3]:=clBend.
提问者评价
thank you vary much!
其他类似问题
随机函数的相关知识
其他2条回答
这个问题实质是：产生一个从1到10的排列，然后从哪些排列中选一个。常见的错误做法是把random(10)+1循环10次---那保证不了重复；（即使改进算法，每一次检查10个数是否相同，也是不对的）。
vars,s1:begins1:=edit1.s:=random(10);if s=s1edit1.text:=s;
等待您来回答
您可能关注的推广回答者：
下载知道APP
随时随地咨询
出门在外也不愁相关期刊文献推荐
相关会议文献推荐
相关硕士文献推荐
相关博士文献推荐

我要回帖

更多关于 random 随机数 的文章

 

随机推荐