最小函数值问题解决(精选).docVIP

【题目描述】有n个函数，分别为F1,F2,...,Fn。定义Fi x Ai*x^2+Bi*x+Ci xN* 。给定这些Ai、Bi和Ci，请求出所有函数的所有函数值中最小的m个（如有重复的要输出多个【格式神马的】输入数据第一行输入两个正整数n n 10000 和m m 10000 。以下n行每行三个正整数，其中第i行的三个数分别位Ai、Bi和Ci。输入数据保证0 Ai 10，0 Bi 100，0 Ci 10 000。 输出数据输出将这n个函数所有可以生成的函数值排序后的前m个元素。这m个数应该输出到一行，用空格隔开。 样例输入3 104 5 33 4 51 7 1 样例输出9 12 12 19 25 29 31 44 45 54【规模】20%的数据n 100100%的数据n 1000090%的数据9000 m 10000 【分析】利用堆结构，建大根堆，再用堆排序。建大根堆的过程中用到小根堆来取fi[x]中最小的数。堆满后，还要进行若干取最小数的过程，直到新的最小数比大根堆中根要大。若要输出前12个数，应为9 12 12 19 25 29 31 44 45 54 61 69。 program p3; ?var minh,maxh:array[1..10000]of longint; a,b,c:array[1..10000]of integer; te,n,m,i,j,lmin,lmax,x:longint; ?function f i,x:integer :longint; ?begin f: a[i]*x*x+b[i]*x+c[i]; ?end; ?procedure putmin y:longint ;//建立小根堆 ?var te:longint;son:integer; ?begin lmin: lmin+1; minh[lmin]: y; son: lmin; while son 1 and minh[son div 2] minh[son] do begin te: minh[son]; minh[son]: minh[son div 2]; minh[son div 2]: te; son: son div 2; end; ?end; ?procedure putmax y:longint ;//建立大根堆 ?var te:longint;son:integer; ?begin lmax: lmax+1; maxh[lmax]: y; son: lmax; while son 1 and maxh[son div 2] maxh[son] do begin te: maxh[son]; maxh[son]: maxh[son div 2]; maxh[son div 2]: te; son: son div 2; end; ?end; ?function getmin :longint;//取小根堆中根结点 ?var fa,son:integer;te:longint; ?begin getmin: minh[1]; minh[1]: minh[lmin]; lmin: lmin-1; fa: 1; while fa*2 lmin or fa*2+1 lmin do ??begin if fa*2+1 lmin or minh[fa*2] minh[fa*2+1] then son: fa*2 else son: fa*2+1; if minh[fa] minh[son] then begin te: minh[fa]; minh[fa]: minh[son]; minh[son]: te; fa: son; end else break; end; ?end; ?procedure tiao i:longint ;//调整大根堆 ?var i0,y0,j0:longint; ?begin i0: i; y0: maxh[i]; j0: 2*i0; while j0 lmax do begin if j0 lmax and maxh[j0] maxh[j0+1] then j0: j0+1; if y0 maxh[j0]then begin maxh[i0]: maxh[j0];i0: j0;j0: 2*i0 end else j0: lmax+1; end; maxh[i0]: y0; ?end; ?begin readln n,m ; for i: 1 to n do?? readln a[i],b[i],c[i] ; lmax: 0;lmin: 0;x: 1; for i: 1 to n do putmin f i,x ;//对于