第一次
题目:金明的预算方案
状态: Compile Error
测评机： Xeond[6]
得分： 0分
提交日期： 2011-9-18 14:30:00
有效耗时： 该状态没有记录
RQNOJ近期在线比赛列表
RQNOJ九月份月赛 时间:2011-9-24 18:30:00 [报名]
编译错误:
Free Pascal Compiler version 2.4.4 [2011/04/23] for i386
Copyright (c) 1993-2010 by Florian Klaempfl
Target OS: Win32 for i386
Compiling //RQNOJ:UserCode\598101.pas
598101.pas(51,4) Error: Identifier not found "ned"
598101.pas(55) Fatal: Syntax error, ";" expected but "end of file" found
Fatal: Compilation aborted
Error: //RQNOJ:Bin\FPC\bin\i386-win32\ppc386.exe returned an error exitcode (normal if you did not specify a source file to be compiled)
提交代码： view sourceprint?01.program kl;
02.
03.var n,m,z,i:integer; ans:longint;
04.
f:array[0..3200]of longint;
05.
v,t:array[1..60,0..2]of longint;
06.
07.procedure init;
08.var i,vp,p,q:integer; o:array[1..60]of integer;
09.begin readln(n,m); n:=n div 10; z:=0;
10.
fillchar(f,sizeof(f),0);
11.
fillchar(t,sizeof(t),0);
12.
fillchar(o,sizeof(o),0);
13.
for i:=1 to m do begin
14.
readln(vp,p,q); vp:=vp div 10;
15.
if q=0 then begin
16.
inc(z); o[i]:=z; v[z,0]:=vp; t[z,0]:=vp*p end
17.
else if t[o[q],1]=0 then begin
18.
v[o[q],1]:=vp; t[o[q],1]:=vp*p end
19.
else begin
20.
v[o[q],2]:=vp; t[o[q],2]:=vp*p end
21.
end
22.end;
23.
24.procedure main;
25.var i,j:integer; tmp:longint;
26.begin for i:=1 to z do
27.
for j:=n downto 0 do begin
28.
tmp:=j-v[i,0];
29.
if (tmp>=0)and(f[j]<f[tmp]+t[i,0])
30.
then f[j]:=f[tmp]+t[i,0];
31.
if v[i,1]>0 then begin
32.
tmp:=j-v[i,0]-v[i,1];
33.
if (tmp>=0)and(f[j]<f[tmp]+t[i,0]+t[i,1])
34.
then f[j]:=f[tmp]+t[i,0]+t[i,1]
35.
end;
36.
if v[i,2]>0 then begin
37.
tmp:=j-v[i,0]-v[i,2];
38.
if (tmp>=0)and(f[j]<f[tmp]+t[i,0]+t[i,2])
39.
then f[j]:=f[tmp]+t[i,0]+t[i,2];
40.
tmp:=j-v[i,0]-v[i,1]-v[i,2];
41.
if (tmp>=0)and(f[j]<f[tmp]+t[i,0]+t[i,1]+t[i,2])
42.
then f[j]:=f[tmp]+t[i,0]+t[i,1]+t[i,2]
43.
end
44.
end
45.end;
46.
47.
48.begin ans:=0;init;main;
49.
for i:=0 to n do if f[i]>ans then ans:=f[i];
50.
writeln(ans*10);
51.ned.
第二次，终于对了！第一次居然把end.写成了ned.哎，低智商错误！！！！！！！！！！！！！！！！！！
题目:金明的预算方案
状态: Accepted
测评机： Xeost[5]
得分： 100分 [我要评价一下题目~]
提交日期： 2011-9-18 14:34:00
有效耗时： 578毫秒
RQNOJ近期在线比赛列表
RQNOJ九月份月赛 时间:2011-9-24 18:30:00 [报名]
测试结果1: 通过本测试点|有效耗时157ms
测试结果2: 通过本测试点|有效耗时46ms
测试结果3: 通过本测试点|有效耗时47ms
测试结果4: 通过本测试点|有效耗时47ms
测试结果5: 通过本测试点|有效耗时47ms
测试结果6: 通过本测试点|有效耗时47ms
测试结果7: 通过本测试点|有效耗时47ms
测试结果8: 通过本测试点|有效耗时47ms
测试结果9: 通过本测试点|有效耗时47ms
测试结果10: 通过本测试点|有效耗时46ms
提交代码： view sourceprint?01.program kl;
02.
03.var n,m,z,i:integer; ans:longint;
04.
f:array[0..3200]of longint;
05.
v,t:array[1..60,0..2]of longint;
06.
07.procedure init;
08.var i,vp,p,q:integer; o:array[1..60]of integer;
09.begin readln(n,m); n:=n div 10; z:=0;
10.
fillchar(f,sizeof(f),0);
11.
fillchar(t,sizeof(t),0);
12.
fillchar(o,sizeof(o),0);
13.
for i:=1 to m do begin
14.
readln(vp,p,q); vp:=vp div 10;
15.
if q=0 then begin
16.
inc(z); o[i]:=z; v[z,0]:=vp; t[z,0]:=vp*p end
17.
else if t[o[q],1]=0 then begin
18.
v[o[q],1]:=vp; t[o[q],1]:=vp*p end
19.
else begin
20.
v[o[q],2]:=vp; t[o[q],2]:=vp*p end
21.
end
22.end;
23.
24.procedure main;
25.var i,j:integer; tmp:longint;
26.begin for i:=1 to z do
27.
for j:=n downto 0 do begin
28.
tmp:=j-v[i,0];
29.
if (tmp>=0)and(f[j]<f[tmp]+t[i,0])
30.
then f[j]:=f[tmp]+t[i,0];
31.
if v[i,1]>0 then begin
32.
tmp:=j-v[i,0]-v[i,1];
33.
if (tmp>=0)and(f[j]<f[tmp]+t[i,0]+t[i,1])
34.
then f[j]:=f[tmp]+t[i,0]+t[i,1]
35.
end;
36.
if v[i,2]>0 then begin
37.
tmp:=j-v[i,0]-v[i,2];
38.
if (tmp>=0)and(f[j]<f[tmp]+t[i,0]+t[i,2])
39.
then f[j]:=f[tmp]+t[i,0]+t[i,2];
40.
tmp:=j-v[i,0]-v[i,1]-v[i,2];
41.
if (tmp>=0)and(f[j]<f[tmp]+t[i,0]+t[i,1]+t[i,2])
42.
then f[j]:=f[tmp]+t[i,0]+t[i,1]+t[i,2]
43.
end
44.
end
45.end;
46.
47.
48.begin ans:=0;init;main;
49.
for i:=0 to n do if f[i]>ans then ans:=f[i];
50.
writeln(ans*10);
51.end.