[.NET] 作業(自我學習) QuickSort

看板Visual_Basic作者niwat (原來如此)時間12年前 (2013/10/19 06:12)推噓0(0推 0噓 1→)

留言1則, 1人參與討論串1/1

請輸入專案類型(網站專案或者應用程式專案)：windows application 非CS 學生, 因為有寫程式的需求, 自行修習程式寫作看到網路上有關遞迴作的作業(QSort), 就嘗試寫了一個程式, 程式碼如下程式執行結果是成功的, 不過有一些疑惑希望大家提供意見 (ps. 非CS背景, 所以程式大部分都只要求能用就好, 但如果是作業的話, 還是希望知道比較好的寫法以及需要改進的地方) [前提] 用來排序的陣列(T_Array)都是integer且不重複, 隨機選取開始的位置(T2) [問題] 1. 我的寫法是用迴圈抓數字和T_Array(T2)比, 比T_Array(T2)大的從最右邊開始往左填比T_Array(T2)小的從最左邊開始往右填是否應該以T_Array(T2)為參考點, 分別由中間往兩邊填, 才符合Qsort要求? 2. 我的程式中每次執行都會宣告一個等大的陣列(寫起來方便) 然後再把排好的數字用for next迴圈填回原陣列感覺上很消耗記憶體空間以及運算次數且好像有點失去遞迴的感覺, 沒有記憶體堆疊的感覺? 一般CS學生在做這個作業的時候有比較快速或是比較好的寫法嗎? 3. 如果你是改這份作業的人, 會在寫法上提供甚麼建議呢? 謝謝大家 ----以下是程式碼 Private Sub Q_Sort _ (ByRef T_Array() As Integer, ByVal T1 As Integer, _ ByVal T2 As Integer, ByVal T3 As Integer) Dim i As Integer Dim T_Value As Integer Dim m, n As Integer Dim Temp_A() As Integer = New Integer() {} Dim R_Gen As New Random Dim TempIndex As Integer Dim a1, a2, a3 As Integer Dim b1, b2, b3 As Integer ReDim Temp_A(UBound(T_Array)) T_Value = T_Array(T2) m = 0 n = 0 For i = T1 To T3 If i <> T2 Then If T_Array(i) > T_Value Then Temp_A(T3 - n) = T_Array(i) n = n + 1 Else Temp_A(T1 + m) = T_Array(i) m = m + 1 End If End If Next i For i = T1 To T3 T_Array(i) = Temp_A(i) Next T_Array(T1 + m) = T_Value 'MsgBox(T_Value) 'Show_Array(T_Array) Acc_Arrays(T_Array, Q_No, T_Value, T2) Q_No = Q_No + 1 a1 = T1 a3 = T1 + m - 1 If m > 2 Then a2 = R_Gen.Next(a1, a3) Call Q_Sort(T_Array, a1, a2, a3) Else Swap_Value(T_Array(a1), T_Array(a1 + 1)) End If b1 = T3 - n + 1 b3 = T3 If n > 2 Then b2 = R_Gen.Next(b1, b3) Call Q_Sort(T_Array, b1, b2, b3) Else Swap_Value(T_Array(b3 - 1), T_Array(b3)) End If End Sub Private Sub Swap_Value(ByRef N_Small As Integer, ByRef N_Large As Integer) Dim TempV As Integer If N_Small > N_Large Then TempV = N_Large N_Large = N_Small N_Small = TempV End If End Sub ※ 編輯: niwat 來自: 128.123.166.46 (10/19 06:32)