Re: [請益] 統計

看板Perl作者 (喔耶)時間18年前 (2006/05/25 17:25), 編輯推噓1(100)
留言1則, 1人參與, 最新討論串6/6 (看更多)
※ 引述《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

05/25 18:39, , 1F
俺標色的那些東西學了沒@"@ 如果還沒請再加一項"副程式"
05/25 18:39, 1F
文章代碼(AID): #14TNWMi1 (Perl)
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 6 之 6 篇):
請益
請益
2
2
請益
1
1
文章代碼(AID): #14TNWMi1 (Perl)