度度熊的午饭时光 Accepts: 823 Submissions: 9241 Time Limit: 2000/1000 MS (Java/Others) Memory Limit: 32768/32768 K (Java/Others) Problem Description 度度熊最期待每天的午饭时光，因为早饭菜品清淡，晚饭减肥不敢吃太多（胖纸的忧伤T.T）。
百度食堂的午餐超级丰富，祖国各大菜系应有尽有，度度熊在每个窗口都有爱吃的菜品，而且他还为喜爱的菜品打了分，吃货的情怀呀(>.<)。
但是，好吃的饭菜总是很贵，每天的午饭预算有限，请帮度度熊算一算，怎样打饭才能买到的最好吃的饭菜?(不超过预算、不重样、午餐等分最高的情况下，选择菜品序号加和最小，加和相等时字典序最小的组合)
Input 第一行一个整数T，表示T组数据。 每组测试数据将以如下格式从标准输入读入：
B
N
score_1 cost_1
score_2 cost_2
:
score_N cost_N
第一行，正整数B（0 <= B <= 1000），代表午餐的预算。
第二行，正整数N (0 <= N <= 100)，代表午餐可选的菜品数量
从第三行到第 (N + 2) 行，每行两个正整数，以空格分隔，score_i表示菜品的得分，cost_i表示菜品的价格(0 <= score_i, cost_i <= 100)。
Output 对于每组数据，输出两行： 第一行输出：”Case #i:”。i代表第i组测试数据。 第二行输出菜品的总得分和总花费，以空格分隔。 第三行输出所选菜品的序号，菜品序号从1开始，以空格分隔。
Sample Input Copy 2 29 6 9 10 3 4 6 5 7 20 10 9 15 11 0 2 2 23 10 12 Sample Output Case #1: 34 29 2 3 5 6 Case #2: 0 0
正解
就是DP。没有别的了。处理特别的麻烦 设f[i,j]为在选第i个餐的时候，剩j块钱的时候的最大分数。 f[i,j]:=MAX{f[i-1,j],f[i-1,j+a[i]]+b[i]} b[i]表示第i个午餐的价值，a[i]为第i个午餐的分数 这里要记录路径。我们可以考虑用字符串存路径。方便输出。 先定c[i,j]数组为在f[i,j]的时候的当前路径和。 在设d数组为在f[i,j]时当前的路径。 首先判断的是f[i,j]，如果在转移的过程中两值相等，那么先比较c[i,j]。如果C[I,J]也相等，再暴力比较两选项的大小即可。（PS：必须将字符串拆开成记录选项的数组来存储再比较）
代码
var
t,i,n,m,j,k,tq,l,o,max,answer,ps:longint;
p,last1:ansistring;
bo:boolean;
a,b,q,ans1,ans2:
array[
0..
1000]
of longint;
d:
array[
0..
1000,
0..
1000]
of ansistring;
ans3:
array[
1..
1000]
of ansistring;
f,c:
array[
0..
1000,
0..
1000]
of longint;
begin
readln(t);
for i:=
1 to t
do
begin
readln(n);
readln(m);
answer:=
0;
fillchar(a,sizeof(a),
0);
fillchar(b,sizeof(b),
0);
fillchar(c,sizeof(c),
0);
fillchar(f,sizeof(f),
0);
for j:=
1 to m
do
begin
read(a[j],b[j]);
end;
for j:=
0 to m
do
for k:=
0 to n
do
d[j,k]:=
'';
for j:=
0 to m
do
for k:=
0 to n
do
f[j,k]:=-maxlongint
div 3;
f[
0,n]:=
0;
for j:=
1 to m
do
begin
for k:=
0 to n
do
begin
if (k+b[j]>n)
then
begin
f[j,k]:=f[j-
1,k];
str(j,p);
d[j,k]:=d[j-
1,k];
c[j,k]:=c[j-
1,k];
continue;
end;
if (f[j-
1,k]<f[j-
1,k+b[j]]+a[j])
then
begin
f[j,k]:=f[j-
1,k+b[j]]+a[j];
str(j,p);
d[j,k]:=d[j-
1,k+b[j]]+p;
d[j,k]:=d[j,k]+
' ';
c[j,k]:=c[j-
1,k+b[j]]+j;
end;
if (f[j-
1,k]>f[j-
1,k+b[j]]+a[j])
then
begin
f[j,k]:=f[j-
1,k];
str(j,p);
d[j,k]:=d[j-
1,k];
c[j,k]:=c[j-
1,k];
end;
if (f[j-
1,k]=f[j-
1,k+b[j]]+a[j])
then
begin
bo:=
false;
if (c[j-
1,k]=c[j-
1,k+b[j]])
then
begin
fillchar(q,sizeof(q),
0);
last1:=
'';
tq:=
0;
for l:=
1 to length(d[j-
1,k])
do
begin
if d[j-
1,k][l]=
' ' then
begin
inc(tq);
val(last1,q[tq],ps);
last1:=
'';
end
else
begin
last1:=last1+d[j-
1,k][l];
end;
end;
inc(tq);
val(last1,q[tq],ps);
last1:=
'';
tq:=
0;
for l:=
1 to length(d[j-
1,k+b[i]])
do
begin
if d[j-
1,k+b[i]][l]=
' ' then
begin
inc(tq);
val(last1,o,ps);
last1:=
'';
if o<q[tq]
then
begin
bo:=
true;
break;
end;
end
else
begin
last1:=last1+d[j-
1,k+b[i]][l];
end;
end;
end;
if (c[j-
1,k]<c[j-
1,k+b[j]]+j)
or (bo)
then
begin
f[j,k]:=f[j-
1,k+b[j]]+a[j];
str(j,p);
d[j,k]:=d[j-
1,k];
c[j,k]:=c[j-
1,k];
continue;
end ;
if (c[j-
1,k]>c[j-
1,k+b[j]]+j)
or (bo=
false)
then
begin
f[j,k]:=f[j-
1,k+b[j]]+a[j];
str(j,p);
d[j,k]:=d[j-
1,k+b[j]]+p;
d[j,k]:=d[j,k]+
' ';
c[j,k]:=c[j-
1,k+b[j]]+j;
end;
end;
end;
end;
max:=f[m,
0];
answer:=
0;
for j:=
1 to n
do
begin
if (f[m,j]>max)
or ((f[m,j]=max)
and (c[m,j]<c[m,answer]))
then
begin
max:=f[m,j];
answer:=j;
end;
end;
delete(d[m,answer],length(d[m,answer]),
1);
ans1[i]:=max;
ans2[i]:=n-answer;
ans3[i]:=d[m,answer];
end;
for i:=
1 to t
do
begin
str(i,p);
writeln(
'Case #',p,
':');
writeln(ans1[i],
' ',ans2[i]);
if ans3[i]<>
'' then
writeln(ans3[i]);
end;
end.
