239 条题解
-
0
fengye61yi LV 8 @ 2008-10-17 20:58:54
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms -
0
破晓Daybreak LV 8 @ 2008-10-16 20:38:43
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms -
0
├ 测试数据 05：运行时错误...| 错误号: 216 | 存取非法
啥意思？
var
time,price:array[0..100] of longint;
t:longint;
i,m,j:integer;
count:array[0..1000] of longint;
begin
readln(t);
readln(m);
for i:= 1 to m do
begin
readln(time[i]);
price[i]:= time[i];
end;
fillchar(count,sizeof(count),0);
for i:= 1 to m do
for j:= t downto 1 do
begin
if (j>=time[i]) and (price[i]+count[j-time[i]]>count[j]) then
count[j]:=price[i]+count[j-time[i]];
end;
writeln(t-count[t]);
end.前几个点对了。0ms
-
0
wangshizhou LV 8 @ 2008-10-08 15:34:28
数组为什么开到20002呢？
-
0
忘了怎么写背包了，于是写了个DFS。AC了。
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 41ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：41ms
var
w,n,i,min:longint;
a:array[0..30]of longint;procedure dfs(i,last:integer);
begin
if (lastn) and (last>=0) then
begin
if last -
0
Program meng;
var
f:array[1..100]of integer;
i,j,k,l,n,m,min,h:integer;
w:array[1..100]of integer;
g:array[1..100]of boolean;
beginreadln(m);
readln(n);
for i:=1 to n do
begin
g[i]:=true;
readln(w[i]);
end;
min:=0;for i:=1 to n do
begin
for j:=1 to i do
for k:=1 to n do
if (f[i]+w[k]>=f[i])and(g[k])and(f[i]+w[k]min then min:=f[i];
for h:=1 to n do
g[h]:=true;
end;
writeln(m-min);
end. -
0
panyoucheng LV 3 @ 2008-09-13 10:47:42
编译通过...
├ 测试数据 01：答案错误... ├ 标准行输出 1
├ 错误行输出 2
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案错误...程序输出比正确答案长
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：60 有效耗时：0ms哪错了？var v,n,total,max:integer;vol:array [1..30] of integer;
f:array[0..30,0..20000] of integer;
procedure init;
var i:integer;
begin
readln(v);
readln(n);
for i:=1 to n do
readln(vol[i]);
end;procedure dp;
var i,j:integer;
begin
for i:=1 to n do
for j:=vol[i] to v do
begin
f:=f;
if f+vol[i]>f then
f:=f+vol[i];
end;
end;begin
init;
dp;
write(v-f[n,v]);
end.
fengye61yi
LV 8
@ 2008-10-17 20:58:54
