2011年11月7日 星期一

98模擬 Problem 4 (排序


給n 個數字，請把它們由大到小排序好。

輸入說明：
輸入檔含有多組測試資料，每組測試資料有兩行，第一行的數字n 為有幾個數字要排序，第二行則有n 個整數n ≤ 1000，而每個要排序數字的範圍為[-10000, 10000]間的整數。

輸出說明：
輸出已排序好的數列，每個數字之間用一個空白隔開。

輸入範例：
5
1 2 3 4 5
5
-5 -4 -3 -2 -1

輸出範例：
5 4 3 2 1
-1 -2 -3 -4 -5
張貼者： 於
標籤：

4 則留言:

  1. 匿名2011年11月7日 上午10:34

    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
    ReDim X(n)
    For i = 1 To n
    Input #1, X(i)
    Next i

    For i = 1 To n - 1
    For j = i + 1 To n
    If X(i) < X(j) Then
    T = X(i)
    X(i) = X(j)
    X(j) = T
    End If
    Next j
    Next i

    For i = 1 To n
    Print #2, X(i);
    Next i
    Print #2,
    Loop
    Close #2
    Close #1
    End
    End Sub

    回覆刪除
  2. Arro2011年11月7日 上午10:51

    Dim s
    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)
    Call P
    End If
    Loop
    Close
    Close
    End
    End Sub

    Sub P()
    ans = ""

    For j = 0 To UBound(s)
    For i = 0 To UBound(s) - 1
    If Val(s(i)) > Val(s(i + 1)) Then
    tmp = s(i)
    s(i) = s(i + 1)
    s(i + 1) = tmp
    End If
    Next
    Next

    For i = 0 To UBound(s)
    ans = ans & " " & s(i)
    Next

    Print #2, ans
    End Sub

    回覆刪除
  3. 熊掌2011年11月14日 下午3:14

    柯佑,arro好，
    這題是送分題，你們都正確。
    如果想利用listbox的內含的排序方法的話，記得那是對文字的。
    所以，將每個數字都化成一樣長度就可以，因為每個數字是在-10000到+10000之間，所以每個數都+20000，就可以達成全都正的，全部都是5位數，也全部都在integer的範圍內(32767)，所以，加進listbox之後，再拿出來(記得再減20000)，就排序完成了。

    回覆刪除
  4. 匿名2011年11月14日 晚上10:29

    熊掌好，
    -10000
    -9999
    -1
    0
    1

    (+20000
    10000
    10001
    19999
    20000
    20001

    真的耶，沒想過這樣的方法。
    謝~老師

    回覆刪除

訂閱： 張貼留言 (Atom)