插入排序算法

ID:342822 · 發表于 2025-8-5 14:29

'------------------------------------------------------------------------
' 這個程序演示了插入排序算法
' 我們可以實現從低到高排序
' 也可以實現從高到低排序
' 該算法可以對任何數值型數組進行排序（不支持字符串）
'------------------------------------------------------------------------

$regfile = "m8def.dat"                               ' 指定使用的微控制器型號文件

$crystal = 8000000                                     ' 使用的晶振頻率(16MHz)
$baud = 9600                                           ' 使用的波特率
$hwstack = 32                                           ' 硬件堆棧大小
$swstack = 32                                           ' 軟件堆棧大小
$framesize = 32                                        ' 幀大小
Dim Onlongs(17) As Long                                  ' 待排序的數組，根據需要使用Long/Word/Byte類型
Dim X As Byte                                           ' 循環計數器

' 聲明子程序
Declare Sub Arraysortasc()                               ' 升序排序
Declare Sub Arraysortdec()                               ' 降序排序

'---用于測試的示例數據---
Onlongs(1) = 270
Onlongs(2) = 120
Onlongs(3) = 99
Onlongs(4) = 1452
Onlongs(5) = 978
Onlongs(6) = 22
Onlongs(7) = 180
Onlongs(8) = 721
Onlongs(9) = 622

Print "排序開始>"                                        ' 打印排序開始提示
Waitms 10                                              ' 等待10毫秒

Call Arraysortasc                                        ' 調用升序排序子程序
Print "排序升序結果："                                           ' 打印升序排序完成提示
For X = 1 To 9                                           ' 循環打印排序后的數組
print Onlongs(x) ; "-";
Next X
print                                                    ' 換行
print
print "升序轉為降序"
Call Arraysortdec                                        ' 調用降序排序子程序
Print " 降序排序"                                        ' 打印降序排序完成提示

For X = 1 To 9                                           ' 循環打印排序后的數組
print Onlongs(x) ; "-";
Next X

End                                                    ' 程序結束

'----------- 使用插入排序算法對Long類型數組進行排序，其他類型變量也可使用 -----------

Sub Arraysortasc()
Local Al As Long                                     ' 用于存儲當前待插入元素的臨時變量
Local I As Byte                                     ' 外層循環計數器
Local J As Byte                                     ' 內層循環計數器
Local Z As Byte                                     ' 用于打印數組的計數器

For I = 2 To 9                                        ' 從第二個元素開始遍歷數組
   Al = Onlongs(i)                                  ' 保存當前元素值
   J = I                                              ' 初始化內層循環計數器
   ' 尋找合適的插入位置
   While J > 1 And Onlongs(j -1) > Al                ' 當前元素比前一個元素小時
      Onlongs(j) = Onlongs(j - 1)                   ' 將前一個元素后移
      J = J - 1                                     ' 繼續向前比較

      ' 打印排序過程（調試用）
      For Z = 1 To 9
         print Onlongs(z) ; "-" ;
Waitms 200
      Next
      Waitms 200                                  ' 等待2秒便于觀察
      print                                           ' 換行
   Wend
   Onlongs(j) = Al                                  ' 將當前元素插入到正確位置
Next
End Sub

Sub Arraysortdec()
' 降序排序實現，與升序類似只是比較條件相反
Local Al As Long                                     ' 用于存儲當前待插入元素的臨時變量
Local I As Byte                                     ' 外層循環計數器
Local J As Byte                                     ' 內層循環計數器
Local Z As Byte                                     ' 用于打印數組的計數器

For I = 1 To 9                                        ' 從第一個元素開始遍歷數組
   Al = Onlongs(i)                                  ' 保存當前元素值
   J = I                                              ' 初始化內層循環計數器
   ' 尋找合適的插入位置
   While J > 1 And Onlongs(j -1) < Al                ' 當前元素比前一個元素大時
      Onlongs(j) = Onlongs(j - 1)                   ' 將前一個元素后移
      J = J - 1                                     ' 繼續向前比較

      ' 打印排序過程（調試用）
      For Z = 1 To 9
         print Onlongs(z) ; "-" ;
      Next
      Wait 2                                        ' 等待2秒便于觀察
      print                                           ' 換行
   Wend
   Onlongs(j) = Al                                  ' 將當前元素插入到正確位置
Next
End Sub

ID:1157301 · 發表于 2025-8-5 17:16

好懷念的排序，以前跟同學設計了一個SLG游戲，就用到這個排序法記錄移動路徑。

帳號		自動登錄	找回密碼
密碼			立即注冊

欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

插入排序算法

評分

	沙發無效樓層，該帖已經被刪除

	板凳無效樓層，該帖已經被刪除