【堆】最小函数值

最小函数值

问题描述
    有n个函数，分别为F1,F2,...,Fn。定义Fi(x)=Ai*x^2+Bi*x+Ci(x∈N*)。给定这些Ai、Bi和Ci，请求出所有函数的所有函数值中最小的m个（如有重复的要输出多个）。

输入数据
    第一行输入两个正整数n和m。
    以下n行每行三个正整数，其中第i行的三个数分别位Ai、Bi和Ci。输入数据保证Ai<=10，Bi<=100，Ci<=10 000。

输出数据
    输出将这n个函数所有可以生成的函数值排序后的前m个元素。
    这m个数应该输出到一行，用空格隔开。

样例输入
3 10
4 5 3
3 4 5
1 7 1

样例输出
9 12 12 19 25 29 31 44 45 54

时间限制
    各测试点1秒

内存限制
    你的程序将被分配32MB的运行空间

数据规模
    n,m<=10 000

====

数据结构：堆操作

====
var n,m:longint; f:array[1..10000]of longint; procedure init;begin assign(input,'minval.in'); assign(output,'minval.out'); reset(input); rewrite(output);end;procedure terminate;begin close(input); close(output); halt;end;function work(a,b,c,x:longint):longint;begin work:=a*x*x+b*x+c;end;procedure swap(var a,b:longint);var t:longint;begin t:=a; a:=b; b:=t;end;procedure shift(m,r:longint);var k:longint;begin while 2*r<=m do begin k:=2*r; if (k+1<=m)and(f[k]<f[k+1]) then inc(k); if f[r]<f[k] then swap(f[r],f[k]); r:=k; end;end;procedure sort;var i:longint;begin for i:=1 to m-1 do begin swap(f[1],f[m-i+1]); shift(m-i,1); end;end;procedure main;var i:longint; a,b,c,x:longint;begin readln(n,m); fillchar(f,sizeof(f),$7); for i:=1 to n do begin readln(a,b,c); x:=1; while work(a,b,c,x)<f[1] do begin f[1]:=work(a,b,c,x); shift(m,1); inc(x); end; end; sort; for i:=1 to m-1 do write(f[i],' '); writeln(f[m]);end;begin init; main; terminate;end.