08年信息学竞解题报告.docVIP

NOIP2008普及组复赛 解题报告 ] NOIP2008解题报告 张恩权 一、ISBN号码 基础字符串处理题，心细一点的基本都能得满分。 参考程序： program isbn; const inp=isbn.in; oup=isbn.out; var i,j,k,ans:longint; s:string; ch:char; procedure flink; begin assign(input,inp); reset(input); assign(output,oup); rewrite(output); end; procedure fclose; begin close(input); close(output); end; begin flink; readln(s);// 输入字符串 j:=0; i:=1; ans:=0; while j9 do begin if s[i] in [0..9] then//如果是数字,那么累加到ans中,共9个数字 begin inc(j); inc(ans,(ord(s[i])-ord(0))*j); end; inc(i); end; ans:=ans mod 11;计算识别码 if ans=10 then ch:=X else ch:=chr(ord(0)+ans);//把识别码转换成字符,方便输出 if s[length(s)]=ch then write(Right) else write(copy(s,1,12)+ch);//输出正确的识别码 fclose; end. 二、排座椅 用的是赛前集训时提到的贪心，当时说某些题目用贪心可以得部分分，但是本题贪心可以得满分的。 当然本题的贪心需要预处理下，开2个一维数组，row[i]录如果在第i行加通道,可以分割多少对调皮学生,col[i]记录如果在第j列加通道,可以分割多少对调皮学生,最后贪心法输出分割学生最多的前K行和前L列。 参考程序：program seat; const inp=seat.in; oup=seat.out; var flag,m,n,k,l,d,i,j,x,y,x1,y1:longint; tmp,col,row:array[1..1000] of longint; s,s1:ansistring; procedure flink; begin assign(input,inp); reset(input); assign(output,oup); rewrite(output); end; procedure fclose; begin close(input); close(output); end; function min(a,b:longint):longint; begin if ab then exit(a); exit(b); end; procedure qsort(m,n:Longint);//快排 var i,j,k,t:longint; begin i:=m; j:=n; k:=tmp[(i+j) shr 1]; repeat while tmp[i]k do inc(i); while tmp[j]k do dec(j); if i=j then begin t:=tmp[i]; tmp[i]:=tmp[j]; tmp[j]:=t; inc(I); dec(J); end; until ij; if mj then qsort(m,j); if In then qsort(i,n); end; begin flink; readln(m,n,k,L,d); fillchar(row,sizeof(row),0); fillchar(col,sizeof(col),0); for i:= 1 to d do //统计在每行、每列添加通道可以分割的学生数 begin readln(x,y,x1,y1); if (x=x1) then inc(col[min(y,y1)])