作业帮求此题FREE PASCAL源代码
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/08 17:48:41
求此题FREE PASCAL源代码
采药
描述 Description
辰辰是个天资聪颖的孩子,他的梦想是成为世界上最伟大的医师.为此,他想拜附近最有威望的医师为师.医师为了判断他的资质,给他出了一个难题.医师把他带到一个到处都是草药的山洞里对他说：“孩子,这个山洞里有一些不同的草药,采每一株都需要一些时间,每一株也有它自身的价值.我会给你一段时间,在这段时间里,你可以采到一些草药.如果你是一个聪明的孩子,你应该可以让采到的草药的总价值最大.” 如果你是辰辰,你能完成这个任务吗?
输入格式 Input Format
第一行有两个整数T（1
采药
描述 Description
辰辰是个天资聪颖的孩子,他的梦想是成为世界上最伟大的医师.为此,他想拜附近最有威望的医师为师.医师为了判断他的资质,给他出了一个难题.医师把他带到一个到处都是草药的山洞里对他说：“孩子,这个山洞里有一些不同的草药,采每一株都需要一些时间,每一株也有它自身的价值.我会给你一段时间,在这段时间里,你可以采到一些草药.如果你是一个聪明的孩子,你应该可以让采到的草药的总价值最大.” 如果你是辰辰,你能完成这个任务吗?
输入格式 Input Format
第一行有两个整数T（1
你好,这是一道很典型的动态规划的题目.用背包思想,转移方程就是：f[j]:=f[j-a[i]]+b[i].
下面就是源代码：
var
m,t,i,j:longint;
f:array[0..1000000] of longint;
a,b:array[0..600] of longint;
begin
readln(t,m);
for i:=1 to m do readln(a[i],b[i]);
fillchar(f,sizeof(f),0);
for i:=1 to m do
for j:=t downto a[i] do
if f[j]
下面就是源代码：
var
m,t,i,j:longint;
f:array[0..1000000] of longint;
a,b:array[0..600] of longint;
begin
readln(t,m);
for i:=1 to m do readln(a[i],b[i]);
fillchar(f,sizeof(f),0);
for i:=1 to m do
for j:=t downto a[i] do
if f[j]