讨论 / 算暴三个点怎么处理?
xxwzy 2009-04-17 04:02:00
点我顶贴 收藏 删除
算暴三个点怎么处理?难道高精度??

附70分 215三个点 程序

var w,v,q:array[0..9001]of longint;

f:array[0..9001]of longint;

n,t,i,j,k:longint;

begin

read(n,t);

for i:=1 to n do readln(w[i],v[i],q[i]);

for i:=1 to n do

for j:=t downto w[i]+1 do

for k:= 1 to j div w[i] do

begin

if k>=5 then

if j-k*w[i]-k*q[i]>=0 then

if f[j]<f[j-k*w[i]-k*q[i]]+v[i]*k+k*q[i] then f[j]:=f[j-k*w[i]-k*q[i]]

+v[i]*k+k*q[i];

if f[j]<f[j-k*w[i]]+v[i]*k then f[j]:=f[j-k*w[i]]+v[i]*k;

end;

write(f[t]);

end.

#1 小小小学生@2009-04-04 05:38:00
回复 删除
把类型弄大点,看你够不够运气,呵呵。
#2 xxwzy@2009-04-04 06:23:00
回复 删除
类型int64 or qword 都挂了
#3 xxwzy@2009-04-05 03:14:00
回复 删除
顶上
#4 xxwzy@2009-04-06 01:24:00
回复 删除
还顶……
#5 xxwzy@2009-04-06 07:05:00
回复 删除
在顶上
#6 xxwzy@2009-04-13 03:56:00
回复 删除
不厌其烦地顶
#7 xxwzy@2009-04-16 03:35:00
回复 删除
大牛都睡觉去了
#8 Mato完整版@2009-04-17 04:02:00
回复 删除
http://www.rqnoj.cn/Solution_Show.asp?DID=4347
查看更多回复
提交回复