NOIP2013参赛总结.pdfVIP

NOIP2013参赛总结 安阳市七中 常可 一、题解 1、count 这道题其实并不难，不过是简单的模拟。那些做不出来的真不知 道是怎么学的。 程序： program count; var s:string; c:char; i,j,n,k,sum:longint; begin assign(input,count.in); reset(input); assign(output,count.out); rewrite(output); readln(n,j); c:=chr(j+48); for i:=1 to n do begin str(i,s); for k:=1 to length(s) do if s[k]=c then inc(sum); end; writeln(sum); close(input); close(output); end. 我的程序采用了字符串，这样可以使程序稍短一些，不过不用的 话也没有问题，大家可以自己想想。 2、expr 这道题不算简单，和前几年的相比还是有些难度的，标准算法是 栈，当然也有很多其他的方法。一种比较好理解的是： 从头开始搜索字符串，发现 “+”的话把之前（我们这里的意思 是从上一个加号到这一个加号，都不含加号）的字符串进行乘法运算。 由于这个字串里都是乘法运算，只需类似于第一步处理加号时的运 算，在搜到乘号时乘上两乘号之间的数即可。 为了防止奇葩的数据，我们要在字符串后加上一个“+”，在每个 加号前都加上一个 “*”。举个例子吧： 1*2*3*4 这个字串里没有加号，程序会因搜不到加号而得不出结果。因此， 要先在末尾加一个 “+”，变成这样： 1*2*3*4+ 这样程序搜到加号后，就会正常的运算。乘号的道理是一样的。 接下来我们模拟一下程序的执行过程（以样例为标准）： 1+1234567890*1 1、添加号，变成1+1234567890*1+ 2、添乘号，变成1*+1234567890*1*+ 3、搜到第一个加号，加号前的字串是1*，乘法运算得到1，累 加变量+1 4、搜到第二个加号，加号前的字串是1234567890*1*，乘法运 算得到7890，累加变量+7890 5、结束，输出累加变量7891。 当然，添加乘号的工作也可以在大循环中进行，可以让代码短一 点。 程序： program expr; var s,q,m,a:ansistring; i,j,k,l,sum,ls,ls2:longint; begin assign(input,expr.in); reset(input); assign(output,expr.out); rewrite(output); readln(s); s:=s++; j:=1; for i:=1 to length(s) do begin if s[i]=+ then begin k:=1; l:=k; ls2:=1; a:=a+*; repeat while (a[k]*) do inc(k); m:=copy(a,l,k-l); val(m,ls); ls:=ls mod 10000; ls2:=(ls2*ls) mod 10000; inc(k); l:=k; until klength(a); sum:=(sum+ls2) mod 10000; a:=; end else a:=a+s[i]; end; writeln(sum); close(inp