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

            




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

            var
            aa?:?array[            1..36]?of?string[2];?//aa數組為需要隨機排列的數組，

            {先把1..36按順序給aa數組賦值}
            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;?            //由此得到不重復的隨機排列數字
            
		
            
			posted on 2006-04-17 17:14 楊粼波 閱讀(1154) 評論(0)  編輯 收藏 引用  
		
            
	
            
	
	





            
	    
    




            






            

				

            



    
    







            
	   
	



国产精品乱码久久久久久软件|
久久www免费人成看片|
久久久久久久久波多野高潮|
日韩人妻无码精品久久久不卡|
亚洲欧美日韩中文久久
|
婷婷久久综合九色综合98|
国产精品久久久福利|
亚洲日本va中文字幕久久|
国内精品伊人久久久久AV影院|
91精品国产综合久久四虎久久无码一级
|
人妻无码久久精品|
久久久久久精品无码人妻|
国产婷婷成人久久Av免费高清|
www亚洲欲色成人久久精品|
欧美激情精品久久久久久久九九九
|
伊人久久大香线蕉亚洲|
国产精品久久久久久久久鸭|
日韩电影久久久被窝网|
久久九九兔免费精品6|
国产福利电影一区二区三区久久久久成人精品综合
|
久久99国产精品成人欧美|
亚洲人成无码网站久久99热国产|
亚洲精品美女久久777777|
久久精品亚洲一区二区三区浴池|
欧美国产精品久久高清|
国产欧美一区二区久久|
亚洲国产成人久久笫一页|
国产精品九九久久免费视频
|
四虎影视久久久免费观看|
.精品久久久麻豆国产精品|
无夜精品久久久久久|
91精品日韩人妻无码久久不卡|
人妻无码久久一区二区三区免费
|
精品久久久久久中文字幕人妻最新|
久久精品国产亚洲av瑜伽|
亚洲国产精品久久电影欧美
|
色狠狠久久AV五月综合|
一本久久综合亚洲鲁鲁五月天亚洲欧美一区二区|
国产精品99久久99久久久|
欧美大香线蕉线伊人久久|
久久婷婷色综合一区二区|