2011年10月21日 星期五

97正式 Problem2：極大值問題

Problem2：極大值問題(11%)

有一個n位數的正整數A，請問刪除其中k個連續或不連續的位數 (k < n)、將剩下的數字依序合併形成一個新的正整數B，B的最大可能值是多少？（請注意，A和B的首位都不能是0）。

輸入說明：

奇數列有兩個以空白隔開的正整數n及k (1 ≤ k < n ≤ 1000000)。偶數列會有一個長度為n的正整數A。

輸出說明：

請輸出B的最大可能值。

輸入範例：

6 4

268574

5 2

41235

輸出範例：

87

435

張貼者： 於
標籤： ,

2 則留言:

  1. 匿名2011年10月23日 下午1:22

    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, D
    Line Input #1, X
    List1.Clear: List2.Clear
    For I = 1 To N
    List1.AddItem Mid(X, I, 1)
    Next I

    Call ABC(N - D, "", -1)

    Print #2, List2.List(List2.ListCount - 1)

    Loop
    Close #2
    Close #1
    End
    End Sub

    Sub ABC(A, B, C)
    If Len(B) = A Then
    List2.AddItem B
    Else
    For I = 0 To List1.ListCount - 1
    If I > C Then Call ABC(A, B & List1.List(I), I)
    Next I
    End If
    End Sub

    in.txt-------------
    6 4
    268574
    7 3
    9977789
    6 3
    929987

    out.txt------------
    87
    9989
    999

    回覆刪除
  2. Arro2011年10月27日 下午3:53

    Dim max, ans, s(), TT
    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, k
    Line Input #1, m
    ReDim s(Len(m))
    For i = 1 To Len(m)
    s(i) = Mid(m, i, 1)
    Next

    ans = ""
    For j = (n - k) - 1 To 0 Step -1
    max = 0
    For i = 1 To UBound(s) - j
    If s(i) > max Then max = s(i): TT = i
    Next
    ans = ans & max
    s(TT) = 0
    Next

    Print #2, ans
    Loop
    Close
    Close
    End
    End Sub

    回覆刪除

訂閱： 張貼留言 (Atom)