• <ins id="pjuwb"></ins>
    <blockquote id="pjuwb"><pre id="pjuwb"></pre></blockquote>

    <noscript id="pjuwb"></noscript>
          <sup id="pjuwb"><pre id="pjuwb"></pre></sup>

            <dd id="pjuwb"></dd>
            <abbr id="pjuwb"></abbr>
            

    
            

            




            







												


        


            


            牽著老婆滿街逛
            

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

            




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

            var
            aa?:?array[            1..36]?of?string[2];?//aa數(shù)組為需要隨機排列的數(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;
            end;

            {隨機進行排列}
            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;?            //由此得到不重復的隨機排列數(shù)字
            
		
            
			posted on 2006-04-17 17:14 楊粼波 閱讀(1153) 評論(0)  編輯 收藏 引用  
		
            
	
            
	
	





            
	    
    




            






            

				

            



    
    







            
	   
	



久久精品国产亚洲av麻豆色欲|
久久精品一区二区影院|
久久精品亚洲男人的天堂|
久久中文骚妇内射|
亚洲国产精品无码久久98|
国产aⅴ激情无码久久|
伊人久久大香线蕉精品不卡|
久久国产成人午夜aⅴ影院
|
久久久午夜精品|
亚州日韩精品专区久久久|
久久一区二区三区免费|
久久久久亚洲AV无码专区桃色|
久久久久亚洲AV无码去区首|
欧美性大战久久久久久|
亚洲精品美女久久久久99小说|
久久影院久久香蕉国产线看观看|
午夜福利91久久福利|
伊人色综合九久久天天蜜桃|
香蕉久久夜色精品国产尤物|
久久亚洲AV无码精品色午夜|
国内精品伊人久久久影院|
性色欲网站人妻丰满中文久久不卡|
亚洲香蕉网久久综合影视
|
久久精品国产精品青草|
亚洲一本综合久久|
人妻精品久久久久中文字幕|
久久人人爽人人爽人人片AV高清|
男女久久久国产一区二区三区|
久久99精品久久久久久久不卡|
国产精品日韩深夜福利久久|
亚洲国产视频久久|
69国产成人综合久久精品|
久久无码一区二区三区少妇|
热99RE久久精品这里都是精品免费
|
色综合久久中文色婷婷|
久久99精品久久久久久野外|
久久久久久综合网天天|
久久99国产精品久久99果冻传媒|
99久久无码一区人妻a黑|
亚洲精品视频久久久|
久久国产乱子伦精品免费强|