codeves天梯合併果子

在乙個果園裡，多多已經將所有的果子打了下來，而且按果子的不同種類分成了不同的堆。多多決定把所有的果子合成一堆。

每一次合併，多多可以把兩堆果子合併到一起，消耗的體力等於兩堆果子的重量之和。可以看出，所有的果子經過n-1次合併之後，就只剩下一堆了。多多在合併果子時總共消耗的體力等於每次合併所耗體力之和。

因為還要花大力氣把這些果子搬回家，所以多多在合併果子時要盡可能地節省體力。假定每個果子重量都為1，並且已知果子的種類數和每種果子的數目，你的任務是設計出合併的次序方案，使多多耗費的體力最少，並輸出這個最小的體力耗費值。

例如有3種果子，數目依次為1，2，9。可以先將1、2堆合併，新堆數目為3，耗費體力為3。接著，將新堆與原先的第三堆合併，又得到新的堆，數目為12，耗費體力為12。所以多多總共耗費體力=3+12=15。可以證明15為最小的體力耗費值。

分析：經典題就不解釋了，這裡的合併果子資料不大，所以就用了歸併排序兼合併求解。

vara:array[0..10000] of longint;

n,total:longint;

i:integer;

procedure swap(var a,b:longint);

var t:integer;

begin

t:=a; a:=b; b:=t;

end;

procedure quick_sort(m,n:integer);

var i,j,x:integer;

begin

i:=m; j:=n; x:=a[(i+j) div 2];

repeat

while a[i]>x do inc(i);

while x>a[j] do dec(j);

if i<=j then

begin

swap(a[i],a[j]);

inc(i); dec(j);

end;

until i>j;

if m

codeves天梯 合併果子