果堆合并(急求PASCAL 哈夫曼树解法）!1.果堆合并(merge.pas)【问题描述】在一个果园里,多多已经将所有的果子打了下来,而且按果子的不同种类分成了不同的堆.多多决定把所有的果子合成一堆.

果堆合并(急求PASCAL 哈夫曼树解法）!1.果堆合并(merge.pas)【问题描述】在一个果园里,多多已经将所有的果子打了下来,而且按果子的不同种类分成了不同的堆.多多决定把所有的果子合成一堆.
果堆合并(急求PASCAL 哈夫曼树解法）!
1.果堆合并(merge.pas)
【问题描述】
在一个果园里,多多已经将所有的果子打了下来,而且按果子的不同种类分成了不同的堆.多多决定把所有的果子合成一堆.
每一次合并,多多可以把两堆果子合并到一起,消耗的体力等于两堆果子的重量之和.可以看出,所有的果子经过n-1次合并之后,就只剩下一堆了.多多在合并果子时总共消耗的体力等于每次合并所耗体力之和.
因为还要花大力气把这些果子搬回家,所以多多在合并果子时要尽可能地节省体力.假定每个果子重量都为1,并且已知果子的种类数和每种果子的数目,你的任务是设计出合并的次序方案,使多多耗费的体力最少,并输出这个最小的体力耗费值.
例如有3种果子,数目依次为1,2,9.可以先将1、2堆合并,新堆数目为3,耗费体力为3.接着,将新堆与原先的第三堆合并,又得到新的堆,数目为12,耗费体力为12.所以多多总共耗费体力=3+12=15.可以证明15为最小的体力耗费值.
【输入】(merge.in)
输入包括两行,第一行是一个整数n(1<＝n<=10000),表示果子的种类数.第二行包含n个整数,用空格分隔,第i个整数ai（1<＝ai<=20000）是第i种果子的数目.
【输出】(merge.out)
输出包括一行,这一行只包含一个整数,也就是最小的体力耗费值.输入数据保证这个值小于2^31.
最好是O(n)的,不过O（N^2)也行

果堆合并(急求PASCAL 哈夫曼树解法）!1.果堆合并(merge.pas)【问题描述】在一个果园里,多多已经将所有的果子打了下来,而且按果子的不同种类分成了不同的堆.多多决定把所有的果子合成一堆.
同楼上
附上插入排序算法
var a:array[0..20000]of longint;
j,i,n,start,m,sum,k,t:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=2 to n do begin
a[0]:=a[i];j:=i-1;
while (a[0]0) do begin
a[j+1]:=a[j];
dec(j);
end;
a[j+1]:=a[0];
end;
start:=1;
m:=n;
for i:=1 to n-1 do begin
sum:=a[start]+a[start+1]+sum;
t:=a[start]+a[start+1];
inc(m);
a[m]:=t;
inc(start);
inc(start);
for j:=start to m do begin
a[0]:=a[j];k:=j-1;
while (a[0]0) do begin
a[k+1]:=a[k];
dec(k);
end;
a[k+1]:=a[0];
end;
end;
writeln(sum);
end.
楼主也可以试试堆排

这...这贪心啊...先找最小两堆合并,放回去,之后重复上述操作....

两种算法 单调双队列 堆实现
双队列： 先快排 一个队列（a)是空的 另个队列(b)就是快排后的果子 先取前2个果子（也就是最小的）和放到另个队列(a) 第二次 比较两个队列的队头 看谁小就把谁取出 然后取出两个在相加 又放在(a)队列 可证明 (a)队列也是递增的
堆：var
i,n,a1,a2,t,sum:longint;
a:array[0..100...

全部展开

两种算法 单调双队列 堆实现
双队列： 先快排 一个队列（a)是空的 另个队列(b)就是快排后的果子 先取前2个果子（也就是最小的）和放到另个队列(a) 第二次 比较两个队列的队头 看谁小就把谁取出 然后取出两个在相加 又放在(a)队列 可证明 (a)队列也是递增的
堆：var
i,n,a1,a2,t,sum:longint;
a:array[0..10001] of longint;
procedure init;
var
i:longint;
begin
assign(input,'fruit.in');
reset(input);
readln(n);
for i:=1 to n do
read(a[i]);
close(input);
end;
procedure down(i,m:longint);
begin
while i*2<=m do
begin
i:=i*2;
if (a[i+1]0) then inc(i);
if a[i div 2]> a[i] then
begin
a[0]:=a[i];
a[i]:=a[i div 2];
a[i div 2]:=a[0];
end;
end;
end;
begin
init;
for i:=n div 2 downto 1 do
down(i,n);
t:=n;
while t<>1 do
begin
a1:=a[1];
a[1]:=a[t];
a[t]:=0;
dec(t);
down(1,t);
a2:=a[1];
a[1]:=a[t];
a[t]:=0;
dec(t);
sum:=sum+a1+a2;
inc(t);
a[t]:=a[1];
a[1]:=a1+a2;
down(1,t)
end;
assign(output,'fruit.out');
rewrite(output);
writeln(sum);
close(output);
end.

收起

var a:array[1..10000] of longint;
i,j,n,m,x,t:longint;
procedure swap(var a,b:longint);
var x:longint;
begin
x:=a; a:=b; b:=x;
end;
procedure down(i:longint);
var...

全部展开

var a:array[1..10000] of longint;
i,j,n,m,x,t:longint;
procedure swap(var a,b:longint);
var x:longint;
begin
x:=a; a:=b; b:=x;
end;
procedure down(i:longint);
var t:longint;
begin
if i *2 > n then exit;
t:=i;
if a[i*2] if i*2+1<= n then
if a[i*2+1] < a[t] then t:=i*2+1;
swap(a[i],a[t]);
if i <> t then down(t);
end;
procedure up(i:longint);
begin
if i=1 then exit;
if a[i div 2]>a[i] then begin swap(a[i div 2],a[i]); up(i div 2); end;
end;
begin
assign(input,'stone.in');reset(input);
assign(output,'stone.out');rewrite(output);
read(n);
for i := 1 to n do
read(a[i]);
for i:=n div 2 downto 1 do
down(i);
m:=n;
t:=0;
for i:=1 to m-1 do
begin
x:=0;
for j:=1 to 2 do
begin
inc(x,a[1]);
a[1]:=a[n];
dec(n);
down(1);
end;
inc(t,x);
inc(n);
a[n]:=x;
up(n);
end;
writeln(t);
close(input);
close(output);
end.

收起