最小函数值（树）

Description

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

Input

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

Output

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

Sample Input

 

3 10 

4 5 3 

3 4 5 

1 7 1

 

Sample Output

 

9 12 12 19 25 29 31 44 45 54

 

Hint

数据规模：n,m<=10 000

解题思路：先读入数据，分别读入三个数组，然后把他们制作成堆，再用循环，每输出一个就进行删除，排序。

程序：

var

  a,b,c,x,d,p:array[1..10001]of longint;

  m,n,i,j,xx,t,g,g1:longint;

procedure down;

  var

    i,j,q:longint;

  begin

    d[1]:=d[t];

    p[1]:=p[t];

    x[1]:=x[t];

    dec(t);

    i:=1;

    while i*2<=t do

      begin

        j:=i*2;

        if (d[j+1]<=t) then inc(j);

        if (d[j]

          begin

            q:=d[i]; d[i]:=d[j]; d[j]:=q;

            q:=p[i]; p[i]:=p[j]; p[j]:=q;

            q:=x[i]; x[i]:=x[j]; x[j]:=q;

          end else exit;

        i:=j;

      end;

end;

procedure up(x1,y,z:longint);

  var

    i,j,q:longint;

  begin

    inc(t);

    d[t]:=x1;

    p[t]:=y;

    x[t]:=z;

    i:=t;

    while i>1 do

      begin

        j:=i div 2;

        if d[j]>d[i] then

          begin

            q:=d[i]; d[i]:=d[j]; d[j]:=q;

            q:=p[i]; p[i]:=p[j]; p[j]:=q;

            q:=x[i]; x[i]:=x[j]; x[j]:=q;

          end else exit;

        i:=j;

      end;

end;

begin

  readln(n,m);

  for i:=1 to n do

    begin

      readln(a[i],b[i],c[i]);

      xx:=a[i]+b[i]+c[i];

      up(xx,i,1);

    end;

  for i:=1 to m do

    begin

      write(d[1],' ');

      g:=x[1]+1;

      g1:=p[1];

      down;

      up(a[g1]*g*g+b[g1]*g+c[g1],g1,g);

    end;

end.

版权属于: Chris

原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v0qt.html

转载时必须以链接形式注明原始出处及本声明。