10個の数a(0),a(1),・・・a(9)を大きい順に並び替える。 ボタンをクリックすると降順(大きい順)に並び替え・・・定石です・・・てピクチャに書き出す。 配列値が与えられた数になるようなのは何番目か?
新たなコマンドボタンを作
for i=0 to 8←注意
for j=i+1 to 9←注意
if a(i)<a(j) then
w=a(i) ・・・まずa(i)の中身を空き箱wに移して
a(i)=a(j)・・・空になったa(i)にa(j)の値を入れて
a(j)=w ・・・a(j)にはwの中身を入れる。この比較を9回行う。
end if
next j
next i
この結果,整列が行われます。昇順(小⇒大)も同様にできます。a(i)をあらためてpicture1にprintすればデキアガリです。
新たなコマンドボタン,テキストボックス2個を作る。
text1に数mを与えて
m=text1.text
for i=0 to 9
if m=a(i) then
k=i ・・・mに等しい数があればその番号をkとする。この比較を10回行う。.
next i
kをtext2に出力すればデキアガリです。該当するものがない場合text2に「なし」と書くには工夫が必要です。戻る