翻牌遊戲 |
答題得分者是:it1506
|
lambor
一般會員 發表:1 回覆:0 積分:0 註冊:2012-10-09 發送簡訊給我 |
|
sryang
尊榮會員 發表:39 回覆:762 積分:920 註冊:2002-06-27 發送簡訊給我 |
|
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
|
it1506
初階會員 發表:33 回覆:89 積分:49 註冊:2011-02-16 發送簡訊給我 |
亂數的產生法
[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 文 章=================== 請問各位 最近寫了一個翻牌的記憶遊戲,可是都會出現一樣的牌 不知道各位有沒有什麼取亂數的好方法 謝謝各位 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |