574380920 2010-12-22 02:32:00
点我顶贴
收藏
删除
请哪位大牛看一下说一说我的错误
代码:var a:array[1..10,1..2000] of longint;
i,j,n,t,k,name,x,y:longint;
f:array[0..2000] of longint;
begin
readln(t,n,name);
for i:=1 to 10 do
for j:=1 to 2000 do
a[i,j]:=0;
for i:=1 to n do
begin
for j:=1+name to t+name do
read(a[i,j]);
readln;
end;
f[0]:=0;x:=1+name;
for i:=1 to t do
for j:=1 to n do
for k:=x to i do
if f[i-k]+a[j,k]>f[i] then f[i]:=f[i-k]+a[j,k];
writeln(f[t]);
end.