noip普及组初赛模拟试卷(附答案)考前模拟.doc

选择一个正确答案代码（A/B/C/D）,填入每题的括号内 (每题1.5分,多选无分, 共30 分)题号 1 2 4 5 6 7 8 9 10选择CDCDDB BABC题号 11 12 13 14 15 16 17 18 19 20选择CDDABCCDCB二问题求解（共2题，每题5分，共计10分）1. 当m=4，n=4时选法数=352. 共有多少种选法 1360二. 阅读程序，并写出程序的正确运行结果：（共4题，每题8分，共32分）1. 程序的运行结果是: 1262. 程序的运行结果是: 115 1123程序的运行结果是:114. 程序的运行结果是: DCBA CDBA CBDA CBAD BDCA BCDA BCAD BADC BACD ADCB ACDB ACBD ABDC ABCD num=14四.根据题意, 将程序补充完整 (每空2.8分，共28分)1.readln(d,i); d-1 x*2+1true; 2.j=trunc(sqrt(k) L-1 avy) thenbeginz ：= z+ (b-y+8) div 9；x ：= (b-y+8) div 9 * 9- (b-y) * 4+11*e+Vc mod 4；endelsex ：= (y-b) *4+11*e+vc mod 4；if (ax) thenz ：= z + (a-x+35) div 36； writeln(z)； end输入: 4 7 9 20 56 47输出: 1262. Var S:string; i:integer;m1,m2:char;begin readln(s);n1:= ;m2:= ;for i:=1 to length(s) doif si m1 then beginm2:=m1;m1:=si;endelse if si m2 then m2:=si;writeln(ord(m1), , ord(m2);end.输入 noip 2013 shanghai输出 115 1123.Const NN=7; TypeArr1=array0.30 of char;var s:arr1;k,p:integer;function fun1(s:arr1; a:char;n:integer):integer;var j:integer; beginj:=n;while (a0) do dec(j);fun1:=j;end;Function fun2(s:arr1; a:char; n:integer):integer;var j:integer; beginj:=1;while (asj)and(j0 then begin c:=s; cst+1:=inpit; push(out,c,it-1,ot,st+1); end; if st0 then begin c:=out; cot+1:=sst; push(c,s,it,ot+1,st-1); end; if ot=n then begin num:=num+1; for k:=1 to n do write(outk); write( ); end; end; begin for k:=n downto 1 do inpk:=chr(65-k+n); num:=0; push(t,t,n,0,0); writeln; writeln(num=,num); end.输出 DCBA CDBA CBDA CBAD BDCA BCDA BCAD BADC BACD ADCB ACDB ACBD ABDC ABCD Num=14四、完善程序(前8空 每空 3 分，最后一空4分共 28 分)1. 许多小球一个一个地从一棵满二叉树上掉下来组成另一棵满二叉树。每一时刻，一个正在下降的球第一个访问的是非叶子节点；继续下降时，或者走右子树，或者走左子树，直到访问到叶子节点。决定球运动方向的是每个节点的布尔值。最初，所有的节点的布尔值都是flase。当球访问到一个节点时，如果这个节点是FALSE，则这个球把它变成TRUE，然后从左子树走，继续它的旅程。如果节点是TRUE，则球会改变它为FALSE，接下来从右子树走。若给定fbt的深度D，现在第I个小球下落，且I不超过给定的fbt的叶子数，写一个程序求小球停止时的叶子序号。输入格式：输入文件共一行，包含两个用空格隔开的整数D和I，其中2D20，1I524288。输出格式：共一行，输出第I个小球下落停止时的叶子序号。输入样例： 4 4 输出样例 12 程序：var d,i,j,k,x:longint; a:array1.5242of boolean; begin （1）readln(d,i); fillchar(a,sizeof(a),false); for j:=1 to i do begin x:=1 ; for k:=1 to （2）d-1 do if ax then begin ax:=false; x:=（3）x*2+1; end else begin ax:=（4）true; x:=x*2; end; end; writeln(x);end.2. 金蝉素数【问题描述】某古寺的一块石碑上依稀刻有一些三位与四位的神秘自然数。专家研究发现：这些数是素数，且从低位去掉一位，或两位，后都仍为素数，从高位去掉一位，或两位，后也都仍为素数，更奇妙的是同时去掉它的最高位与最低位数字后还是素数。因此，人们把这些神秘的素数称为金蝉素数，喻意金蝉脱壳之后仍为美丽的金蝉。试求出石碑上的金蝉素数。【程序清单】var a: array1.400of integer; s,u,i,j,k,l,v,t,m,w,n:integer;begina1:= 2; a2 := 3; a3 := 5; a4:= 7; u := 4;For k:= 11 To 9999 do if k mod 2=1 then begin j:=3;while (1) and(k mod j0) do j:=j+1; If j trunc(Sqrt(k) Then begin IF au100 THEN beginL:=trunc(ln(k)/ln(10)+1;t:=1;s:=0;For i := 1 To (2) do begint := t * 10; w := trunc(k / t);m := k - w * t;V := 1; n := 10000;IF i=L-1 THEN n:=trunc(m/10);WHiLE (av=W) OR (3) do beginIf aV = w Then s := s + 1;