さいころの目の出た数を数えるスクリプト。
すなわち、1から6までの数を乱数で発生させ、
1から6までの、それぞれの数字の出た数の合計を求めます。
3つの方法があります。
まずは、if を使った場合です。
randomize c1=0 : c2=0 : c3=0 c4=0 : c5=0 : c6=0 repeat 10000 n=rnd(6)+1 if n=6 : c6++ if n=5 : c5++ if n=4 : c4++ if n=3 : c3++ if n=2 : c2++ if n=1 : c1++ loop mes c1 : mes c2 : mes c3 mes c4 : mes c5 : mes c6 stop
今度は、switch case を使った場合です。
randomize c1=0 : c2=0 : c3=0 c4=0 : c5=0 : c6=0 repeat 10000 n=rnd(6)+1 switch n case 6 c6++ : swbreak case 5 c5++ : swbreak case 4 c4++ : swbreak case 3 c3++ : swbreak case 2 c2++ : swbreak case 1 c1++ : swbreak swend loop mes c1 : mes c2 : mes c3 mes c4 : mes c5 : mes c6 stop
今度は、HSPの特徴である配列やforeachを使った場合です。
dim c,7 c.1=0 : c.2=0 : c.3=0 c.4=0 : c.5=0 : c.6=0 randomize repeat 10000 n=rnd(6)+1 c.n++ loop foreach c mes "#"+cnt+":"+c.cnt loop stop