2011年11月7日 星期一

99模擬 Problem 4：排列組合的應用

Problem 4：排列組合的應用
子題1（11%）：一個菜販有「肉」、「菜」、「蛋」、「果」4 類商品，在菜攤上「分類」排列出售，各項商品可由輸入檔讀入其「每公斤利潤」。有一天，菜販忘了商品在菜攤的排列方式，只知道今天各類商品由左至右出售的「公斤數」，其資料選手也可由輸入檔讀入。在不知道今天商品排列的情況下，請選手將所有的排列方式逐一代入計算，依總利潤之高低順序，由高而低，輸出所有排列方式及其總利潤。

輸入說明：
第1 行有4 組數字，以逗號隔開，分別表示「肉」、「菜」、「蛋」、「果」每公斤的利潤。
第2 行有4 組數字，以逗號隔開，表示今天菜攤由左至右各類商品出售之公斤數。

輸出說明：
依總利潤之高低順序，每1 行輸出1 組排列方式及其總利潤，資料間至少以1 個空白隔開。
若有總利潤相同者，其前後輸出順序不拘。

輸入範例：【檔名：in-4-1.txt】
70, 32, 18, 42
43, 24, 21, 39
輸出範例：【檔名：out-4-1.txt】
肉菜蛋果 5794
肉蛋菜果 5752
果菜蛋肉 5682
肉果蛋菜 5644
果蛋菜肉 5640
肉蛋果菜 5572
菜果蛋肉 5492
菜蛋果肉 5420
肉果菜蛋 5392
肉菜果蛋 5362
蛋果菜肉 5184
蛋菜果肉 5154
果肉蛋菜 5112
菜肉蛋果 5072
果蛋肉菜 4956
菜蛋肉果 4916
果肉菜蛋 4860
蛋肉菜果 4764
果菜肉蛋 4746
蛋菜肉果 4650
菜肉果蛋 4640
蛋肉果菜 4584
菜果肉蛋 4556
蛋果肉菜 4500
張貼者： 於
標籤：

2 則留言:

  1. 匿名2011年11月8日 下午2:13

    Dim X() As String
    Dim Y() As String
    Dim N() As String
    Private Sub Form_Load()
    Me.Hide
    Open App.Path & "\in.txt" For Input As #1
    Open App.Path & "\out.txt" For Output As #2
    Y = Split("肉 菜 蛋 果")

    Line Input #1, R
    X = Split(R, ", ")

    Line Input #1, E
    N = Split(E, ", ")

    Call ABC("", 0)

    For i = 0 To List2.ListCount - 2
    For j = i + 1 To List2.ListCount - 1
    If Val(List2.List(i)) < Val(List2.List(j)) Then
    T = List2.List(i)
    List2.List(i) = List2.List(j)
    List2.List(j) = T
    T = List1.List(i)
    List1.List(i) = List1.List(j)
    List1.List(j) = T
    End If
    Next j
    Next i

    For i = 0 To List1.ListCount - 1
    Print #2, Trim(List1.List(i) & " " & List2.List(i))
    Next i

    Close #2
    Close #1
    End
    End Sub

    Sub ABC(A, B)
    If Len(A) = 4 Then
    List1.AddItem A
    List2.AddItem B
    Else
    For i = 0 To 3
    If InStr(A, Y(i)) = 0 Then Call ABC(A & Y(i), B + X(i) * N(Len(A)))
    Next i
    End If

    End Sub

    回覆刪除
  2. Arro2011年11月8日 下午3:05

    Dim k, s, p
    Private Sub Form_Load()
    Me.Hide
    Open App.Path & "\in.txt" For Input As #1
    Open App.Path & "\out.txt" For Output As #2
    Line Input #1, m
    Line Input #1, n
    m = Replace(m, ",", "")
    n = Replace(n, ",", "")
    p = Split(m)
    s = Split(n)
    k = Split("肉 菜 蛋 果")
    Call A1("", 0)
    Call A2
    Close
    Close
    End
    End Sub

    Sub A1(a, b)
    If Len(a) = 4 Then
    List1.AddItem a
    List2.AddItem b
    Else
    For i = 0 To 3
    If InStr(a, k(i)) = 0 Then Call A1(a & k(i), b + Val(p(i)) * Val(s(Len(a))))
    Next
    End If
    End Sub

    Sub A2()

    For i = 0 To List1.ListCount - 1
    For j = 0 To List1.ListCount - 1
    If List2.List(j) < List2.List(j - 1) Then
    tmp = List2.List(j)
    List2.List(j) = List2.List(j - 1)
    List2.List(j - 1) = tmp

    tmp = List1.List(j)
    List1.List(j) = List1.List(j - 1)
    List1.List(j - 1) = tmp
    End If
    Next
    Next

    For i = List1.ListCount - 1 To 0 Step -1
    Print #2, List1.List(i) & " " & List2.List(i)
    Next

    End Sub

    回覆刪除

訂閱： 張貼留言 (Atom)