配列その3

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に「なし」と書くには工夫が必要です。

戻る