2002年东莞市小学生计算机程序设计竞赛.docVIP

2002年东莞市小学生计算机程序设计竞赛 镇（区）选拔赛试题 说明：请将答案填在答题卡上，只交答题卡，时间9：00--11：00。 选择题：（每题1分，共5分） 1、我们通常用 来表示计算机的档次： ①输入设备 ②存储器 ③CPU型号 ④输出设备 2、计算机病毒是一种 ①能自我复制的程序 ②传染性细菌 ③机器故障 ④机器部件 3、下列属于计算机输入设备的是 ①鼠标 ②打印机 ③显示器 ④音箱 4、在DOS系统中，屏幕出现“Bad command or file name.”这样的显示说明 。 没放软盘 ②路径出错 ③子目录不存在 ④命令错误或文件不存在 5、微型计算机系统包括两部分： 硬盘与内存 ②运算器和控制器 ③硬件与软件④输入设备与输出设备 填空题：（每题1分，共5分） 1、计算机中通常使用 进制来表示信息。 2、计算机处理存储信息的最小单位是 。 3、键盘上的8个基本键是：A、S、D、F、J、K、L 、 。 4、文件名通常有两个部分，用来表示文件类型的部分被称为 。 5、程序结构一般分成三种：顺序结构、分支结构、 。 运行结果：（共40分，每题4分）  二、程序填空：（共50分） 1、打印三个数中的最大数，程序为：（3分） var a,b,c:integer； ‘a,b,c=’)； readln(A,B,C)； IF BA AND BC THEN ① ； IF AB AND AC THEN ② ； IF ③ THEN write( C) ； END. 2、可以被2整除的数称偶数，否则为奇数，下面程序输入10个数，并计算奇偶数的个数。（3分） var s,n,I,p:integer; begin S:=0; ① begin write(‘N=’);readln(n); IF ② THEN ③ ； End; Writeln(‘S=’, S,’p=’,10-s); END. 3、邮政业务规定：（1）凡不超过20公斤的邮包，按每公斤0.85元计算邮费，凡超过此重量者，每公斤增收0.15 元；（2）每个邮包收手续费0.50元；（需作快件投递者，增收平常邮费的20%。下面是邮局邮包的计费程序。（6分） 分析：设所需邮费为X，邮包重量为G公斤，邮包个数为F，是否快递用K（K=1表示快件）。程序如下： var g,f,k,x:integer; begin write(‘G,F,K=’);readln(G,F,K); IF G=20 THEN ① ELSE ② ； X：=X+F*0.5； IF K=1 THEN ③ ； Writeln(‘X=’,X); END. 4、打印如下乘法“九九表”。（6分） 1*1=1 2*1=2 2*2=4 3*1=3 3*2=6 3*3=9 …………………………………… 9*1=9 …………………………………9*9=81 程序为： var I,j:integer; begin FOR I=1 TO 9 do begin ① write(STR(I,k),’*’, STR(j,k1), ② ); Writeln; ③ ； END. 5、输出图示图案的程序（6分） CLS FOR X=-4 TO 4 PRINT TAB(ABS(X)+1); FOR ① TO 9-2*ABS(X) ② NEXT Y ③ NEXT X END 6、有一头母牛，它每年生一头小母牛，每头小母牛从第四年起，每年也生一头小母牛，假如牛不死亡，问在第20年时牛的头数共有多少？（6分） 分析：从第一年到第三年每年递增1；从第四年开始,每年都有前三年的牛能生小牛，所以第四年牛的头数=上一年牛的头数+前三年牛的头数，程序如下： CLS ① A(1)=2:A(2)=3:A(3)=4 FOR I=4 TO 20 ② NEXT I PRINT TOTAL=; ③ END 排序问题：编程随机产生N个200以内的整数，将它们由大到小排列出来。（6分） 分析：①把N个数据用数组存储。②用第一个数据与后面N-1个数据逐一比较