[USACO] Score Inflation

【题目描述】

学生在我们USACO的竞赛中的得分越多我们越高兴。

我们试着设计我们的竞赛以便人们能尽可能的多得分,这需要你的帮助。

我们可以从几个种类中选取竞赛的题目,这里的一个"种类"是指一个竞赛题目的集合,解决集合中的题目需要相同多的时间并且能得到相同的分数。你的任务是写一个程序来告诉USACO的职员,应该从每一个种类中选取多少题目,使得解决题目的总耗时在竞赛规定的时间里并且总分最大。输入包括竞赛的时间,M(1 <= M <= 10,000)(不要担心,你要到了训练营中才会有长时间的比赛)和N,"种类"的数目1 <= N <= 10,000。后面的每一行将包括两个整数来描述一个"种类":

第一个整数说明解决这种题目能得的分数(1 <= points <= 10000),第二整数说明解决这种题目所需的时间(1 <= minutes <= 10000)。你的程序应该确定我们应该从每个"种类"中选多少道题目使得能在竞赛的时间中得到最大的分数。

来自任意的"种类"的题目数目可能是任何非负数(0或更多)。

计算可能得到的最大分数。

【解题报告】

时间卡的很坑爹，完全背包。

 1 {
 2 ID: wwzhwdw1
 3 PROG: inflate
 4 LANG: PASCAL
 5 }
 6 
 7 program inflate;
 8 var
 9   j,n,m,i:longint;
10   f,a,t:array[0..10001]of longint;
11 
12 procedure init;
13 begin
14   assign(input,'inflate.in');
15   reset(input);
16   assign(output,'inflate.out');
17   rewrite(output);
18 end;
19 
20 procedure outit;
21 begin
22   close(input);
23   close(output);
24 end;
25 
26 procedure main;
27 begin
28   readln(m,n);
29   for i:=1 to n do read(a[i],t[i]);
30   f[0]:=0;
31   for j:=1 to n do
32   for i:=t[j] to m do
33   begin
34     if f[i]<f[i-t[j]]+a[j] then f[i]:=f[i-t[j]]+a[j];
35   end;
36   writeln(f[m]);
37 end;
38 
39 begin
40   init;
41   main;
42   outit;
43 end.
44  

转载于:https://www.cnblogs.com/wwzhwdwd/archive/2011/08/27/2155573.html