一道大水题——采药

题目描述

辰辰是个天资聪颖的孩子,他的梦想是成为世界上最伟大的医师。为此,他想拜附近最有威望的医师为师。医师为了判断他的资质,给他出了一个难题。医师把他带到一个到处都是草药的山洞里对他说:“孩子,这个山洞里有一些不同的草药,采每一株都需要一些时间,每一株也有它自身的价值。我会给你一段时间,在这段时间里,你可以采到一些草药。如果你是一个聪明的孩子,你应该可以让采到的草药的总价值最大。”

如果你是辰辰,你能完成这个任务吗?

输入输出格式

输入格式:

 

第一行有 22 个整数 T(1 \le T \le 1000)T(1≤T≤1000) 和 M(1 \le M \le 100)M(1≤M≤100) ,用一个空格隔开, TT 代表总共能够用来采药的时间, MM 代表山洞里的草药的数目。
接下来的 MM 行每行包括两个在 11 到 100100 之间(包括 11 和 100100 )的整数,分别表示采摘某株草药的时间和这株草药的价值。

 

输出格式:

 

11 个整数,表示在规定的时间内可以采到的草药的最大总价值。

 

输入输出样例

输入样例#1: 复制

70 3
71 100
69 1
1 2

输出样例#1: 复制

3

说明

对于30%的数据, M \le 10M≤10 ;

对于全部的数据, M \le 100M≤100 

经典dp——01背包

dp[i][j]表示在取到第i个物品时使用容量为j的采药最大价值

那么对于每一种药都有选或者不选

当j>a[i] 时那么f[i][j]=max(f[i-1][j-a[i],f[i-1][j])

否则说明无法放入,则f[i][j]=f[i-1][j]

代码如下

uses math;(懒人专用,比赛不推荐,会拖慢速度)
var
n,t,i,j:longint;
a,b:array[0..10000] of longint;
f:array[0..2000,0..1000] of longint;
begin
 readln(t,n);
 for i:=1 to n do readln(a[i],b[i]);
 for i:=1 to n do
  for j:=1 to t do
   begin
    if j-a[i]>=0 then f[i][j]:=max(f[i-1][j-a[i]]+b[i],max(f[i-1][j],f[i][j-1]))
    else f[i][j]:=max(f[i-1][j],f[i][j-1]);
   end;
 writeln(f[n][t]);
end.
 

 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值