noip2006-金明2008.11.5

noip2006-金明2008.11.5

问题：1.把主件单独拿出来，改变了原来的编号，反而跟难处理

我在存储的时候，把附件剔除出去了，一直wa，后来，看了别人的，他们在读入附件的时候，直接加在主见的后边，应当存放附件的那个编号是空的，这样号码就不会乱了。我是把主见单独挑出来，存在一个数组里，这样初始号码就很乱，对数据的处理就不是太容易。实际上，把附件站的那个编号，都赋值为0，dp时当然不会影响结果，反倒是我把编号变了更难处理。

2.编号时顺次编的，不论是主件还是附件，都有编号，不是只有主件才有编号，做特是要格外注意这一点。

Program1：打乱编号的wa

program p_budget;
const fin='budget.in';fout='budget.out';
var f1,f2:text;
       lu,v,m,n,i,j,k:longint;
       {v:钱；m输入的件数；n：主件的个数}
       a:array[1..60,1..2]of longint;{zhujian}
       u:array[1..60,1..3]of longint;
       d:array[1..60]of longint;
       b:array[1..60,1..2,1..2]of longint;{fujian}
       {       主件编号，附件号，1：价格，2：重要度}
       c:array[1..60]of longint;
       f:array[0..3200]of longint;
procedure init;
var i,x1,x2,x3:longint;
begin
     fillchar(b,sizeof(b),0);k:=0;lu:=0;
     n:=0;fillchar(c,sizeof(c),0);

     read(v,m);v:=v div 10;
     for i:=1 to m do
        begin read(x1,x2,x3);
          x1:=x1 div 10;
             if x3=0 then
                       begin inc(n);d[n]:=i;a[n,1]:=x1;a[n,2]:=x2;end
                   else begin
                   inc(lu);u[lu,1]:=x1;u[lu,2]:=x2;u[lu,3]:=x3;end;
       end;
                       for i:=1 to lu do
                     begin
                       k:=0;repeat inc(k);until d[k]=u[i,3];
                       inc(c[k]);
                       b[k,c[k],1]:=u[i,1];b[k,c[k],2]:=u[i,2];
                       end;//这里打乱了编号，实际上，不重新编号，对结果，运行时间的影响并不大
 {for i:=1 to n do
  begin writeln('-------------------',i,'-----------------',d[i]);
        write(a[i,1],' ',a[i,2],'         ',b[i,1,1],' ',b[i,1,2],'      ',b[i,2,1],' ',b[i,2,2]);
        writeln;
        end;}
end;
 procedure doit;
var i,j,ans:longint;
begin fillchar(f,sizeof(f),0);
   for i:=1 to n do
     for j:=v downto 0 do
        begin
           if (j-a[i,1]>=0) and ((f[j-a[i,1]]+a[i,2]*a[i,1])>f[j]) then f[j]:=f[j-a[i,1]]+a[i,2]*a[i,1];
           if (j-a[i,1]-b[i,1,1]>=0) and ((f[j-a[i,1]-b[i,1,1]]+a[i,2]*a[i,1]+b[i,1,1]*b[i,1,2])>f[j]) then
                  f[j]:=f[j-a[i,1]-b[1,1,1]]+a[i,2]*a[i,1]+b[i,1,1]*b[i,1,2];
            if (j-a[i,1]-b[i,2,1]>=0)  and ((f[j-a[i,1]-b[i,2,1]]+a[i,2]*a[i,1]+b[i,2,1]*b[i,2,2])>f[j]) then
                  f[j]:=f[j-a[i,1]-b[1,2,1]]+a[i,2]*a[i,1]+b[i,2,1]*b[i,2,2];
           if (j-a[i,1]-b[i,1,1]-b[i,2,1]>=0) and ((f[j-a[i,1]-b[i,1,1]-b[i,2,1]]+a[i,1]*a[i,2]+b[i,1,1]*b[i,1,2]+b[i,2,1]*b[i,2,2])>f[j]) then
                  f[j]:=f[j-a[i,1]-b[i,1,1]-b[i,2,1]]+a[i,1]*a[i,2]+b[i,1,1]*b[i,1,2]+b[i,2,1]*b[i,2,2];
       end;
       ans:=0;
for i:=1 to v do
begin
  if f[i]>ans then ans:=f[i];
  end;
  write(ans*10);
end;
begin init; doit;end.

Program 2 ：心得：在dp前，要对数据进行最好的处理，使得在dp时，尽量少的计算。本题先计算出了每件物品的值，避免了重复的计算。

type
	sz=record
		x:longint;
		v,w:array[0..60] of longint;
	    end;
var
	a:array[0..60] of sz;
	i,j,k,n,m,v,p,q,max:longint;
	f:array[0..10000] of longint;
begin
    assign(input,'budget.in');reset(input);
assign(output,'budget.out');rewrite(output);
	readln(n,m); n:=n div 10; j:=0;
	for i:=1 to m do begin
		readln(v,p,q);
                v:=v div 10; p:=p*v;//直接算出重要度和价格的积，避免以后重复计算
		if q=0 then begin
	        	a[i].v[0]:=v;
			a[i].w[0]:=p;
			inc(k);
		end
	        else
		begin
            inc(a[q].x);
			a[q].v[a[q].x]:=v;
			a[q].w[a[q].x]:=p;
		end;
	end;
        for i:=1 to m do
		for j:=n downto 0 do begin
			if (j-a[i].v[0]>=0)and(f[j-a[i].v[0]]+a[i].w[0]>f[j]) then  
f[j]:=f[j-a[i].v[0]]+a[i].w[0];
                        if (j-a[i].v[0]-a[i].v[1]>=0)and(f[j-a[i].v[0]-a[i].v[1]]+a[i].w[0]+a[i].w[1]>f[j]) then
			f[j]:=f[j-a[i].v[0]-a[i].v[1]]+a[i].w[0]+a[i].w[1];
			if (j-a[i].v[0]-a[i].v[2]>=0)and
				(f[j-a[i].v[0]-a[i].v[2]]+a[i].w[0]+a[i].w[2]>f[j]) then
			f[j]:=f[j-a[i].v[0]-a[i].v[2]]+a[i].w[0]+a[i].w[2];
			if (j-a[i].v[0]-a[i].v[1]-a[i].v[2]>=0)and
				 
(f[j-a[i].v[0]-a[i].v[1]-a[i].v[2]]+a[i].w[0]+a[i].w[1]+a[i].w[2]>f[j]) then
			f[j]:=f[j-a[i].v[0]-a[i].v[1]-a[i].v[2]]+a[i].w[0]+a[i].w[1]+a[i].w[2];
			end;
	max:=0;
	for i:=1 to n do if f[i]>max then max:=f[i];
	writeln(max*10);
close(input);close(output);
end.