VBS(9)　ソートのアルゴリズム（２）
単純選択法

メニューに戻りたいときはここをクリック。

Lesson 1 バブルソートの復習

手順

• スタートメニューから Z:ドライブ（個人用）を開く
• 既に作成した、vbsというフォルダーを選択
• メニューから「ファイル → 新規作成 → テキストドキュメント」とする。
• 「新規テキストドキュメント.txt（拡張子が表示されていること！）」というファイルが作成されるので、保存したい名前に変更する。今回は vbs0901.vbs という名前に変更する。
  「拡張子を変更すると、ファイルが使えなくなる可能性があります。変更しますか？」と聞かれるのが「はい(Y)」と答えて良い。
• 今作成した vbs0901.vbs をデスクトップのメモ帳にドラッグ＆ドロップする。
• メモ帳が開いて編集できるようになったら、以下のように入力

  dim x(10)
  x(1)=-9: x(2)=29: x(3)=7: x(4)=28: x(5)=2: x(6)=1: x(7)=2: x(8)=-12: x(9)=13: x(10)=0
  last=10
  do
      gyakuten=0
      for i=1 to last-1
  		if x(i)<x(i+1) then
  			temp=x(i+1):x(i+1)=x(i):x(i)=temp
  			gyakuten=1
  		end if
  	next
  	last=last-1
  loop while gyakuten<>0
  for i=1 to 10
  	kekka=kekka & x(i) & ", "
  next
  msgbox kekka,,"ソートの結果"
  

• 上記は１０個の数値をソートするプログラムである。大きい順にソートしているのか、小さい順にソートしているのかプログラムを見ただけで判断出来なければならない。

Lesson 2 （ソートの方法２　単純選択ソート）

手順

• スタートメニューから Z:ドライブ（個人用）を開く
• 既に作成した、vbsというフォルダーを選択
• メニューから「ファイル → 新規作成 → テキストドキュメント」とする。
• 「新規テキストドキュメント.txt（拡張子が表示されていること！）」というファイルが作成されるので、保存したい名前に変更する。今回は vbs0902.vbs という名前に変更する。
  「拡張子を変更すると、ファイルが使えなくなる可能性があります。変更しますか？」と聞かれるのが「はい(Y)」と答えて良い。
• 今作成した vbs0902.vbs をデスクトップのメモ帳にドラッグ＆ドロップする。
• メモ帳が開いて編集できるようになったら、以下のように入力

  dim x(10)
  x(1)=-9: x(2)=29: x(3)=7: x(4)=28: x(5)=2: x(6)=1: x(7)=2: x(8)=-12: x(9)=13: x(10)=0
  
  for last=10 to 2 step -1
  	max=x(1)
  	max_n=1
  	for i=1 to last
  		if x(i)>max then
  			max=x(i)
  			max_n=i
  		end if
  	next
  	temp=x(max_n):x(max_n)=x(last):x(last)=temp
  next
  
  for i=1 to 10
  	kekka=kekka & x(i) & ", "
  next
  msgbox kekka,,"ソートの結果"
  

• 「ファイル -> 上書き保存」として保存する。メモ帳は閉じてかまわない。
• 保存された vbs0902.vbs をダブルクリックして実行する。
• 間違いがあれば、 vbs0902.vbs をデスクトップのメモ帳にドラッグ＆ドロップして編集しなおして、保存する。保存後に、もう一度 vbs0902.vbs をダブルクリックして実行してみること。

解説

• これは x(1),x(2),...,x(10) を小さい順に並べ替えるプログラムである。
• １行目によって配列変数 x(1),...,x(10)が定義され、２行目によって x(1),x(2),...,x(10)の値が指定されている。
• ソートの手順は以下の通り。
  まず、x(1),x(2),...,x(10)の中の最大値を求めて、それと x(10)を交換する。
  x(1),a(2),...,x(9) の中で最大を求めてそれをx(9)と交換。ここまでの操作により、最も大きなものが x(10)に、２番目に大きなものが x(9) に格納される。
  次に、 x(1),a(2),...,x(8)の中で最大を求めてそれを x(8) と交換。ここまでの操作により、最も大きなものが x(10)に、２番目に大きなものが x(9) に、３番目に大きなものが x(8) に格納される。
  以下同様に続ければソートが完了する。
• この様に最大値（または最小値）を順番に選択していくソート方法を単純選択法または、単純選択ソートと言う。

問題

dim x(30)
x(1)=-9: x(2)=29: x(3)=7: x(4)=28: x(5)=2: x(6)=1: x(7)=2: x(8)=-12: x(9)=13: x(10)=0
x(11)=0: x(12)=-19: x(13)=-3: x(14)=-10: x(15)=5: x(16)=8: x(17)=27: x(18)=15: x(19)=8: x(20)=1
x(21)=-7: x(22)=-12: x(23)=-8: x(24)=17: x(25)=25: x(26)=14: x(27)=16: x(28)=19: x(29)=19: x(30)=-1

憶えていますか？憶えましたか？

• if 文の使い方がわかりますか？
• ソートって何ですか？
• アルゴリズムって何ですか？その語源は？
• バブルソートの手順がわかりますか？
  
• 単純選択ソートの手順がわかりますか？