永发信息网

金明的预算方案noip2006

答案:1  悬赏:50  手机版
解决时间 2021-06-01 07:07
系统正在处理您的请求 请勿刷新此页……
您有新消息

请点击 这里 进入消息中心
16/24(67%)   首页 站务 公告 | 题库/分类/原题 记录 比赛 团队 交流 讨论 爱心捐助 | U-S 搜索 换肤 正體 | 登出
公告 News >>   New! 关于临时关闭注册的说明 (2009-11-5 23:33:12)   New! 关于昨晚比赛一些问题 (2009-10-26 12:09:02)   New! 第一届Curimit模拟赛 评测结束 (2009-10-26 10:43:55)   New! 第一届Curimit模拟赛 延时15分钟 (2009-10-25 22:06:18)   New! 关于题目的提交 (2009-10-24 17:36:41)
From Sleeping
金明的预算方案
讨论 Discussion
希望大牛们看一下,只有60分(用了文件不算)
lq
program lq;
const
   inf='budget.in';
   ouf='budget.out';
var
   v,n,i,j,k,l,c0:longint;
   c,w:array[0..60,1..3] of longint;
   b:array[0..60] of byte;
   f:array[0..60,0..3200] of longint;
begin
   assign(input,inf);reset(input);
   assign(output,ouf);rewrite(output);
   readln(v,n);
   v:=v div 10;
   fillbyte(b,sizeof(b),1);
   for i:=1 to n do begin
    readln(j,k,l);
    if l=0 then begin
     inc(c0);
     c[c0,1]:=j div 10;
     w[c0,1]:=k;
    end
    else begin
     inc(b[l]);
     c[l,b[l]]:=j div 10;
     w[l,b[l]]:=k;
    end;
   end;
   close(input);
   for i:=1 to c0 do
    for j:=0 to v do begin
     f[i,j]:=f[i-1,j];
     if ((j>=c[i,1]) and (f[i,j] < (f[i-1,j-c[i,1]]+w[i,1]*c[i,1]))) then
       f[i,j]:=(f[i-1,j-c[i,1]]+w[i,1]*c[i,1]);
     if ((j>=c[i,2]+c[i,1]) and
       (f[i,j] < (f[i-1,j-c[i,1]-c[i,2]]+w[i,1]*c[i,1]+w[i,2]*c[i,2]))) then
       f[i,j]:=(f[i-1,j-c[i,1]-c[i,2]]+w[i,1]*c[i,1]+w[i,2]*c[i,2]);
     if ((j>=c[i,3]+c[i,1]) and
       (f[i,j] < (f[i-1,j-c[i,1]-c[i,3]]+w[i,1]*c[i,1]+w[i,3]*c[i,3]))) then
       f[i,j]:=(f[i-1,j-c[i,1]-c[i,3]]+w[i,1]*c[i,1]+w[i,3]*c[i,3]);
     if ((j>=c[i,2]+c[i,1]+c[i,3]) and
       (f[i,j] < (f[i-1,j-c[i,1]-c[i,2]-c[i,3]]+w[i,1]*c[i,1]+w[i,2]*c[i,2]+w[i,3]*c[i,3]))) then
       f[i,j]:=(f[i-1,j-c[i,1]-c[i,2]-c[i,3]]+w[i,1]*c[i,1]+w[i,2]*c[i,2]+w[i,3]*c[i,3]);
    end;
   writeln(f[c0,v]*10);
   close(output);
end.

( 2009-11-8 20:33:06 )

踮脚眺望^-^...
此主题无回复显示
发布讨论主题 回复讨论主题
Flag   
题号   P1313
类型(?)   动态规划
通过   2957人
提交   9811次
通过率   30%
难度   2
提交 讨论 题解 状态
lq
 Copyright Vijos 高效信息学在线评测系统 © 2005-2009. www.Vijos.cn Powered by Vivian Snow 关于 联系 帮助
 Vijos Infor ---- Total Users : 54598 | Online Users / Processes : 341 / 833 | Proc. Time : 172 ms | Current Time : 2009-11-8 21:09:06 湘ICP备06015828号
最佳答案
你好 楼主。
很幸运的看到你的问题。
但是又很遗憾到现在还没有人回答你的问题。也可能你现在已经在别的地方找到了答案,那就得恭喜你啦。
可能是你问的问题有些专业了,没人会。或者别人没有遇到或者接触过你的问题,所以帮不了你。建议你去问题的相关论坛去求助,那里的人通常比较多,也比较热心,可能能快点帮你解决问题。
希望我的回答也能够帮到你!
祝你好运。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
手机离人体多远没有幅射?
什么是爱情?什么是天长地久?什么是白头谐老
苏淳和小贝谁更幸福?
分手后就真的变成陌路了嚒?
哪里又确认呀
成语接龙!!
看看这只RS杂样?杂加点?速度...
1+3-2+5=(3)数字和符号只能动一下请问为什
血小板缺少性紫癫
你们最喜欢哪部鬼故事?哪部最恐怖
什么牌子的十字绣好呢?
qq空间到底怎么添加模块啊
我是一名即将到东华理工大学南昌校区上学的新
求win7旗舰版最新激活码
电脑屏幕画面会摇晃,是怎么一回事啊?晕…
推荐资讯
请问一下如果我的工资是5000元,我按照这个标
谁能邀请我开启QQ游戏人生,在线等
数学小问题,急
电视该看吗
qq空间问题请人帮忙
为什么我的QQ空间导航显示不出来啊
会有1辈子的爱情么?单纯的没有任何杂质的。
怎么防QQ被盗
08年温网费德勒对纳达尔视频下载
不爱说话,不爱笑,为什么啊
什么东西不怕水?
看妇科怎么那么贵呀!
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?