; random01.hsp ; ランダム化の確認 ; 2020-07-03 sugiura@nagoya-u.jp *hajime cls ;randomize pos 100, 50 mes "rnd()の()に次の数字を入れます。" pos 100, 100 kazu=6 input kazu button goto "OK", *random ;button goto "OK", *kurikaesi stop *random kekka = rnd(kazu) mes kekka /* *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