配置魔药(medic.pas/c/cpp)

配置魔药

(medic.pas/c/cpp)

【问题描述】

在《Harry Potter and the Chamber of Secrets》中，Ron的魔杖因为坐他老爸的Flying Car撞到了打人柳，不幸被打断了，从此之后，他的魔杖的魔力就大大减少，甚至没办法执行他施的魔咒，这为Ron带来了不少的烦恼。这天上魔药课，Snape要他们每人配置一种魔药（不一定是一样的），Ron因为魔杖的问题，不能完成这个任务，他请Harry在魔药课上(自然是躲过了Snape的检查)帮他配置。现在Harry面前有两个坩埚，有许多种药材要放进坩埚里，但坩埚的能力有限，无法同时配置所有的药材。一个坩埚相同时间内只能加工一种药材，但是不一定每一种药材都要加进坩埚里。加工每种药材都有必须在一个起始时间和结束时间内完成（起始时间所在的那一刻和结束时间所在的那一刻也算在完成时间内），每种药材都有一个加工后的药效。现在要求的就是Harry可以得到最大的药效。

【输入文件】(medic.in)

输入文件的第一行有2个整数，一节魔药课的t（1≤t<≤500）和药材数n（1≤n≤100）。

输入文件第2行到n+1行中每行有3个数字，分别为加工第i种药材的起始时间t1、结束时间t2、（1≤t1≤t2≤t）和药效w（1≤w≤100）。

【输出文件】(medic.out)

      输出文件medic.out只有一行，只输出一个正整数，即为最大药效。

【输入样例】

7 4

1 2 10

4 7 20

1 3 2

3 7 3

【输出样例】

35

【注释】

    本题的样例是这样实现的：第一个坩埚放第1、4种药材，第二个坩埚放第2、3种药材。这样最大的药效就为10+20+2+3=35。

如图，数字为时间轴。

【数据规模】

对于30%的数据

1<=t<=500

1<=n<=15

1<=w<=100

1<=t1<=t2<=t

对于100%的数据

1<=t<=500

1<=n<=100

1<=w<=100

1<=t1<=t2<=t

=========================

f[i,j,k]表示前i个药.1坩埚j时刻,2坩埚k时刻所能取得的最大价值..

==========================

type
re=record
s,e,w:longint;
end;
var
t,n:longint;
med:array[1..100]of re;
f:array[0..100,0..500,0..500]of longint;
procedure init;
begin
assign(input,'medic.in');
assign(output,'medic.out');
reset(input); rewrite(output);
end;
procedure terminate;
begin
close(input); close(output);
halt;
end;
procedure qsort(s,t:longint);
var
i,j:longint;
x:longint;
tem:re;
begin
i:=s; j:=t;
x:=med[(i+j)shr 1].e;
repeat
while x<med[j].e do dec(j);
while x>med[i].e do inc(i);
if i<=j then
begin
tem:=med[i];
med[i]:=med[j];
med[j]:=tem;
inc(i); dec(j);
end;
until i>j;
if i<t then qsort(i,t);
if j>s then qsort(s,j);
end;
function max(a,b:longint):longint;
begin
if a>b then exit(a);
exit(b);
end;
procedure main;
var
i,j,k:longint;
begin
readln(t,n);
for i:=1 to n do
readln(med[i].s,med[i].e,med[i].w);
qsort(1,n);
fillchar(f,sizeof(f),0);
for i:=1 to n do
for j:=0 to t do
for k:=0 to t do
begin
f[i,j,k]:=f[i-1,j,k];
if j>=med[i].e then
f[i,j,k]:=max(f[i-1,med[i].s-1,k]+med[i].w,f[i,j,k]);
if k>=med[i].e then
f[i,j,k]:=max(f[i-1,j,med[i].s-1]+med[i].w,f[i,j,k]);
end;
writeln(f[n,t,t]);
end;
begin
init;
main;
terminate;
end.