作者imce (蜥蜴)
看板perl
标题Re: [请益] 统计
时间Wed May 24 21:57:20 2006
※ 引述《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";
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.120.15.17
※ 编辑: imce 来自: 140.120.15.17 (05/24 22:02)