Problem 7 (排序 16%)
排序在電腦科學中是一個重要的部分，在這個問題中將限定使用一種排序方式，就是你只能交換相鄰的2個元素。將數列由小到大排序，並計算出最少要交換幾次才能排好。例如給你1 2 3，那需要交換的次數為0，因為已經排好了。例如給你2 3 1這個數列，第一次交換1跟3變成2 1 3，第二次交換2跟1變成1 2 3，因此最少需要交換2次才可排好。
輸入說明：輸入之奇數列為下一行數列中的個數，偶數列為數列資料，代表一組測試資料。每個數字與數字間的區隔為一個空白符號，當奇數列為0時表示結束。(請參照輸入範例)
輸入範圍：每個數列最少有2個數字，最多不超過100個。每個數列中的數字皆大於0，小於1000，且不重覆。
輸入範例：test7.txt
3
1 2 3
3
2 3 1
0
輸出說明：對每一組輸入資料，輸出最少需要交換的次數。(請參照輸出範例)
輸出範例：result7.txt
0
2
Dim s, t, n, m
回覆刪除Private Sub Form_Load()
Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Do While Not EOF(1)
Input #1, n
If n <> 0 Then
t = 0
Line Input #1, m
s = Split(m)
Call A1
Print #2, t
End If
Loop
Close
Close
End
End Sub
Sub A1()
b = UBound(s)
For j = 0 To b
For i = 0 To b - 1
If s(i) > s(i + 1) Then
tmp = s(i)
s(i) = s(i + 1)
s(i + 1) = tmp
t = t + 1
End If
Next
Next
End Sub
應該用氣泡排序就OK了吧?
Dim X()
回覆刪除Private Sub Form_Load()
Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Do While Not EOF(1)
Input #1, n
If n = 0 Then Exit Do
ReDim X(n)
For i = 1 To n
Input #1, X(i)
Next i
ans = 0
For i = 1 To (UBound(X) - 1)
For j = 1 To i
If X(j) > X(j + 1) Then
T = X(j)
X(j) = X(j + 1)
X(j + 1) = T
ans = ans + 1
End If
Next j
Next i
Print #2, ans
Loop
Close #2
Close #1
End
End Sub