luogu P1455 搭配购买

 P1455 搭配购买

题目描述

明天就是母亲节了，电脑组的小朋友们在忙碌的课业之余挖空心思想着该送什么礼物来表达自己的心意呢？听说在某个网站上有卖云朵的，小朋友们决定一同前往去看看这种神奇的商品，这个店里有n朵云，云朵已经被老板编号为1，2，3，……,n,并且每朵云都有一个价值，但是商店的老板是个很奇怪的人，他会告诉你一些云朵要搭配起来买才卖，也就是说买一朵云则与这朵云有搭配的云都要买，电脑组的你觉得这礼物实在是太新奇了，但是你的钱是有限的，所以你肯定是想用现有的钱买到尽量多价值的云。

输入输出格式

输入格式：

第1行n,m,w,表示n朵云，m个搭配和你现有的钱的数目

第2行至n+1行，每行ci,di表示i朵云的价钱和价值

第n+2至n+1+m ，每行ui,vi表示买ui就必须买vi,同理，如果买vi就必须买ui

输出格式：

一行，表示可以获得的最大价值

输入输出样例

输入样例#1：

5 3 10
3 10
3 10
3 10
5 100
10 1
1 3
3 2
4 2

输出样例#1：

1

说明

30%的数据满足：n<=100

50%的数据满足：n<=1000;m<=100;w<=1000;

100%的数据满足：n<=10000;0<=m<=5000;w<=10000.

思路

 先用并查集，把要搭配在一起的价钱和价值全部累加放在flag的价钱和价值那儿

 然后01背包裸题。。。

Codes

program buy;
uses math;
const
  inf='buy.in';
  outf='buy.out';
var
  i,x,y,n,m,h,j:longint;
  father,w,c:array[1..10000] of longint;
  f:array[0..10000] of longint;


function find(apple:Longint):longint;
begin
    if father[apple]<>0 then father[apple]:=find(father[apple])
      else exit(apple);
    find:=father[apple];
end;

procedure union(a,b:longint);
var
  t1,t2:longint;
begin
    t1:=find(a);
    t2:=find(b);
    if t1<>t2 then
     begin
         father[t2]:=t1;
         w[t1]:=w[t1]+w[t2];
         c[t1]:=c[t1]+c[t2];
     end;
end;

begin
  //assign(input,inf);
  //assign(output,outf);
  //reset(input); rewrite(output);

  readln(n,m,h);
  for i:= 1 to n do
    readln(w[i],c[i]);
  for i:= 1 to m do
    begin
        read(x,y);
        union(x,y);
    end;

  for i:= 1 to n do
    if father[i]=0 then
    for j:= h downto w[i] do
       f[j]:=max(f[j],f[j-w[i]]+c[i]);
  writeln(f[h]);

  close(input);
  close(output);
end.