HSPTV!掲示板

乱数1〜10を指定回数発生させ、
そのうち一番発生した回数の多かったものを、
表示するようなスクリプトを考えているのですが、
何かいい方法はありませんか？

配列をカウンタとして使えば出来ます。

	randomize
	repeat 100
	k(rnd(10))++
	loop

	max=0
	repeat 10
	mes ""+cnt+":"+k(cnt)
	if max<k(cnt) : max=k(cnt) : max2=cnt
	loop

	mes "\n最も発生した数値"+max2

0〜9で発生させていますが、少し変えれば1〜10にも出来ると思います。

レスありがとうございます

このスクリプトを少しいじってみたのですが、
ボタンなどで実行すると、
どんどんcntが累積してしまうのですが、
ボタンを押す度にリセットして実行し直すにはどうしたらいいんでしょう？

カウントが蓄積されるのは
カウントに使った変数がリセットされてないからですよ・・・たぶん

べなりあさんのソースを少々いじって

p1=100
*top
cls
mes "↓乱数発生数"
input p1
button "もう一度",*top
pos 0,80
randomize
dim k,10 //ここで一度、蓄積カウントを０に再定義
repeat p1
k(rnd(10))++
loop

max=0
repeat 10
mes ""+cnt+":"+k(cnt)
if max<k(cnt) : max=k(cnt) : max2=cnt
loop

mes "\n最も発生した数値"+max2
stop


こんな感じですかね？

レスありがとうございます

dim k,10　の10の部分は、
乱数を発生させる数に応じて増やした方がいいのでしょうか…？

あら・・・スクリプト囲むの忘れてた；；

乱数が１〜１０の間１０コ（このスクリプトでは０〜９の１０コ）
なので配列定義数が１０になってる。

乱数の幅を広げたり狭めたりしたら変える必要がありますね。

ちなみにdimでリセットするという意味なら「dim k,0」としてかまいません。

p1=100 : p2 = 10
mes "↓乱数発生回数"
input p1
mes "↓乱数の範囲"
input p2
button "もう一度",*top

*top
redraw 0 : color 255,255,255 : boxf 0,130 : color : pos 0,150
randomize
dim k,0 //ここで一度、蓄積カウントを０に再定義
;dim k,p2	;この場合はいっそこうしてしまったほうが簡単ではある。

maxr=0
repeat p1
	r = rnd(p2)
	k(r)++		;←配列が自動確保されます。
	if maxr<r : maxr=r	;配列がいくつまで確保されたか確認。
loop
max=0
repeat maxr+1	;確保された配列の分だけチェックする。
	mes ""+cnt+":"+k(cnt)
	if max<k(cnt) : max=k(cnt) : max2=cnt
loop

pos 0,130 : mes "最も発生した数値"+max2
redraw 1
stop

しかし、処理が面倒だった…。作るんじゃなかった。

とこのようになるので、素直に必要な個数分だけ宣言しておいたほうがいいです。


ほんとになんでこんなサンプル作ったんだろう…。orz

>>堀木さん
わかりました！
乱数に合わせて変えて置く事にします〜

>>GENKIさん
分かりやすいスクリプトで説明していただいて感謝です！
実行してみて気になった事があるのですが…
p2の数が多くなると、

	mes ""+cnt+":"+k(cnt)

の行数がウィンドウに収まりきらなくなる現象を、
どうにかする手立てというのはあるのでしょうか？
今のところこの一文を外して結果のみを表示しようとしているのですが…

・・・・・・・・・・・。

とりあえずposとエディタで打って、それにカーソル合わせてf1押せば良いんでね？

>>GENKIさん
lengthで普通に取得できますよ。

･･･
//maxr=0
repeat p1
	r = rnd(p2)
	k(r)++		;←配列が自動確保されます。
	//if maxr<r : maxr=r	;配列がいくつまで確保されたか確認。
loop
max=0
//repeat maxr+1	;確保された配列の分だけチェックする。
repeat length(k)
･･･

そうか・・・dimの配列定義数０ってできるのか・・・Hsp２ではエラーになったが・・・。
GENKIさんのスクリプトの

	if max<k(cnt) : max=k(cnt) : max2=cnt
loop

この２行の間に

if ginfo(23)>420 : pos ginfo(22)+ginfo(14)+20,150

とでも入れれば「縦方向」については解消できると思われ。

ぇ？横にはみ出す？そこまでいうならListboxでも使うといいよorz

>>堀木さん
私もいろいろやって見たものの、
上手く表示する事すら出来ませんでした；
これはもうはみ出す運命なんだと諦めて結果のみの表示にしようと思います。


レスをくれた皆様へ、
長々とお付き合いして頂いてありがとうございました〜
皆様への感謝とともに、
これで解決とさせて頂きます！
ありがとうございました〜

>> mk2さん
> lengthで普通に取得できますよ。

その手がありましたね。すっかり忘れてました…。

行数多すぎて表示できなくなって困るならmesbox命令使うのもいいですね。