有n個同學(n為偶數),兩人一組,共分成 n/2組。令n/2個同學之體重總和為{S1,S2,……Sn},m為體重總和之平均值m=[(S1,S2,……Sn )/n],分組的原則為必須使得m|之差距總合為最小。(輸出結果的差距若非為最小,則本題算錯,零分計算。)寫一程式完成此分組工作。
輸入說明:第一列為學生人數n,(4≦n≦20)。
第二列到第n+1列為學生的體重。(30≦學生的體重≦150)
輸入範例:假定有10個同學,其體重分為:82、53、74、84、45、46、57、67、43、47。實際輸入之檔案內容如下:
實際輸入:(test4.txt)
10
82
53
74
84
45
46
57
67
43
47
輸出說明:列印出每組同學之體重總和及個別體重,且必須依體重總和由大而小印出。
輸出範例:上例中的10個同學體重分別為:82、53、74、84、45、46、57、67、43、47。其各組體重總和及個別體重的實際輸出之檔案內容如下:
實際輸出:(result4.txt)
127 = 43 + 84
127 = 45 + 82
120 = 46 + 74
114 = 47 + 67
110 = 53 + 57
回覆刪除Private Sub Form_Load()
Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Input #1, mycount
For i = 1 To mycount
Input #1, temp
List1.AddItem temp + 10000
Next
For ii = 1 To mycount \ 2
Print #2, Val(List1.List(0)) - 10000 + Val(List1.List(List1.ListCount - 1)) - 10000 & "=" & Val(List1.List(0)) - 10000 & "+" & Val(List1.List(List1.ListCount - 1)) - 10000
List1.RemoveItem 0
List1.RemoveItem List1.ListCount - 1
Next
Close #2
Close #1
End
End Sub