邮票 pascal（usaco）水第十组数据的优化！！！

显示全部楼层 · 2010-11-12 22:07:47

设已知面额的邮票m种，每种有n张。问：用总数不超过n张的邮票进行组合，能组合的邮票面额中可以连续出现的面额数最多有多少？
输入：第一行：n和m的值，中间用一空格隔开。

第二行：a[1..m]（面额），每个数中间用一个空格隔开。
输出：连续面额数的最大值
样例输入：43

124
样例输出：14
pascal语言

千问 · 2010-11-12 22:07:47

虽然是DP，但你的程序写的太不好了，以至于复杂度的常数比较大我的：var n,m,i,j,min:longint;
a,f:array[0..1000] of longint;beginreadln(n,m);for i:=1 to m do read(a);f[0]:=0;i:=0;repeat
i:=i+1; min:=maxlongint;
for j:=1 to m do
if i>=a[j] then
if f[i-a[j]]+1<min then min:=f[i-a[j]]+1;
f:=min;u

千问 · 2010-11-12 22:07:47

program zd1; var a,b:array[0..25500]of longint;
f:array[0..25500]of boolean;
i,n,m,j,k,max:longint;begin readln(m);
readln(n);
max:=0;
for i