作者windmusic (喔耶)
看板perl
標題Re: [請益] 統計
時間Thu May 25 17:27:28 2006
※ 引述《imce (蜥蜴)》之銘言：
: ※ 引述《windmusic (喔耶)》之銘言：
: : 我要設計一個程式
: : 丟骰子6000次
: : 最後要統計看各面出現的次數各是幾次
: : 現在我已經把亂數設定好了
: : 但是不會統計他的次數
: : 有大大可以幫我解答嗎
: : 感激不盡OTL
: 我以為你有點基礎了＠＠，因為你說你已經把亂數設定好了
: 我寫的簡單程式如下，不用HASH改用陣列比較好講
: foreach(1..6000) #從1跑到6000，你要for($i=0;$i<6000;i++)也行
: {
: $a=int(rand(6))+1; #$a就是亂數1～6，因為骰子沒有0所以+1
: $ARRAY[$a]++; #陣列ARRAY的$a格次數+1，陣列應該懂了吧
: }
: #下面就是印結果了，跑過大概都在950-1050之間
: print "1的次數為：$ARRAY[1]\n";
: print "2的次數為：$ARRAY[2]\n";
: print "3的次數為：$ARRAY[3]\n";
: print "4的次數為：$ARRAY[4]\n";
: print "5的次數為：$ARRAY[5]\n";
: print "6的次數為：$ARRAY[6]\n";
真是太感謝i大
我之前說亂數設定好
是直接從書上抄下亂數設定的程式語言
若是要再加上統計次數的副程式
就不會了>"<
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.140.93.116
1F：推 qrtt1:俺標色的那些東西學了沒@"@ 如果還沒請再加一項"副程式" 05/25 18:39