作者niwat (原來如此)
看板Visual_Basic
標題[.NET] 作業(自我學習) QuickSort
時間Sat Oct 19 06:12:27 2013
請輸入專案類型(網站專案或者應用程式專案)：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)
1F：→ niwat:這個作業這樣寫還算及格吧? 10/25 00:25