; simplerandom.hsp ; ランダム化の確認 ; 2020-06-27 sugiura@nagoya-u.jp *hajime cls randomize pos 100, 50 mes "下の個数の数字をランダムに並べ替えます" pos 100, 100 kazu=6 input kazu button goto "OK", *kurikaesi stop *kurikaesi cls repeat kazu x = rnd(cnt+1) ; rndは、0から()内の数字の前までの間で整数の乱数発生。()内の数字は含まれない R(cnt) = R(x) ; R(x) = cnt ; await 1 loop pos 470, 100 mes kazu mes "----" mes " ↓ mes "----" repeat kazu ;mes cnt mes R(cnt) mes "----" await 1 loop pos 100, 126 button goto "again", *kurikaesi button goto "change", *hajime button goto "end", *owari stop *owari end