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

    
            

            




            







												


        


            


            牽著老婆滿街逛
            

            嚴(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ù)的簡便算法
		
            
		產(chǎn)生不重復(fù)隨機(jī)數(shù)的算法能夠解決諸如隨機(jī)洗牌，抽彩等問題，在網(wǎng)上的一些算法自覺較繁，現(xià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 楊粼波 閱讀(1156) 評(píng)論(0)  編輯 收藏 引用  
		
            
	
            
	
	





            
	    
    




            



            


            

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

            


            

            		
		
            
	
            	

            



            

				

            



    
    







            
	   
	



亚洲精品国精品久久99热|
国产精品一区二区久久|
四虎国产精品成人免费久久|
久久综合视频网站|
国产精品久久久久AV福利动漫|
久久精品国产只有精品2020|
色99久久久久高潮综合影院|
久久人人妻人人爽人人爽|
久久久久九国产精品|
精品国际久久久久999波多野|
久久综合色之久久综合|
久久99精品久久久久久|
伊人久久亚洲综合影院|
99精品久久久久久久婷婷|
久久精品国产亚洲AV香蕉|
噜噜噜色噜噜噜久久|
国产精品热久久无码av|
99精品久久久久中文字幕|
久久人人爽人人人人片av|
久久精品国产色蜜蜜麻豆|
国产 亚洲 欧美 另类 久久|
久久久久无码精品国产|
久久精品国产男包|
国产精品久久久久久久久久影院|
久久精品www|
久久99热国产这有精品|
www.久久99|
久久精品一区二区国产|
久久人人妻人人爽人人爽|
久久影院综合精品|
久久男人Av资源网站无码软件|
国色天香久久久久久久小说|
亚洲va久久久久|
久久精品国产亚洲AV久|
亚洲精品乱码久久久久久蜜桃不卡
|
久久人人爽人爽人人爽av|
久久精品国产亚洲精品2020|
99久久成人国产精品免费|
久久se精品一区精品二区|
9999国产精品欧美久久久久久|
丁香久久婷婷国产午夜视频|