HSPTV!メルマガアーカイブ

« 【講座】「教えて！おにたま！！」 | メイン | HSPTV!メルマガ　第52号 »

2007年11月02日

【講座】HSPよく使うフレーズ　第38回 割合の決まった乱数

0から9までを1回ずつという様な特殊な乱数が欲しい！という
場合がたまにあります。
トランプのカードを配るようなときですね。

こんな場合は先に配列を用意して、その配列をシャッフルします。

サンプルでは20回実験して、その様子を表示します。

使うときは頭から順番にとりだすといいかも。

dim table,100
randomize
MAXNUM=10
repeat 20
gosub *rndsub
wait 1
loop
stop
;
*rndsub
repeat MAXNUM
table(cnt)=cnt
wait 1
loop
;gosub *hyouji
repeat MAXNUM
a=rnd(cnt+1)
tmp=table(a)
table(a)=table(cnt)
table(cnt)=tmp
wait 1
loop
gosub *hyouji
return
stop
;表示サブルーチン
*hyouji
disp=""
repeat MAXNUM
disp+= ""+table(cnt)+" "
wait 1
loop
mes disp
return
[rnd_sim.hsp / hsp3]

（うすあじ）

投稿者 usuaji : 2007年11月02日 09:36

口臭チェッカー市場