線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:7922
推到 Plurk!
推到 Facebook!

翻牌遊戲

答題得分者是:it1506
lambor
一般會員


發表:1
回覆:0
積分:0
註冊:2012-10-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2012-10-14 02:02:51 IP:114.46.xxx.xxx 訂閱
 請問各位 最近寫了一個翻牌的記憶遊戲,可是都會出現一樣的牌

不知道各位有沒有什麼取亂數的好方法

謝謝各位
sryang
尊榮會員


發表:39
回覆:762
積分:920
註冊:2002-06-27

發送簡訊給我
#2 引用回覆 回覆 發表時間:2012-10-15 16:29:18 IP:211.103.xxx.xxx 訂閱
提示 1:亂數種子
提示 2:洗牌法
------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/
P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#3 引用回覆 回覆 發表時間:2013-07-29 13:43:24 IP:59.120.xxx.xxx 未訂閱
你給的亂數種子都是同一個值, 所以出現一樣的數據, 
再明說一點
亂數種子再以亂數取得, 如何產生亂數, 我最常用的方式是用日期時間再給一堆加減乘除算出數字做為種子
===================引 用 lambor 文 章===================
請問各位 最近寫了一個翻牌的記憶遊戲,可是都會出現一樣的牌

不知道各位有沒有什麼取亂數的好方法

謝謝各位
it1506
初階會員


發表:33
回覆:89
積分:49
註冊:2011-02-16

發送簡訊給我
#4 引用回覆 回覆 發表時間:2015-02-13 09:14:30 IP:59.120.xxx.xxx 未訂閱
亂數的產生法
[code delphi]
var
Nums,ranarr,統計: array of integer;
i,j,k,l,temp,A,B,C,D: integer;
begin
mmo1.Lines.Clear;
setlength(統計,39); //統計號碼出現數
setlength(ranarr,7); //產生 0~B陣列 0不用
for i := 1 to 38 do begin
統計[i] :=0;
end;

A:=1;
B:=38;
C:=1;
D:=6;
setlength(Nums,B 1); //產生 0~B陣列 0不用
for i := 1 to B do begin
Nums[i] := i; //初始化陣列..照順序排好的
end;

for l := 1 to 20000000 do begin
randomize; ///亂數種子

for i := 1 to B do begin
j := RandomRange(1,(B 1)); //以陣列範圍取亂數,交換裡面的值
k := RandomRange(1,(B 1));
temp := Nums[j]; //交換值
Nums[j] := Nums[k];
Nums[k] := temp;
end;

// randomize; ///亂數種子
for i := 1 to D do begin
ranarr[i] := i; //初始化陣列..照順序排好的
end;
for i := 1 to D do begin
j := RandomRange(1,(D 1)); //以陣列範圍取亂數,交換裡面的值
k := RandomRange(1,(D 1));
temp := ranarr[j]; //交換值
ranarr[j] := ranarr[k];
ranarr[k] := temp;
end;

for i := 1 to 6 do begin
統計[Nums[ranarr[i]]]:= 統計[Nums[ranarr[i]]] 1;
//mmo1.Lines.Add('第' inttostr(i) '號:' IntToStr(Nums[ranarr[i]]));
end;

end;

for I := 1 to 38 do begin
mmo1.Lines.Add('第' inttostr(i) '號:' IntToStr(統計[i]));
end;
[/code]
我的樂透寫法
你參考亂數的部分看看

===================引 用 lambor 文 章===================
請問各位 最近寫了一個翻牌的記憶遊戲,可是都會出現一樣的牌

不知道各位有沒有什麼取亂數的好方法

謝謝各位
系統時間:2024-11-10 22:27:38
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!