不是VIP会员,不能显示答案

题目解答

题目:
题目描述:在一个果园里,多多已经将所有的果子打了下来,而且按果子的不同种类分成了不同的堆。多多决定把所有的果子合成一堆。每一次合并,多多可以把两堆果子合并到一起,消耗的体力等于两堆果子的重量之和。可以看出,所有的果子经过n-1次合并之后,就只剩下一堆了。多多在合并果子时总共消耗的体力等于每次合并所耗体力之和。
因为还要花大力气把这些果子搬回家,所以多多在合并果子时要尽可能地节省体力。假定每个果子重量都为1,并且已知果子的种类数和每种果子的数目,你的任务是设计出合并的次序方案,使多多耗费的体力最少,并输出这个最小的体力耗费值。例如有3种果子,数目依次为1,2,9。可以先将1、2堆合并,新堆数目为3,耗费体力为3。接着,将新堆与原先的第三堆合并,又得到新的堆,数目为12,耗费体力为12。所以多多总共耗费体力=3+12=15。可以证明15为最小的体力耗费值。
输入:输入包括两行,第一行是一个整数n(1<=n<=10000),表示果子的种类数。第二行包含n个整数,用空格分隔,第i个整数ai(1<=ai<=20000)是第i种果子的数目。
输出:输出包括一行,这一行只包含一个整数,也就是最小的体力耗费值。输入数据保证这个值小于2^31
program t6;
var
 s1,s2:array[0..15000] of longint;
 s1low,s1hi,s2low,s2hi:integer;
 r,l,s,x,i,min1,min2:longint;
function peeksmall:longint;
 begin
  min1:=1000000000;min2:=1000000000;
  if s1low<>s1hi then min1:=s1[s1low];
  if s2low<>s2hi then min2:=s2[s2low];
  if     min1<min2        then begin peeksmall:=s1[s1low];inc(s1low); end
               else begin peeksmall:=s2[s2low];inc(s2low); end;
 end;
procedure swap(l:integer;r:integer);
 var tmp:longint;
 begin
  tmp:=s1[r];
     s1[r]:=s1[l]   ;
  s1[l]:=tmp;
 end;
procedure sort(low:integer; hi:integer);
 var l:longint;
begin
 if low>=hi then  exit  else
 x:=s1[(low+hi)div 2];
 swap(low,      x         );
 l:=low;
 r:=hi;
 while l<r do
  begin
   while ((l<r)and(s1[r]>=x)) do dec(r);
   s1[l]:=s1[r];
   while ((l<r)and(s1[l]<=x)) do inc(l);
   s1[r]:=s1[l];
  end;
       s1[l]:=x        ;
  sort(low,l-1);
  sort(r+1,hi);
 end;
begin
 read(s1hi);
 for i:=0 to s1hi-1 do
  read(s1[i]);
  sort(0,   s1hi-1        );
  s:=0;
  for i:=s1hi-1 downto 1 do
   begin
    s2[s2hi]:=peeksmall+peeksmall ;
    s:=s+s2[s2hi];
    inc(s2hi);
   end;
  write(s);
end.
考点: 0
分析:
解答: if low>=hi then  exit  else
x:=s1[low];//s1[(low+hi)div 2];
//swap(low,x );
l:=low;
r:=hi;
while l
评论:
老师: 0