2010年10月17日 总结

初赛考完了，考得一塌糊涂。。。。

 

今天在RQ上注册了个新的账号，以后一个月主要就是在这里做题了。

 

今天做的题目：

命名的随机数

开心的金明

Jam的计数法

数列

能量项链

金明的预算方案

作业调度方案

计数的梦

陶陶摘苹果

 

明明的随机数：不多说，桶排序。

program rq1; var a:array[1..1000]of boolean; x,n,i:longint; begin readln(n); for i:=1 to n do begin read(x); a[x]:=true; end; x:=0; for i:=1 to 1000 do if a[i] then inc(x); writeln(x); for i:=1 to 1000 do if a[i] then write(i,' '); writeln; end.

开心的金明：最简单的01背包。

 program rq2; var f:array[0..100000000]of longint; w,c:array[1..25]of longint; n,i,j,v:longint; function max(a,b:longint):longint; begin if a>b then exit(a) else exit(b); end; begin readln(v,n); for i:=1 to n do begin readln(c[i],w[i]); w[i]:=c[i]*w[i]; end; for i:=1 to n do for j:=v downto c[i] do f[j]:=max(f[j],f[j-c[i]]+w[i]); writeln(f[v]); end.

Jam的计数法：模拟加法运算，注意进位与判重。

program rq3; var a:array[1..26]of longint; s,t,w,i,p,q:longint; str:string; begin readln(s,t,w); readln(str); for i:=1 to w do a[i]:=ord(str[i])-96; if t-s>w then begin p:=0; while (p<5)and(a[1]<t-w+1) do begin q:=w; while (q>=1)and(a[q]=t-w+q) do dec(q); if q<>0 then begin inc(a[q]); for i:=q+1 to w do a[i]:=a[i-1]+1; for i:=1 to w do write(chr(a[i]+96)); writeln; inc(p); end; end; end; end.

数列：二进制的应用，不好想，但是想通之后很好实现。

 program rq4; var k,n,i,j,m,t,ans:longint; a:array[1..1000]of longint; begin readln(k,n); fillchar(a,sizeof(a),0); i:=0; while n<>0 do begin inc(m); a[m]:=n mod 2; n:=n div 2; end; ans:=0; for i:=1 to m do begin t:=a[i]; for j:=1 to i-1 do t:=t*k; inc(ans,t); end; writeln(ans); end.

能量项链：基础DP题，注意的是环的开环处理。

program rq5; var p:array[1..100000] of longint; f:array[0..10000,0..10000] of longint; n,ans,i,j,k,l:longint; begin readln(n); for i:=1 to n do begin read(p[i]); p[i+n]:=p[i]; end; for l:=1 to n-1 do for i:=1 to 2*n-l-1 do begin j:=i+l; for k:=i to j-1 do if f[i,j]<f[i,k]+f[k+1,j]+p[i]*p[k+1]*p[j+1] then f[i,j]:=f[i,k]+f[k+1,j]+p[i]*p[k+1]*p[j+1]; end; for i:=1 to n do if f[i,i+n-1]>ans then ans:=f[i,i+n-1]; writeln(ans); end.

金明的预算方案：带附件的01背包，也比较简单。

program rq6; var m,n,i,j,v,x,y,z:longint; p:array[1..100]of longint; a:array[1..100]of record c0,w0,c1,w1,c2,w2:longint;end; f:array[0..32000]of longint; function max(a,b:longint):longint; begin if a>b then exit(a)else exit(b); end; begin readln(v,m); n:=0; for i:=1 to m do begin readln(x,y,z); if z=0 then begin inc(n); a[n].c0:=x; a[n].w0:=x*y; end else begin if a[p[z]].c1=0 then begin a[p[z]].c1:=x; a[p[z]].w1:=x*y; end else begin a[p[z]].c2:=x; a[p[z]].w2:=x*y; end; end; p[i]:=n; end; for i:=1 to n do for j:=v downto 1 do begin if j>=a[i].c0 then f[j]:=max(f[j],f[j-a[i].c0]+a[i].w0); if (j>=a[i].c0+a[i].c1)and(a[i].c1<>0) then f[j]:=max(f[j],f[j-a[i].c1-a[i].c0]+a[i].w0+a[i].w1); if (j>=a[i].c0+a[i].c2)and(a[i].c2<>0) then f[j]:=max(f[j],f[j-a[i].c2-a[i].c0]+a[i].w0+a[i].w2); if (j>=a[i].c0+a[i].c1+a[i].c2)and(a[i].c1<>0)and(a[i].c2<>0) then f[j]:=max(f[j],f[j-a[i].c0-a[i].c1-a[i].c2]+a[i].w0+a[i].w1+a[i].w2); end; writeln(f[v]); end.

作业调度方案：这是今天做的最难的一道题了，主要是看懂题意，看懂之后问题就迎刃而解了。

program rq7; var m,n,i,j,k,xt,max:longint; a:array[1..400] of longint; f:array[1..20,0..1000] of boolean; wu,ti:array[1..20,1..20] of longint; g,time:array[1..20] of longint; begin fillchar(f,sizeof(f),true); fillchar(time,sizeof(time),0); fillchar(g,sizeof(g),0); readln(m,n); for i:=1 to n*m do read(a[i]); for i:=1 to n do for j:=1 to m do read(wu[i,j]); for i:=1 to n do for j:=1 to m do read(ti[i,j]); for i:=1 to n*m do begin inc(g[a[i]]); j:=time[a[i]]+1; xt:=0; while xt<ti[a[i],g[a[i]]] do begin if f[wu[a[i],g[a[i]]],j]then inc(xt) else xt:=0; j:=j+1; end; time[a[i]]:=j-1; for k:=j-xt to j-1 do f[wu[a[i],g[a[i]]],k]:=false; end; max:=0; for i:=1 to m do for j:=1000 downto 0 do if not f[i,j] then begin if max<j then max:=j; break; end; writeln(max); end.

计数的梦：统计一个范围内的数中0~9分别出现的次数。

program rq11; var i,j,fw,tw:longint; a:array[0..9]of longint; begin readln(fw,tw); for i:=fw to tw do begin j:=i; while j>0 do begin inc(a[j mod 10]); j:=j div 10; end; end; for i:=0 to 9 do write(a[i],' '); end.

陶陶摘苹果：这个...我无话可说。

program rq12; var a:array[1..10]of longint; n,i,total:longint; begin for i:=1 to 10 do read(a[i]); readln(n); inc(n,30); for i:=1 to 10 do if a[i]<=n then inc(total); writeln(total); end.

今天就先写到这，明天再来。

2010年10月17日22:56:56