广东省汕头市金山中学高一信息技术 历年NOIP初赛试题03.doc

广东省汕头市金山中学高一信息技术 历年noip初赛试题03（提高组pascal语言二小时完成）全部答案均要写在答案卷子上，写在试卷纸上一律无效 一.单项选择题（共10题，每题1.5分，共计15分。每题有且仅有一个正确答案.）。1.图灵(alanturing)是（）。a）美国人b）英国人c）德国人d）匈牙利人e）法国人2.第一个给计算机写程序的人是（）。a）alanmathisonturingb）adalovelacec）johnvonneumannd）johnmc-carthye）edsgerwybedijkstra3.十进制数2003等值于二进制数（）。a）0100000111b）10000011c）110000111d）11111010011e）11110100114.假设a=true,b=false,c=ture,d=ture,逻辑运算表达式abcd的值是（）。a）tureb）falsec）0d）1e）null5.一个高度为h的二叉树最小元素数目是（）。a）2h+1b）hc）2h-1d）2he）2h-16.已知队列（13，2，11，34，41，77，5，7，18，26，15），第一个进入队列的元素是13，则第五个出队列的元素是（）。a）5b）41c）77d）13e）187.下面一段程序是用（）语言书写的。intfunc1(intn)inti,sum=0;for(i=1;iy)thenbeginz:=z+(by+8)div9;x:=(by+8)div9*9(by)*4+11*e+vcmod4;endelsex:=(yb)*4+11*e+vcmod4;if(ax)thenz:=z+(ax+35)div36;writeln(z)end.输入：479205647输出_3.programprogram3;varm,n:integer;mark:boolean;functiontest(m,n:integer):integer;vari,p:integer;flag:boolean;beginm:=m1;i:=0;flag:=false;forp:=2*ndownto(n+1)dobegini:=(i+m)modp;if(i0)thenam:=pi-pi-1elseam:=pi;m:=m+1;while(m1)and(am-1=0)dobeginm:=m-1;bm:=1;end;if(m0)thenwi:=bm-1;elsewi:=b0;am-1:=am-1-1;forj:=0tom-1dobj:=bj+1;while(m1)and(am-1=0)dobeginm:=m-1;bm:=1;end;end;fori:=0ton-1dobeginwrite(wi);write();end;writeln();end.输入：94666689999输出：_五.完善程序（共2题，第1题每空3分；第2题每空2分。共计28分）。1.翻硬币 题目描述：一摞硬币共有m枚，每一枚都是正面朝上。取下最上面的一枚硬币，将它翻面后放回原处。然后取下最上面的2枚硬币，将他们一起翻面后放回原处。在取3枚，取4枚直至m枚。然后在从这摞硬币最上面的一枚开始，重复刚才的做法。这样一直做下去，直到这摞硬币中每一枚又是正面朝上为止。例如，m为1时，翻两次即可。输入：仅有的一个数字是这摞硬币的枚数m，0m1000。输出：为了使这摞硬币中的每一枚都是朝正面朝上所必须翻的次数。输入样例：30输出样例：899程序：programprogram1;varm:integer;functionsolve(m:integer):integer;vari,t,d:integer;flag:boolean;beginif(m=1)thensolve:=(1)elsebegind:=2*m+1;t:=2;i:=1;flag:=false;repeatif(t=1)thenbeginsolve:=(2);flag:=true;endelseif(3)thenbeginsolve:=i*m-1;flag:=true;endelset:=(4);i:=i+1;untilflag;endend;beginread(m);if(5)and(m=0)thenbeginnth:=nth-m1,k,s;if(yh)then(2);picy,x:=up;y:=y+1;x:=x+1;draw(3);endelsebeginy:=y1;picy,x:=dn;x:=x+1;draw(k-1,s-1,nth);end;end;begininit;read(nth);fore:=0tosz-1doforf:=0tosz-1dopice,f:=;x:=0;y:=0h:=0;i:=0;while(nth-m0,2*i,0)=0)dobeginnth:=nth-m0,2*i,0;(4);end;draw(5);fori:=hdowntox-1dobeginfore:=0tox-1dowrite(pici,e);writeln();end;end.第九届分区联赛提高组初赛官方参考解答一、单选10题 每题1.5分b b d a b b c e c b二、不定项选择10题 每题1.5分d bde ad ab ace b bcd d be三、问题求解 每题5分1.答：112.答：4四、阅读程序 每题8分1. 89102. 1263. 18724. 1 1 2 4 5 1 1 3 9 （空格分隔）五、完善程序题一（1）2（2）i*m（3）t=2*m（4）(t*2) mod d（5）m0（6）solve(m)题二 oim（1）m0,k,s-1+m1,k,s-1（2）h:=y