2011年马鞍山市中学信生息学奥林匹克竞赛题目分析.docVIP

本次选拔赛试卷题目的说明 谷晓华 写得不是很正式。首先说一下，一二两道题考察的应该是基础题，不过数据量有点大而已，三四两题都是DP，从选拔参加省赛的角度是比较合理的。但是DP的确很重要，这两道题也比较重要，都是由基本题型变过来的，所以说一下。 一：文件加密 这个是一个文件中字符串操作的题目，考察的结果令人是十分满意 重点是你是否领悟到了“每行一个不超过 1000 个字符的字符串”意义 1：最容易犯错的题目是用一个string的字符串去读入，受长度限制所以得分非常的少，但是可以使用ansistring字符串类型来突破255位长度限制，而且字符串函数的执行效率比较高； 参考程序（吴天舒100分程序） var a:array[1..50000] of ansistring; n:longint; i,j,k,s,t:longint; te:char; begin assign(input,encrypt.in); assign(output,encrypt.out); reset(input); rewrite(output); readln(n); for i:=1 to n do begin j:=0; readln(a[i]); a[i]:=a[i]+ ; while jlength(a[i]) do begin inc(j); if a[i][j] then begin s:=j; while a[i][j] do inc(j); t:=j-1; for k:=s to (s+t) div 2 do begin te:=a[i][t-k+s]; a[i][t-k+s]:=a[i][k]; a[i][k]:=te; end; end; end; writeln(a[i]); end; close(input); close(output); end. 2：另外一种做法是用字符数组来记录，但是有些程序由于过程过于繁琐导致内存和空间的超时， 参考程序：丁易的程序（只有五十分，其他内存崩溃） program encrypt; var j,n,i,s:longint; a:array[1..50000]of char; k:char; l:array[1..50000]of longint ; begin assign(input,encrypt.in); assign(output,encrypt.out); reset(input); rewrite(output); readln(n); for i:=1 to n do begin repeat //repeat read(k); l[s]:=l[s]+1; //writeln(k); if k then a[l[s]]:=k; if k= then begin for j:=l[s]-1 downto 1 do write(a[j]);write( );s:=s+1;end; until (kchr(31))or (kz); for j:=l[s]-1 downto 1 do write(a[j]);write( );s:=s+1; writeln; readln; end; close(input); close(output); end. 第二题：极品素数 这个题目其实比较简单，我们可以用筛选法求素数的方法求出1..n中所有的素数，扫描一次求出所有素数的个数，然后再扫描一线1..m(素数的个数)中有多少个素数，即可。 另外如果直接用朴素的直接判断的方法可以得到八十分（胡，高，丁） 参考程序（100分 汪已森） program super; var a:array[2..1000001] of longint; f:array[2..1000001]of boolean; i,j,n,total,t:longint; f1,f2:text; begin assign(f1,super.in);reset(f1); assign(f2,super.out);rewrite(f2); readln(f1,n); fillchar(f,sizeof(f),true); tot