牽著老婆滿街逛

嚴(yán)以律己,寬以待人. 三思而后行.
GMail/GTalk: yanglinbo#google.com;
MSN/Email: tx7do#yahoo.com.cn;
QQ: 3 0 3 3 9 6 9 2 0 .

導(dǎo)航

<

2025年9月

>

日

一

二

三

四

五

六

31

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

1

2

3

4

5

6

7

8

9

10

11

統(tǒng)計

隨筆 - 1513
文章 - 45
評論 - 907
引用 - 0

公告

言論：
1.每日自省；
2.享受人生；
3.盡力而為；
4.堅持不懈；
5.切莫急躁；
6.慎言敏行；
7.動心忍性；
8.上善若水。

常用鏈接

留言簿(11)

隨筆分類(466)

隨筆檔案(1513)

文章分類(46)

文章檔案(45)

相冊

收藏夾(39)

搜索

積分與排名

積分 - 2523554
排名 - 2

閱讀排行榜

產(chǎn)生不重復(fù)隨機(jī)數(shù)的簡便算法

產(chǎn)生不重復(fù)隨機(jī)數(shù)的算法能夠解決諸如隨機(jī)洗牌，抽彩等問題，在網(wǎng)上的一些算法自覺較繁，現(xiàn)給出簡單的算法。以下源程序為1..36個數(shù)字，隨機(jī)排列，產(chǎn)生不重復(fù)隨機(jī)數(shù)。

var

aa?:?array[1..36]?of?string[2];?//aa數(shù)組為需要隨機(jī)排列的數(shù)組，

{先把1..36按順序給aa數(shù)組賦值}

procedure?TForm1.FormCreate(Sender:?TObject);

var

i:integer;

begin

for?i:=1?to?36?do?begin

aa[i]:=inttostr(i);

bb[i]:=inttostr(i);

end;

{隨機(jī)進(jìn)行排列}

procedure?TForm1.Button1Click(Sender:?TObject);

var

i,j:integer;

swapa:string[2];

begin

randomize;

for?i:=1?to?36?do?begin

j:=1+random(36);

swapa:=aa[i];

aa[i]:=aa[j];

aa[j]:=swapa;

end;?//由此得到不重復(fù)的隨機(jī)排列數(shù)字

posted on 2006-04-17 17:14 楊粼波閱讀(1157) 評論(0) 編輯收藏引用

只有注冊用戶登錄后才能發(fā)表評論。
【推薦】100%開源！大型工業(yè)跨平臺軟件C++源碼提供，建模，組態(tài)！



網(wǎng)站導(dǎo)航: 博客園 IT新聞 BlogJava 博問 Chat2DB 管理

青青草原综合久久大伊人导航_色综合久久天天综合_日日噜噜夜夜狠狠久久丁香五月_热久久这里只有精品

牽著老婆滿街逛

導(dǎo)航

統(tǒng)計

公告

常用鏈接

留言簿(11)

隨筆分類(466)

隨筆檔案(1513)

文章分類(46)

文章檔案(45)

相冊

收藏夾(39)

工具官網(wǎng)

技術(shù)網(wǎng)站

開源網(wǎng)站

其他窩點

收藏網(wǎng)站

銀行官網(wǎng)

友情鏈接

資源共享

搜索

積分與排名

最新評論

閱讀排行榜

產(chǎn)生不重復(fù)隨機(jī)數(shù)的簡便算法