作者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