树结构的应用.ppt

readln(n); /*读入果子的种类数*/ for i←1 to n do read(a[i]);/*读入每种果子的数目*/ buildheap(n); /*建堆*/ t←0; /*最小的体力耗费值初始化*/ while n1 do{ /*若未最后合并成一堆*/ i←a[n];a[n]←a[1];a[1]←i;/*交换a[n]与a[1]*/ heap(1,n-1); /*将a[1]‥a[n-1]调整为堆*/ n←n-1; /*删除a[n] */ i←a[n];a[n]←a[1];a[1]←I;/*堆首元素与堆尾元素交换*/ heap(1,n-1); /*将a[1]‥a[n-2]调整为堆*/ a[n]←a[n]+a[n+1]; t←t+a[n];/*将最小的两个节点合并成a[n-1]，并计入最小的体力耗费值*/ };/*while*/ writeln(t); /*输出最小的体力耗费值*/ 设 var a,b:array[1..10002] of longint;/*a为排序后的堆序列；b为合并的堆序列*/ i,j,n,p,t,x,y,min,method,ans:longint;/*n为果子的种类数；min为当前合并消耗的体力；method为合并类型，ans为最小的体力耗费值；p为b序列的长度；x，y为合并过程中a序列和b序列的指针*/ num:array[1..20000] of integer;/*num[i]为i个果子成一堆的堆数*/ 能不能直接找出合并果子的规律？合并的类型有几种？ 首先我们将n堆果子按照果子数递增的顺序排成一个序列a[1]‥a[n],a[n+1]=∞,a[n+2]=∞。b序列设为空(b[1]=b[2]= ‥b[n]= ∞，p=0)。然后从a序列和b序列的第一个元素开始寻找合并方案（x=1，y=1）。每一次合并方案不外乎三种 合并两个初始堆（a[x]+a[x+1]）； 一个初始堆与一个先前被合并的堆进行合并（a[x]+b[y]）； 两个先前被合并的堆进行合并（b[y]+b[y+1]）； 显然，本次合并耗费的体力值为 min=MIN{a[x]+a[x+1],a[x]+b[y],b[y]+b[y+1]} b序列新增加一个权值为min的元素（p=p+1，b[p]=min），min累计入最小的体力耗费值ans（ans=ans+min），并按照下述方法移动指针x、y 如果采纳第一种合并方案，则a序列的指针x=x+2； 如果采纳第二种合并方案，则a序列的指针x=x+1，b序列的指针y=y+1； 如果采纳第三种合并方案，则b序列的指针y=y+2。 由于a序列和b序列是递增的，因此，上述指针移动的方法可以保证每次总是选择权值最小的两个节点进行合并。显然，进行了n-1次合并后得出的ans即为问题的解。 readln(n); /*读入果子的种类数*/ fillchar(num,sizeof(num),0); for i←1 to n do /*读入每种果子的数目，计算num序列*/ { read(t);num[t]←num[t]+1;b[i]←maxlongint;};/* for */ p←0; /*各堆按照果子数递增的顺序排列*/ for i←1 to 20000 do for j←1 to num[i] do { p←p+1;a[p]←i;};/*then*/ p←0;x←1;y←1;ans←0; /*b序列的长度、a和b序列的指针、最小的体力耗费值初始化*/ for i←1 to n-1 do /*进行n-1次合并*/ { min←maxlongint; / *当前合并耗费的体力值初始化*/ if (a[x]+a[x+1]min) /*记下第一种合并类型*/ then { min←a[x]+a[x+1];method←1}; /*then*/ if (a[x]+b[y]min) then{min←a[x]+b[y];method←2}; /*记下第二种合并类型*/ if (b[y]+b[y+1]min)then{min←b[y]+b[y+1];method←3};/*记下第三种合并类型*/ p←p+1;b[p]←min;