i
0se Wenku r Search hsearch searchx Nudeactressworld b search
hWwsearch 
Hsearchl %D0%D6%BC%DEnude 057187205688 8x8b el 8x8b 
s Help arc %D0%D6%BC%DEnude c
H
l
s
arcr searchwsearch 
Nudeactressworld w %D0%D6%BC%DEnude Sw %D0%D6%BC%DEnude 
a Help ( Search [ Www ]searchx 8x8b t %D0%D6%BC%DEnude i
.porng%2Cru,%B9%FB%C0%E6%CE%DE%C2%EB[i Nudeactressworld . %D0%D6%BC%DEnude ) Www
129 for j:=t[i].x to t[i].y do inc(cnt[j]);
30 end;
31 end;
32 //========================
33 procedure find(x,v:longint);
34 var
35 i,j,k,max:longint;
36 begin
37 if v>=ans then exit;
38 if x=m+1 then
39 begin
40 if ans>v then ans:=v;
41 exit;
42 end;
43 max:=0;
44 for j:=t[x].x to t[x].y do
45 begin
46 dec(cnt[j]);
47 if max<g[j] then max:=g[j];
48 end;
49 for i:=max downto 0 do
50 begin
51 for j:=t[x].x to t[x].y do
52 begin
53 inc(now[j],i);
54 if (cnt[j]=0)and(now[j]<g[j]) then
55 begin
56 for k:=t[x].x to j do dec(now[k],i);
57 for k:=t[x].x to t[x].y do inc(cnt[k]);
58 exit;
59 end;
60 end;
61 find(x+1,v+t[x].v*i);
62 for j:=t[x].x to t[x].y do dec(now[j],i);
63 end;
64 for j:=t[x].x to t[x].y do inc(cnt[j]);
65 end;
66 //========================
67 begin
68 assign(input,'employee.in'); reset(input);
69 assign(output,'employee.out'); rewrite(output);
70 built;
71 ans:=maxlongint;
72 find(1,0);
73 writeln(ans);
74 close(input); close(output);
75 end.
1 (* 2 *Problem: NOI2008 自愿者招募 3 *Author : Chen Yang 4 *Time : 2012.5.18 5 *State : AC 6 *Memo : 网络流 7 *) 8 program employee; 9 uses math; 10 const max=100000000; 11 maxn=2020; 12 type 13 ty1=^ty2; 14 ty2=record 15 x,f,v,fa:longint; 16 next,up:ty1; 17 end; 18 19 var 20 n,m,s,t,flow,tot,ans:longint; 21 first,fa:array[0..maxn] of ty1; 22 dui,dis,mflow:array[0..maxn] of longint; 23 get:array[0..maxn] of boolean; 24 //================== 25 procedure insert(x,y,f,v:longint); inline; 26 var 27 p,q:ty1; 28 begin 29 new(p); 30 p^.x:=y; p^.f:=f; p^.v:=v; p^.fa:=x; 31 fWww Nudeactressworld O F Www 8x8b %D0%D6%BC%DEnude En Search Wenku Help Nude Actress World 【NOI2008】 志愿者招募 - datam - 博客园l Boyfriendtv.com dWww Nudeactressworld O F Www 8x8b %D0%D6%BC%DEnude En Search Wenku Help Nude Actress World 【NOI2008】 志愿者招募 - datam - 博客园c Kissing