• <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>
            

    
            

            




            







												


        


            


            牽著老婆滿(mǎn)街逛
            

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

            




            
	
					
	
            
		
            
			產(chǎn)生不重復(fù)隨機(jī)數(shù)的簡(jiǎn)便算法
		
            
		產(chǎn)生不重復(fù)隨機(jī)數(shù)的算法能夠解決諸如隨機(jī)洗牌，抽彩等問(wèn)題，在網(wǎng)上的一些算法自覺(jué)較繁，現(xiàn)給出簡(jiǎn)單的算法。以下源程序?yàn)?..36個(gè)數(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;
            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 楊粼波 閱讀(1153) 評(píng)論(0)  編輯 收藏 引用  
		
            
	
            
	
	





            
	    
    




            



            


            

	
            
		
		
            只有注冊(cè)用戶(hù)登錄后才能發(fā)表評(píng)論。
            
		
            
		
				
		
		
		
            
		
            			
		
		
		
		
            
		
            
			
		
            
		
            
			
		
            
		
            
			
            網(wǎng)站導(dǎo)航:
			博客園  
			IT新聞  
			BlogJava  			
			博問(wèn)  
			Chat2DB  
			管理
			
            		
		
            
		
            
			
				

            


            

            		
		
            
	
            	

            



            

				

            



    
    







            
	   
	



久久精品无码午夜福利理论片|
久久国产视频99电影|
热RE99久久精品国产66热|
日韩欧美亚洲国产精品字幕久久久|
亚洲综合婷婷久久|
久久天天日天天操综合伊人av
|
四虎国产精品免费久久5151|
色偷偷888欧美精品久久久|
国产999精品久久久久久|
色欲av伊人久久大香线蕉影院|
久久精品一区二区三区AV|
日韩久久无码免费毛片软件|
伊人久久大香线蕉综合Av|
久久综合综合久久狠狠狠97色88|
国产69精品久久久久APP下载|
亚洲午夜精品久久久久久人妖|
三级韩国一区久久二区综合
|
亚洲国产精品久久久久|
日韩精品久久久久久|
人人狠狠综合久久亚洲|
国产精品岛国久久久久|
精品熟女少妇a∨免费久久|
久久久久久亚洲Av无码精品专口|
午夜福利91久久福利|
精品亚洲综合久久中文字幕|
久久久免费精品re6|
国产成人精品综合久久久|
欧美噜噜久久久XXX|
色播久久人人爽人人爽人人片aV
|
久久99久久无码毛片一区二区|
国产精品gz久久久|
久久99久久99精品免视看动漫|
亚洲欧美成人久久综合中文网
|
人妻无码αv中文字幕久久琪琪布|
情人伊人久久综合亚洲|
国内精品久久久久影院薰衣草|
久久久久国产成人精品亚洲午夜|
国产高潮国产高潮久久久91
|
精品国产一区二区三区久久久狼|
久久久久久久久波多野高潮|
色诱久久av|