资源描述：
《2012年宁波市小学组初赛模拟试题(居敬1).doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、宁波市中小学生程序设计竞赛小学组初赛模拟试题一一．选择题（每题2分,共30分。每小题只有唯一一个正确答案）1．二进制数(1011111)2的值是（A）92（B）93（C）94（D）952．每个不同的二进制数可以表示一种状态，要表示256种灰度的颜色，至少需要的二进制位数是（A）3（B）4（C）7（D）83．以下运算结果为False的是（A）not(5>=5)（B）(5>=4)and(7<8)（C）not(false)（D）(5<4)or(7>5)4．文本文件的扩展名是（A）pas（B）exe（C）bat（D）tx
2、t05．下列属于信息技术领域中存储容量单位的是（A）ROM（B）GB（C）MP3（D）DVD6．全国青少年信息学奥林匹克联赛的英文简称是（A）IOI（B）NOI（C）GDOI（D）NOIP7．已知一维数组定义a:array[0..100]oflongint;每个元素占用4个字节，则数组a需要占用的总字节数是（A）100（B）101（C）400（D）4048．在pascal系统中，下列可作为变量名的是（A）3a（B）do（C）array（D）mp39．在pascal系统中，保存文件的快捷键是（A）F2（B）F3（C
3、）Ctrl+c（D）Ctrl+v10．用FreePascl编程时，你写了以下的语句assign(output,'abc.out');rewrite(output);在该程序中必须包含的语句是（A）close(input)（B）close(output)（C）close(abc.out)（D）close(‘abc.out’)11．有以下的程序：vars:string;beginreadln(s);writeln(s[1]);end.该程序运行时，输入“ABC”后按回车键，输出为（A）A（B）B（C）C（D）ABC1
4、2．程序设计竞赛使用的FreePascal语言中，Maxint的值等于（A）1024（B）32767（C）65536（D）-3276813．在Pascal程序中，以下结果为整数型的是（A）4/2（B）19div3（C）abs(3.1-1.1)（D）sqrt(9)14．有以下程序段S:=0;fori:=1to10doifimod2=0thens:=s+1;writeln(s);虚线框内的程序控制结构属于（A）顺序结构（B）循环结构（C）选择结构（D）树型结构15．能随机产生二位正整数的pascal表达式是（A）ra
5、ndom(99)（B）random(100)（C）random(89)+10（D）random(90)+10二．问题求解（每题5分，共10分）1．在不超过100的正整数中，不能被2整除、也不能被3整除的整数个数是多少？00000010100000002．在四行四列的表格中，每格放有0或1的数字；以1表示此处有障碍，0表示人可以从此处通过。走一步是指，要么从上往下走一格，要么从左向右走一格，但走的时候只能从0的格子上走过。某人从左上角开始用了6步走到右下角，一共有多少种走法？三．阅读程序，求程序运行输出结果(每题8
6、分，共32分)第1题：programxx2012_1;varn,i,m:longint;输入：57376839177a:array[1..100]oflongint;beginreadln(n);m:=-1;fori:=1tondobeginread(a[i]);ifa[i]>mthenm:=a[i];end;fori:=1tondowrite(m-a[i],'');end.第2题：programxx2012_2;输入：319899varn,m,i,k:longint;beginread(n,m);k:=m;wh
7、ilemmodk+nmodk>0dodec(k);writeln(k);end.第3题：programxx2012_3;vara:array[1..30]oflongint;t:array[0..10000]ofboolean;n,i,j,s,k:longint;beginreadln(n);fori:=1tondoread(a[i]);fillchar(t,sizeof(t),false);t[0]:=true;k:=0;fori:=1tondobeginforj:=kdownto0doift[j]thent[
8、j+a[i]]:=true;k:=k+a[i];end;输入：5137215s:=0;fori:=1tokdoift[i]theninc(s);writeln(s);end.第4题：programxx2012_4;varn,i,x:longint;procedurezys(m:longint);vark:longint;beginwrite(m,’=1’);k:=2;re
