2012年11月20日 星期二

最小離差

n個同學(n為偶數),兩人一組,共分成 n/2組。令n/2個同學之體重總和為{S1,S2,……Sn}m為體重總和之平均值m=[(S1,S2,……Sn  )/n],分組的原則為必須使得m|之差距總合為最小。(輸出結果的差距若非為最小,則本題算錯,零分計算。)寫一程式完成此分組工作。

輸入說明:第一列為學生人數n(4n20)
第二列到第n+1列為學生的體重。(30學生的體重150)
輸入範例:假定有10個同學,其體重分為:82537484454657674347。實際輸入之檔案內容如下: 
實際輸入:(test4.txt) 
10
82
53
74
84
45
46
57
67
43
47

輸出說明:列印出每組同學之體重總和及個別體重,且必須依體重總和由大而小印出。
輸出範例:上例中的10個同學體重分別為:82537484454657674347。其各組體重總和及個別體重的實際輸出之檔案內容如下:
 實際輸出:(result4.txt)
127 = 43 + 84
127 = 45 + 82
120 = 46 + 74
114 = 47 + 67
 110 = 53 + 57

1 則留言:


  1. 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

    回覆刪除