第四届绍兴市小学生信息学奥林匹克试题(PASCAL)(含答案解析).docxVIP

  • 27
  • 0
  • 约4.04千字
  • 约 30页
  • 2022-06-06 发布于江苏
  • 举报

第四届绍兴市小学生信息学奥林匹克试题(PASCAL)(含答案解析).docx

第四届绍兴市少儿信息学竞赛试卷(PASCAL 版) 第四届绍兴市少儿信息学竞赛试题 (小学组 PASCAL 语言二小时完成) ●●全部试题答案都要求写在答卷纸上,写在试卷上一律无效●● 一、选择一个正确答案代码(A/B/C/D),填入每题的括号内(每题 2 分,每题只 有一 个正确答案,多选或错选都无分。共 30 分) 1、现有的计算机都是采用()提出的存储程序和二进制的原理制造的。 A.图灵 B.冯 ·诺伊曼 C.爱因斯坦 D.布尔 2、计算机的存储系统中,能被 CPU 直接存取的是()。 A.内存储器 B.磁盘存储器 C.CD-ROM D.外存储器 3、下列可选项,都是硬件的是()。 A.Windows、ROM 和 CPU B.WPS、RAM 和显示器 C.ROM、RAM 和 Pascal D.硬盘、光盘和软盘 4、应用软件是专业人员为各种应用目的而编制的程序,以下()是应用软件。 A.操作系统 B.文字处理软件 C.数据库管理系统 D.语言处理程序 5、以下是关于计算机病毒的说法,不正确的是()。 A.病毒属于计算机软件 B.病毒属于硬件 C.病毒具有破坏性、传播性、可激发性、潜伏性、隐蔽性等特点 D.若软盘染上病毒,格式化软盘可以清除病毒 6、计算机网络的最大优点是()。 A.资源共享 B.运算速度加快 C.计算精度提高 D.内存容量增大 7、计算机网络中,互连的各种数据终端,是按()相互通信。 A.网络协议 B.连线 C.以太网 D.数据格式 8、电子邮件的邮箱()。 A.在 ISP 的服务器上 B.在你申请的网站的服务器上 C.在 Outlook Express 里 D.在 Outlook Express 里的电脑里 9、与十六进制 3D 相等的数是()。 A.60 B. 2 C. (76)8 D.n2-1 D. 2 主办:绍兴市科协、绍兴市教育局承办:绍兴科技馆、绍兴市电教馆- 1 - 10.Windows 中,不能在显示属性中设置的是_____ 。 A. 屏幕刷新率 B. 屏幕保护程序 C. 系统日期 D. 墙纸的设置 11、给定队列的入队顺序 1,2,3,共有几种可能的出队序列()。 A.3 B.2 C.1 D.4 12、如果一棵满二叉树有 n 个叶结点,则这棵树的结点总数为()。 A.2n B.2n-1 C.2n+1 13、下列哪个选项不是程序设计的基本控制结构()。 A.顺序结构 B.分支结构 C.循环结构 D.数据结构 14、在 Pascal 程序设计中,我们可以利用()语句使程序终止运行。 A.halt B.end C.break D.quit 15、产生 100 至 300 之间的随机整数(Random),且包含 100、300 两个整数的 表达式是()。 A.random(100)+200 B.random(200)+100 C.random(201)+100 D.random(300) 二、问题求解(每题 5 分,共 10 分) 1、一个栈的进栈序列为 1,2,3,4,请问,出栈序列一共有多少种? 2、绍兴市信息学竞赛临近,某校要组队参加竞赛,要从 12 名学生中选 4 名参 加比赛,其中少儿组 2 名,初中组 2 名,请问共有几种组队方法? 三、阅读程序,写出程序的正确运行结果(7+7+8+8=30 分) 1、program test01; var x,y:integer; begin readln(x,y); x:=x+y; y:=x-y; x:=x-y; write(x, ,y); end. 输入:3 7 输出: 2、program test02; var x:longint; n,i:integer; begin readln(n); x:=1; for i:=1 to n do x:=x*i; writeln(x); end. 输入:8 输出: 3、program test03; function f(n:integer):integer; begin if n=0 then f:=1 else if n0 then f:=f(n+1)+3 else f:=f(n-1)-2; end; end; begin writeln(f(f(2))); end. 输出: 4、program test04; var i,j,a:longint; s:array[1..32] of longint; begin readln(a); j:=0; while a0 do begin inc(j); s[j]:=a mod 2; a:=a div 2; if j=0 then write(0) else for i:=j downto 1 do write(s[i

文档评论(0)

1亿VIP精品文档

相关文档