Problem 5 (最小距離 14%)
請設計一個程式，能在一個數列中，找出相鄰兩數的最小距離。例如，有一個數列為8,20,27,17,13,28,35,31，8與20的距離為12；20與27的距離為7，與前一個例子相比，其距離較小。
輸入說明：輸入之奇數列為下一行數列中的個數，偶數列為數列資料，代表一組測試資料。每個數字與數字間的區隔為一個空白符號，當奇數列為0時表示結束。(請參照輸入範例)
輸入範圍：每個數列最少有2個數字，最多不超過100個。每個數列中的數字皆大於0，小於1000，且不重覆。
輸入範例：test5.txt
8
8 20 27 17 13 28 35 31
15
13 14 55 21 66 72 23 73 1 2 88 83 84 24 7
0
輸出說明：每組測試的數列皆要輸出最小距離。(請參照輸出範例)
輸出範例：result5.txt
4
1
Dim min, a, s, m, n
回覆刪除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
Line Input #1, m
s = Split(m)
min = Abs(s(1) - s(0))
For i = 1 To UBound(s)
a = Abs(s(i) - s(i - 1))
If a < min Then min = a
Next
Print #2, min
End If
Loop
Close
Close
End
End Sub
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
T = Abs(X(1) - X(2))
For i = 1 To UBound(X) - 1
Y = Abs(X(i) - X(i + 1))
If Y < T Then T = Y
Next i
Print #2, T
Loop
Close #2
Close #1
End
End Sub