2009年长沙市小学生计算机奥林匹克竞赛初赛试题
2005年长沙市小学生计算机奥林匹克竞赛初赛试题
2005年长沙市小学生计算机奥林匹克竞赛初赛试题2005年长沙市小学生计算机奥林匹克竞赛初赛试题（语言：TURBO PASCAL 时间：120分钟）参赛证号姓名学校总分一、单项选择题（每小题2分，共40分）1、下列因素中，对计算机工作影响最小的是（B ）A、尘土B、噪声C、温度D、湿度2、CPU包括的两部分是（C ）A、存储器和运算器B、存储器和控制器C、运算器和控制器D、主机和显示器3、下列计算机网络的功能中，错误的是（C ）A、远程教学B、查询资料C、传送能量D、聊天4、下列软件中，属于操作系统是（D ）A、PascalB、OfficeC、FlashD、Windows5、下列哪个部件对于个人桌面电脑的正常运行不是必需的（C ）A、显卡B、CPUC、光驱6、计算机软件保护法是用来保护软件的（A ）A、著作权B、编写权C、使用权D、复制权7、Pascal语言属于计算机的（B ）语言。
A、汇编B、高级C、机器D、低级8、将十进制数2005转换成二进制数是（A ）A、11111010101B、1111010101C、11111010011D、11110100119、在Pascal语言环境下，运行一个程序，下列快捷键组合正确的是（D ）A、ALT+F5B、ALT+F9C、CTRL+F5D、CTRL+F910、下列变量名中，正确的是（B ）A、12PASB、PAS12C、VARD、TO11、屏上显示一个数据1.23456000000E+2，它属于下列（B ）类型A、INTEGERC、CHARD、BOOLEAN12、执行WRITELN(3.1415926:5:3)的结果为（D ）A、3.1B、3.14C、3.141D、3.14213、设A为整数型，B为实数型，则下列赋值语句中正确的是（D ）A、A:=3.14B、A:=A/2C、A:=B MOD 2D、B:=A DIV 214、设K、M为正整数，且K<="" p="">2))*K+ORD(M>K)*M的值是（C ）A、KB、MC、K+MD、M-K15、设A=…0123456789ABCDEF?，则COPY(COPY(A,3,12),5,5)的值是（D ）A、…45678?B、…56789?C、…789AB?D、…6789A?16、表达式98 DIV 2 MOD 5*3-ROUND(2.57+6-2*INT(0.35*4))的值是（A ）A、5B、6D、192005年东莞市小学生计算机程序设计竞赛决赛试题(一) pascal语言说明：请将答案填在答题卡上，只交答题卡，时间9：00—11：00一、选择题（每题1分，共10分）1、在WORD中，将一段文字移到整个文档最后，正确的操作步骤的顺序是（）（1）打开编辑菜单，选择粘贴命令（2）选择要移动的一段文字使其反黑（3）打开编辑菜单，单击复制命令（4）把光标移到文档的最后A （1）（2）（3）（4）B （3）（2）（4）（1）C （2）（3）（4）（1）D （3）（1）（2）（4）2、/doc/d39ca47710a6f524ccbf85e3.html 中的“cn”代表了（）A 国家（中国）B 省市C 用户D 服务器3、64K存储器含（）个字节A 64000B 65536C 64536D 327684、计算机病毒一般寄生在（）中A 中央处理器C 输入设备D 输出设备5、启动WINDOWS后，不是桌面上常见的图标是（）A 我的电脑B 回收站C 控制面板D 我的文档6、在WINDOWS中，使用鼠标打开某个对象快捷菜单的操作方法是（）A 单击对象B 双击对象C 拖动对象D 右击对象7、用A表示某个人的总成绩，用B表示这个人的语文成绩，用C 表示这个人的数学成绩。
全国青少年信息学奥林匹克联赛初赛试题2009-2015
第十五届全国青少年信息学奥林匹克联赛初赛试题（普及组 Pascal语言二小时完成）●●全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效●●一．单项选择题（共20题，每题1.5分，共计30分。
每题有且仅有一个正确答案。
）1、关于图灵机下面的说法哪个是正确的：A)图灵机是世界上最早的电子计算机。
B)由于大量使用磁带操作，图灵机运行速度很慢。
C)图灵机是英国人图灵发明的，在二战中为破译德军的密码发挥了重要作用。
D)图灵机只是一个理论上的计算模型。
2、关于计算机内存下面的说法哪个是正确的：A)随机存储器（RAM）的意思是当程序运行时，每次具体分配给程序的内存位置是随机而不确定的。
B)1MB内存通常是指1024*1024字节大小的内存。
C)计算机内存严格说来包括主存（memory）、高速缓存（cache）和寄存器（register）三个部分。
D)一般内存中的数据即使在断电的情况下也能保留2个小时以上。
3、关于BIOS下面说法哪个是正确的：A)BIOS是计算机基本输入输出系统软件的简称。
B)BIOS里包含了键盘、鼠标、声卡、显卡、打印机等常用输入输出设备的驱动程序。
C)BIOS一般由操作系统厂商来开发完成。
D)BIOS能供提各种文件拷贝、复制、删除以及目录维护等文件管理功能。
4、关于CPU下面哪个说法是正确的：A)CPU全称为中央处理器（或中央处理单元）。
B)CPU可以直接运行汇编语言。
C)同样主频下，32位的CPU比16位的CPU运行速度快一倍。
D)CPU最早是由Intel公司发明的。
5、关于ASCII，下面哪个说法是正确的：A)ASCII码就是键盘上所有键的唯一编码。
B)一个ASCII码使用一个字节的内存空间就能够存放。
C)最新扩展的ASCII编码方案包含了汉字和其他欧洲语言的编码。
D)ASCII码是英国人主持制定并推广使用的。
6、下列软件中不是计算机操作系统的是：A) Windows B) Linux C) OS/2 D) WPS7、关于互联网，下面的说法哪一个是正确的：A)新一代互联网使用的IPv6标准是IPv5标准的升级与补充。
2006年长沙市小学生计算机奥林匹克竞赛初赛试题及答案
2006年长沙市小学生计算机奥林匹克竞赛初赛试题（语言：TURBO PASCAL 时间：120分钟）参赛证号姓名学校总分一、单项选择题（每小题2分，共40分）1、下列不属于计算机硬件的是（ B ）A、扫描仪B、操作系统C、CPUD、软盘2、在Windows资源管理器窗口中，如果文件夹没有展开，文件夹图标前会有（A）A、＋B、/C、*D、-3、游戏软件属于计算机的（ B ）A、系统软件B、应用软件C、高级软件D、低级软件4、连接在Internet的任何一台计算机，都有自己的（ C ）A、网页B、域名C、IP地址D、Email地址5、在计算机存储容量的表示中，6MB相当于（ C ）A、6000KBB、6144BC、6144KBD、6000B6、一个INTEGER类型的整数在内存中占（C ）个字节。
A、1B、4C、2D、67、在Pascal语言环境下，快捷键组合CTRL+F9的功能是（B）A、保存程序B、编译执行C、关闭窗口D、查看结果8、下列数据作为程序中的常量，错误的是（ D ）A、3.1415926B、MAXINTC、’JSJJS’D、1/29、每一个Pascal程序中必须包含（ B ）A、变量说明，语句B、语句C、类型定义、变量说明、语句D、常量说明，变量说明，语句10、十进制数与二进制数混合的等式：100＋10＝1110，其中三个数依次是（A）A、二进制、十进制、二进制B、十进制、二进制、十进制C、二进制、十进制、十进制D、十进制、二进制、二进制11、下列表达式中，错误的是（D）。
A、-9 div (-10)B、ABS(a-2)/5C、’天才’=’99%的汗水’+’1%的灵感’D、a+b>c and b+c>a12、表达式round(5.8) div 3*5 mod 3-ord(trunc(5.8)<6)的值是（ A ）A、0B、1C、-1D、213、执行X:=random(100)*random(10)-500，X取值的范围是（ C ）A、-500<=X<=1000B、-500<=X<=500C、-500<=X<=391D、-499<=X<=39114、X为实数，执行X:=-1；writeln(X)之后，屏幕显示（ C ）A、-1B、1.0000000000E-1C、-1.0000000000E+00D、-1.00000000015、下列能够把整数6转换为字符’6’的表达式是（ D ）A、CHR(6-ORD(0))B、CHR(6+ORD(0))C、CHR(6)-ORD(’0’)D、CHR(6+ORD(’0’))16、S=’###ABABCDAB###’，X=POS(‘A’,COPY(S,5,9))，则X的值是（ B ）A、3B、2C、4D、617、在Var下说明数组变量，下列说明正确的是（ C ）A、a:Array[100..1] of real;B、a:Array[1.5..10.5] of real;C、a:Array[’B’..’a’] of real;D、a:Array[1..SQR(5)] of real;18、x初值为-1，下列语句描述：若ch是大写字母，则x置1，否则x清0.有错的是（B ）A、case ch ofB、if ch>’A’then’A’..’Z’:x:=1; if ch<’Z’thenend; x:=1else x:=0;C、x:=ord((ch>=’A’) and (ch<=’Z’));D、if (ch>=’A’) and (ch<=’Z’)Then x:=1 else x:=0;19、执行下列程序段，循环次数是（A ）；x:=3;y:=5;FOR i:=x TO y DO BEGINx:=1;y:=6;END;A、3次B、7次C、5次D、6次20、X=3.14E4，执行语句STR(X:0:2,S)之后，S的值是（ D ）A、’3.14’B、’0’C、’3140.00’D、’31400.00’二、问题解答（每小题5分，共10分）1、星光学校来了一位新老师，三个同学猜测新老师教什么科目，步美说：“不是教语文，也不是教数学”；元太说：“不是教数学，一定是教英语”；光彦说：“不是教英语，一定是教数学”。
2005年长沙市小学生计算机奥林匹克竞赛初赛试题
2005年长沙市小学生计算机奥林匹克竞赛初赛试题（语言：TURBO PASCAL 时间：120分钟）参赛证号姓名学校总分一、单项选择题（每小题2分，共40分）1、下列因素中，对计算机工作影响最小的是（）A、尘土B、噪声C、温度D、湿度2、CPU包括的两部分是（）A、存储器和运算器B、存储器和控制器C、运算器和控制器D、主机和显示器3、下列计算机网络的功能中，错误的是（）A、远程教学B、查询资料C、传送能量D、聊天4、下列软件中，属于操作系统是（）A、PascalB、OfficeC、FlashD、Windows5、下列哪个部件对于个人桌面电脑的正常运行不是必需的（）A、显卡B、CPUC、光驱D、主板6、计算机软件保护法是用来保护软件的（）A、著作权B、编写权C、使用权D、复制权7、Pascal语言属于计算机的（）语言。
A、汇编B、高级C、机器D、低级8、将十进制数2005转换成二进制数是（）A、11111010101B、1111010101C、11111010011D、11110100119、在Pascal语言环境下，运行一个程序，下列快捷键组合正确的是（）A、ALT+F5B、ALT+F9C、CTRL+F5D、CTRL+F910、下列变量名中，正确的是（）A、12PASB、PAS12C、VARD、TO11、屏上显示一个数据1.23456000000E+2，它属于下列（）类型A、INTEGERB、REALC、CHARD、BOOLEAN12、执行WRITELN(3.1415926:5:3)的结果为（）A、3.1B、3.14C、3.141D、3.14213、设A为整数型，B为实数型，则下列赋值语句中正确的是（）A、A:=3.14B、A:=A/2C、A:=B MOD 2D、B:=A DIV 214、设K、M为正整数，且K<M，则ORD(ODD(3+33 div 2))*K+ORD(M>K)*M 的值是（）A、KB、MC、K+MD、M-K15、设A=‘0123456789ABCDEF’，则COPY(COPY(A,3,12),5,5)的值是（）A、‘45678’B、‘56789’C、‘789AB’D、‘6789A’16、表达式98 DIV 2 MOD 5*3-ROUND(2.57+6-2*INT(0.35*4))的值是（）A、5B、6C、18D、1917、设M为整数型，下列条件语句中正确的是（）A、IF 5<M<20 THEN M:=1B、IF M>5 AND M<20 THEN M:=1C、IF (M>5) AND (M<20) THEN M:=1D、IF M>5 OR M<20 THEN M:=118、设X，K为整数型，执行VAL（‘2005CS2005’，X，K）后，下列判断正确的是（）A、X＝2005B、X=20052005C、X=2005D、X=0K＝5 K=0 K=0 K＝519、随机产生一个正整数X,要求5≤X≤100，下列语句表达正确的是（）A、X:=RANDOM(95)+5；B、X:=RANDOM(96)+5；C、X:=RANDOM(94)+5；D、X:=RANDOM(95)+6；20、对9个互不相等的整数排序，有如下程序段：FOR I:=1 TO 8 DOFOR J:=I+1 TO 9 DOIF A[I]<A[J] THEN BEGINK:=A[I]；A[I]:=A[J];A[J]:=K;END;当排好中间大的数（即：第5个）时，所进行的比较次数为（）A、30次B、5次C、17次D、36次二、问题解答（每小题5分，共10分）1、从左手大拇指开始，按照大拇指→食指→中指→无名指→小指→无名指→中指→食指→大拇指→食指→……的顺序数1、2、3、4、5、6、7、8、9、10、……，当你数到2005时，应该落在哪个指上？答：应该落在指上。
长沙市小学生计算机奥林匹克竞赛决赛试题(6题)
长沙市小学生计算机奥林匹克竞赛决赛试题（6题）一、整数处理电脑老师让小慧编程做一道题：输入一个正整数Ａ（Ａ≤100000000），如果Ａ的个位数字是５，则统计Ａ能被５整除多少次？否则，统计Ａ当中含有多少个“０”？你能做吗？例如：输入：125 输入：305160输出：3 输出：2二、新年同庆过年了，小慧与邻居邻居的小伙伴共n人相约一起放花炮：他们同时放响了第一个，随后n个人分别以a1、a2、a3、……、an秒的间隔继续放花炮，每人都放了b个。
问：总共可听到多少声花炮响？输入：n（n≤10）a1 a2 …… an（每个数≤100，以空格相隔）b（b≤100）输出：一个整数（听到的花炮响声数）例如：输入：3 输出：71 2 34三、文档编辑暑假当中，妈妈让小慧帮忙修改英文资料，英文中还有一些统计数据（统计数据都是正整数，而且其前、后都有空格）。
妈妈说：如果文档结尾处有“end”，则应当删除，文中所有的统计数据都要加上一个正整数m。
你能编程序完成小慧的任务吗？输入：m待修改的文档（字符串）输出：修改后的文档（字符串）例如：输入：13There are 45 students in 32class.end输出：There are 58 students in 32class.四、智力冲浪小慧准备参加湖南电视台举办的智力冲浪节目。
规则如下：冲浪者首先拥有m个快乐金球。
冲浪当中设有n个游戏项目，每个游戏项目都必须在整分钟时开始，限时１分钟，而且都规定了最后完成期限（即：冲浪开始t分钟内必须完成）。
如果一个游戏项目没按规定完成，则从冲浪者的快乐金球中扣掉一部分，不同游戏项目扣掉的金球数也不同。
游戏项目的顺序自己安排。
最终，赢得快乐金球数最多的选手胜出。
小慧非常想夺得冠军，请你计算出小慧最多能赢得多少个快乐金球？输入：m n（m≤10000，n≤50）n个整数（以空格相隔），分别表示每个游戏项目规定的完成期限（≤n）n个整数（以空格相隔），分别表示每个游戏项目未完成时扣掉的金球数输出：一个整数（最多能赢得快乐金球的个数）例如：输入：10000 74 2 4 3 1 4 620 60 70 40 30 50 10输出：9950五、判奇偶求和输入一个正整数n，如果n 是奇数，则求1～n 之间所有的偶数之和；如果n 是偶数，则求n 所有的约数之和。
长沙市小学生计算机奥林匹克竞赛决赛题答案
２００１年长沙市计算机奥林匹克竞赛决赛试题（时间：120分钟）一、（40分）键入一个字符串（串长不超过20），输出相应字符组成的等边三角形。
如：输入：“CHINA”输出：程序：program CS200101;vars:string;n,i,j:integer;beginwrite('Input a string:');readln(s);n:=length(s);for i:=1 to n do beginwrite('':40-i);for j:=1 to i do write(s[j],' ');writelnend;readlnend.二、（50分）一光滑墙壁高X尺，有一个小虫从墙底部向上爬，每分钟爬Y尺。
但每爬一分钟后都要休息一分钟，在休息期间又下滑一尺。
编程：输入X和Y，计算该小虫最少几分钟可爬到顶端。
如：输入：X，Y＝4,2输出：5程序：program CS200102;var x,y,s,n:integer;beginwrite('X,Y=');readln(x,y);if y>1 then begins:=0;n:=0;repeats:=s+y;n:=n+1;if s<>x then begins:=s-1;n:=n+1;end;until s>=x;writeln(n);end else writeln('Never');readlnend.三、（50分）科学家在热带森林中发现了一种特殊的小动物，取名为“吱吱”。
“吱吱”的生长繁殖过程很有规律，每对小“吱吱”经过X个月就长成一对大“吱吱”，每对大“吱吱”每个月都产下Y对小“吱吱”。
假设开始时有一对小“吱吱”，并且每对“吱吱”都不死，问：过Z个月后，共有多少对“吱吱”？（X≥1，Y≥1,1≤Z≤24）（注：若当前是1月，则“过”2个月，是表示到3月的时候）输入：X，Y，Z的值输出：“吱吱”的总对数如：输入：X，Y，Z＝2，2，4输出：11程序：program CS200103;varx,y,z,s,s1,n:longint;{s1为大“吱吱”的个数}s2:array[1..24] of longint;{s2为小“吱吱”的个数，s2[1]代表第一天小“吱吱”的个数，依次类推}begins:=0;s1:=0;s2[1]:=1;write('X,Y,Z=');readln(x,y,z);for n:=x to z+1 do begins2[n]:=s1*y;{计算当天出生的小“吱吱”}s1:=s1+s2[n-x+1];s2[n-x+1]:=0;{计算当天长大的“吱吱”，s2[n-x+1]为X个月前出生的小“吱吱”个数}end;s:=s+s1;{将大“吱吱”数计入总数}for n:=1 to z+1 do s:=s+s2[n];{将小“吱吱”数计入总数}writeln(s);readlnend.四、（60分）如下图所示，键入A，B，C，D，E的值，然后从A出发，顺次经过每个数字分岔路口，选择＋、－、＊、/四种运算符之一进行运算，达到目的地E时，运算结果恰好等于E，请你将所有符合上述条件的道路全部找出来。
NOIP2009第十五届全国青少年信息学奥林匹克联赛初赛试题普及组知识点
第十五届全国青少年信息学奥林匹克联赛初赛试题（普及组 C语言二小时完成）●●全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效●●一．单项选择题（共20题，每题1.5分，共计30分。
每题有且仅有一个正确答案。
）1、关于图灵机下面的说法哪个是正确的：常识性问题A)图灵机是世界上最早的电子计算机。
B)由于大量使用磁带操作，图灵机运行速度很慢。
C)图灵机是英国人图灵发明的，在二战中为破译德军的密码发挥了重要作用。
D)图灵机只是一个理论上的计算模型。
2、关于计算机内存下面的说法哪个是正确的：计算机基本知识A)随机存储器（RAM）的意思是当程序运行时，每次具体分配给程序的内存位置是随机而不确定的。
B)1MB内存通常是指1024*1024字节大小的内存。
C)计算机内存严格说来包括主存（memory）、高速缓存（cache）和寄存器（register）三个部分。
D)一般内存中的数据即使在断电的情况下也能保留2个小时以上。
3、关于BIOS下面说法哪个是正确的：计算机基本知识A)BIOS是计算机基本输入输出系统软件的简称。
B)BIOS里包含了键盘、鼠标、声卡、显卡、打印机等常用输入输出设备的驱动程序。
C)BIOS一般由操作系统厂商来开发完成。
D)BIOS能提供各种文件拷贝、复制、删除以及目录维护等文件管理功能。
4、关于CPU下面哪个说法是正确的：计算机基本知识A)CPU全称为中央处理器（或中央处理单元）。
B)CPU可以直接运行汇编语言。
C)同样主频下，32位的CPU比16位的CPU运行速度快一倍。
D)CPU最早是由Intel公司发明的。
5、关于ASCII，下面哪个说法是正确的：计算机基本知识A)ASCII码就是键盘上所有键的唯一编码。
B)一个ASCII码使用一个字节的内存空间就能够存放。
C)最新扩展的ASCII编码方案包含了汉字和其他欧洲语言的编码。
D)ASCII码是英国人主持制定并推广使用的。
6、下列软件中不是计算机操作系统的是：计算机基本知识A) Windows B) Linux C) OS/2 D) WPS7、关于互联网，下面的说法哪一个是正确的：计算机基本知识A)新一代互联网使用的IPv6标准是IPv5标准的升级与补充。
2008年长沙市小学生计算机奥林匹克竞赛初赛试题
2008年长沙市小学生计算机奥林匹克竞赛初赛试题（语言：Turbo Pascal 时间：90分钟）参赛证号姓名学校总分一、单项选择题（每小题 2 分，共40分）1、被称为“现代计算机之父”的是（）A、图灵B、冯.诺依曼C、比尔.盖茨D、巴贝奇2、计算机在工作时突然停电，则（）中的信息全部丢失，来电之后也不能恢复。
A、ROM和RAMB、ROMC、RAMD、硬盘3、扫描仪、绘图仪、触摸屏、音箱当中有（）中具有输出功能。
A、1B、2C、3D、44、计算机能为我们做很多工作，下列缩写CAD、CAM、CAI分别对应的是（）A、计算机辅助设计/辅助制造/辅助教学B、计算机辅助制造/辅助设计/辅助教学C、计算机辅助教学/辅助设计/辅助制造D、计算机辅助设计/辅助教学/辅助制造5、二进制数00100100与00010100的和是（）A、00101000B、00111100C、00110100D、001110006、程序设计的三种基本结构是（）A、主程序、函数、过程B、顺序、选择、循环C、程序首部、说明总分、执行部分D、for、while、repeat7、在Windows中，“回收站”是（）的一块区域。
A、硬盘B、内存C、软盘D、光盘8、在Turbo Pascal语言环境下，快捷组合键Ctrl+F的功能是（）A、下拉File子菜单B、保存程序C、关闭窗口D、新开窗口9、互联网上最常用的浏览器称为（）A、wordB、QQC、ＩＥ Ｄ、TCP/IP10、某计算机的硬盘有100G,等于（）字节。
A、100B、100×1000C、100×1024×1024D、100×1024×1024×102411、下列数据类型中不是构造类型的是（）A、集合类型B、数组类型C、文件类型D、枚举类型12、Integer类型的数据范围是（）A、-32767～32767B、0～32767C、-32768～32767D、0～6553513、下列表达式的值为FALSE的是（）A、Odd(True(7.49))B、Round((Abs(-9.5)))<10C、Not(‘9’<’100’)D、Ord(Chr(Pred(8)))>=714、R：＝Random(100)+1产生一个随机数R，R的取值范围是（）A、0<=R<=100B、0<R<=100C、1<=R<100D、1<=R<=10115、判断变量ch的值是否为小写字母，下列表达式正确的是（）A、not(ch<’a’)or(ch>’z’B、’a’<=ch<=’z’C、(ch>=a)and(ch<=z)D、ch>=’a’ and ch<=’z’16、设n是实型变量，下列表达式能使n四舍五入保留两位小的是（）A、Round(n*100)/100B、Round(n/100)*100C、Trunc(n*100)/100D、Trunc(n/100)*10017、设a、b、c都是整型变量，由键盘输入如下三行数据1 2 3 回车4 5 6 回车7 8 9 回车下列语句组中不能使a=1、b=7的是（）A、Readln(a,b,b,b,b,b,b,c,c);B、Readln(a);Readln;Readln(b);C、Readln(a,c,c,c);Read(b);D、Readln(a,c,c);Readln(b,c,c);18、设有变量说明VAR I,j:integer;x,y:Real;a,b:Boolean;c:Char;下列赋值语句中正确的是（）A、i:=i+x;B、b:=Ord(c>’c’);C、a:=i=j;D、i:=x mod y;19、表达式Chr(Ord(‘A’)+4))的值是（）A、’D’B、‘E’C、69D、10120、设a［1］＝1,a［2］＝2，a[3]=3,a[4]=4,a[5]=5,a[6]=6,且i=1,j=2,k=3,m=4下列变量的值等于3的是（）A、a[i*j]B、a[a[k-i]+3]C、a[m div j]D、a[a[j+k-2]]二、问题解答（每小题5分，共10分）1、马路上有编号为1～9的9盏路灯，为了节约用电，现要关掉其中的三盏灯，但两端的灯不能关，也不能同时关掉相邻的灯。
NOIP2009普及组初赛试题(Pascal语言)含评分标准
第十五届全国青少年信息学奥林匹克联赛初赛试题（普及组 Pascal 语言二小时完成）●●全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效●●一.单项选择题（共20题，每题1.5分，共计30分。
每题有且仅有一个正确答案。
）1、关于图灵机下面的说法哪个是正确的：A)图灵机是世界上最早的电子计算机B)由于大量使用磁带操作，图灵机运行速度很慢。
C)图灵机是英国人图灵发明的，在二战中为破译德军的密码发挥了重要作用。
D)图灵机只是一个理论上的计算模型。
2、关于计算机内存，下列说法哪个是正确的：A)随机存储器（RAM）的意思是当程序运行时，每次具体分配给程序的内存位置是随机而不确定的。
B)1MB内存通常是指1024*1024字节大小的内存。
C)计算机内存严格说来包括主存（memory）、高速缓存（cache）和寄存器（register）三个部分。
D)一般内存中的数据即使在断电的情况下也能保留2个小时以上。
3、下列关于BIOS的说法哪个是正确的：A)BIOS是计算机基本输入输出系统软件的简称。
B)BIOS包含了键盘、鼠标、声卡、显卡、打印机等常用输入输出设备的驱动程序。
C)BIOS一般由操作系统厂商来开发完成。
D)BIOS能提供各种文件拷贝、复制、删除以及目录维护等文件管理功能。
4、关于CPU下面那个说法是正确的：A)CPU全称为中央处理器（或中央处理单元）。
B)CPU可以直接运行汇编语言。
C)同样主频下，32位的CPU比16位的CPU运行速度快一倍。
D)CPU最早是由Intel公司发明的。
5、关于ASCII，下面哪个说法是正确的：A)ASCII码就是键盘上所有键的唯一编码。
B)一个ASCII码使用一个字节的内存空间就能够存放。
C)最新扩展的ASCII编码方案包含了汉字和其他欧洲语言的编码。
D)ASCII码是英国人主持制定并推广使用的。
6、下列软件中不是计算机操作系统的是：A) Windows B) Linux C) OS/2 D) WPS7、关于互联网，下面的说法哪一个是正确的：A)新一代互联网使用的IPv6标准是IPv5标准的升级与补充。
长沙市小学生计算机奥林匹克竞赛初赛试题教程文件
2005年长沙市小学生计算机奥林匹克竞赛初赛试题2005年长沙市小学生计算机奥林匹克竞赛初赛试题（语言：TURBO PASCAL 时间：120分钟）参赛证号姓名学校总分一、单项选择题（每小题2分，共40分）1、下列因素中，对计算机工作影响最小的是（）A、尘土B、噪声C、温度D、湿度2、CPU包括的两部分是（）A、存储器和运算器B、存储器和控制器C、运算器和控制器D、主机和显示器3、下列计算机网络的功能中，错误的是（）A、远程教学B、查询资料C、传送能量D、聊天4、下列软件中，属于操作系统是（）A、PascalB、OfficeC、FlashD、Windows5、下列哪个部件对于个人桌面电脑的正常运行不是必需的（）A、显卡B、CPUC、光驱D、主板6、计算机软件保护法是用来保护软件的（）A、著作权B、编写权C、使用权D、复制权7、Pascal语言属于计算机的（）语言。
A、汇编B、高级C、机器D、低级8、将十进制数2005转换成二进制数是（）A、11111010101B、1111010101C、11111010011D、11110100119、在Pascal语言环境下，运行一个程序，下列快捷键组合正确的是（）A、ALT+F5B、ALT+F9C、CTRL+F5D、CTRL+F910、下列变量名中，正确的是（）A、12PASB、PAS12C、VARD、TO11、屏上显示一个数据1.23456000000E+2，它属于下列（）类型A、INTEGERB、REALC、CHARD、BOOLEAN12、执行WRITELN(3.1415926:5:3)的结果为（）A、3.1B、3.14C、3.141D、3.14213、设A为整数型，B为实数型，则下列赋值语句中正确的是（）A、A:=3.14B、A:=A/2C、A:=B MOD 2D、B:=A DIV 214、设K、M为正整数，且K<M，则ORD(ODD(3+33 div2))*K+ORD(M>K)*M的值是（）A、KB、MC、K+MD、M-K15、设A=‘0123456789ABCDEF’，则COPY(COPY(A,3,12),5,5)的值是（）A、‘45678’B、‘56789’C、‘789AB’D、‘6789A’16、表达式98 DIV 2 MOD 5*3-ROUND(2.57+6-2*INT(0.35*4))的值是（）A、5B、6C、18D、1917、设M为整数型，下列条件语句中正确的是（）A、IF 5<M<20 THEN M:=1B、IF M>5 AND M<20 THEN M:=1C、IF (M>5) AND (M<20) THEN M:=1D、IF M>5 OR M<20 THEN M:=118、设X，K为整数型，执行VAL（‘2005CS2005’，X，K）后，下列判断正确的是（）A、X＝2005B、X=20052005C、X=2005D、X=0K＝5 K=0 K=0 K＝519、随机产生一个正整数X,要求5≤X≤100，下列语句表达正确的是（）A、X:=RANDOM(95)+5；B、X:=RANDOM(96)+5；C、X:=RANDOM(94)+5；D、X:=RANDOM(95)+6；20、对9个互不相等的整数排序，有如下程序段：FOR I:=1 TO 8 DOFOR J:=I+1 TO 9 DOIF A[I]<A[J] THEN BEGINK:=A[I]；A[I]:=A[J];A[J]:=K;END;当排好中间大的数（即：第5个）时，所进行的比较次数为（）A、30次B、5次C、17次D、36次二、问题解答（每小题5分，共10分）1、从左手大拇指开始，按照大拇指→食指→中指→无名指→小指→无名指→中指→食指→大拇指→食指→……的顺序数1、2、3、4、5、6、7、8、9、10、……，当你数到2005时，应该落在哪个指上？答：应该落在指上。
2009年长沙市小学生计算机奥林匹克竞赛初赛试题-六年级奥赛试卷与试题
）[2分]-----正确答案(D)
16. 执行i:=0; while i<2009 do begin n:=n+ord(odd(i)); i:=i+1 end 之后，n值为（ ） [2分]-----正确答案(A) A 1004 B 2009 C 1005 D 2008
17. 执行语句writeln(‘12*3=’,12*3)的结果为（ A 36=36 B 12*3=36 C ‘12*3=’36 D ‘12*3=’,12*3
___________________;
Writeln(s);
end.[15分]
参考答案：
（1）d[i]
（2）1
（3）n-1
（4）(d[i]-d[i+1])
（5）s:=s+1
2. “振荡”冒泡排序：
将n个整数从小到大排序（n≤1000），下面的程序是对普通冒泡法排序的一个改进：先从一端开始扫描，进行比
Var n,i,s:integer;
d:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do read(________);
s:=__________;
for i:=2 to_____________do
if (d[i]-d[i-1]*_______________________>0 then
）[2分]-----正确答案(B)
5. 与二进制数100110101相等的十六进制数是（ A 135 B 465 C 9A1 D 531
）[2分]-----正确答案(A)
6. 根据条件判断的结果，来选择程序执行方向的程序结构称为（ A 顺序结构 B 分枝结构 C 树形结构 D 菜单结构
2012年长沙市小学生信息学奥林匹克竞赛初赛试题与答案
2012年长沙市小学生信息学奥林匹克竞赛初赛试题（时间：90分钟）参赛证号：姓名：学校：总分：一、单项选择题（每小题2分，共40分）1.目前获得世界计算机科学最高奖——“图灵奖”唯一的华人是（）A、袁隆平B、冯.诺依曼C、华罗庚D、姚期智2.现在学校、家庭使用的台式电脑都是微型计算机，微型机的核心部件是（）A、主板B、中央处理器C、硬盘D、显示器3.有效预防病毒入侵的方法是（）①用可移动存储设备时先行杀毒软件②及时修复系统漏洞③随意打开来路不明的邮件④安装并及时升级杀毒软件A、①②③B、①③④C、①②④D、②③④4.以下关于计算机语言的说法中，错误的是（）A、机器语言具有直接执行和速度快等特点。
B、高级程序员用计算机高级语言编程，而我们小学生学的是计算机低级语言。
C、汇编语言有着高级语言不可替代的用途。
D、机器语言和汇编语言都是计算机低级语言。
5.若E=0，则（（（E*2+1）*2+1）*2+25 div 3 mod 3-trunc(2.5)值为（）A、10B、8C、26D、06.执行a:=0.123456;writeln(‘a=’,a:0:4)的输出结果是（）A、‘a=’,0.4B、a=0.1234C、0.123456E+4D、a=0.12357.设A、B为boolean型变量，下列逻辑表达式的值恒为TRUE的是（）A、A or B or not A and not BB、A or B and not A or BC、B and A or not A and not BD、B or not A and B and A8.用for i:=1 to 3 do for j:=1 to 3 do read(a[i,j]);读入数据...*.....之后，表示‘*’的是（）A、a[1,4]B、a[1,2]C、a[2,1]D、a[3,1]9.a:=’a’; b:=’c’;a:=c+b;writeln(a)的输出结果是（）A、accB、acaC、ccaD、cac10.将变量ch1中大写字母变成相应的小写字母给变量ch2，正确的语句是（）A、ch2:=upcase(ch1)B、ch2:=chr(ord(‘A’-ord(‘a’)+ord(ch1))C、ch2:=chr(ord(ch1)+32)D、ch2:=chr(ord(ch1)-32)11.下列有关数制的等式正确的是（）A、（10.75）10=（1010.011）2B、（2）8*（6）8=（14）8C、（110010）2+（16）10=（100100）2D、（1000）2=（8）812.由1个a和3个b构成的所有字符串中，包含子串’ab’的共有（）个。
NOIP2009第十五届全国青少年信息学奥林匹克联赛初赛试题普及组c
第十五届全国青少年信息学奥林匹克联赛初赛试题（普及组 C语言二小时完成）●●全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效●●一．单项选择题（共20题，每题1.5分，共计30分。
每题有且仅有一个正确答案。
）1、关于图灵机下面的说法哪个是正确的：A)图灵机是世界上最早的电子计算机。
B)由于大量使用磁带操作，图灵机运行速度很慢。
C)图灵机是英国人图灵发明的，在二战中为破译德军的密码发挥了重要作用。
D)图灵机只是一个理论上的计算模型。
2、关于计算机内存下面的说法哪个是正确的：A)随机存储器（RAM）的意思是当程序运行时，每次具体分配给程序的内存位置是随机而不确定的。
B)1MB内存通常是指1024*1024字节大小的内存。
C)计算机内存严格说来包括主存（memory）、高速缓存（cache）和寄存器（register）三个部分。
D)一般内存中的数据即使在断电的情况下也能保留2个小时以上。
3、关于BIOS下面说法哪个是正确的：A)BIOS是计算机基本输入输出系统软件的简称。
B)BIOS里包含了键盘、鼠标、声卡、显卡、打印机等常用输入输出设备的驱动程序。
C)BIOS一般由操作系统厂商来开发完成。
D)BIOS能提供各种文件拷贝、复制、删除以及目录维护等文件管理功能。
4、关于CPU下面哪个说法是正确的：A)CPU全称为中央处理器（或中央处理单元）。
B)CPU可以直接运行汇编语言。
C)同样主频下，32位的CPU比16位的CPU运行速度快一倍。
D)CPU最早是由Intel公司发明的。
5、关于ASCII，下面哪个说法是正确的：A)ASCII码就是键盘上所有键的唯一编码。
B)一个ASCII码使用一个字节的内存空间就能够存放。
C)最新扩展的ASCII编码方案包含了汉字和其他欧洲语言的编码。
D)ASCII码是英国人主持制定并推广使用的。
6、下列软件中不是计算机操作系统的是：A) Windows B) Linux C) OS/2 D) WPS7、关于互联网，下面的说法哪一个是正确的：A)新一代互联网使用的IPv6标准是IPv5标准的升级与补充。
noip2009初赛试题及答案
第十五届全国青少年信息学奥林匹克联赛初赛试题（普及组Pascal语言二小时完成）●●全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效●●一．单项选择题（共20题，每题1.5分，共计30分。
每题有且仅有一个正确答案。
）1、关于图灵机下面的说法哪个是正确的：A)图灵机是世界上最早的电子计算机。
B)由于大量使用磁带操作，图灵机运行速度很慢。
C)图灵机是英国人图灵发明的，在二战中为破译德军的密码发挥了重要作用。
D)图灵机只是一个理论上的计算模型。
2、关于计算机内存下面的说法哪个是正确的：A)随机存储器（RAM）的意思是当程序运行时，每次具体分配给程序的内存位置是随机而不确定的。
B)1MB内存通常是指1024*1024字节大小的内存。
C)计算机内存严格说来包括主存（memory）、高速缓存（cache）和寄存器（register）三个部分。
D)一般内存中的数据即使在断电的情况下也能保留2个小时以上。
3、关于BIOS下面说法哪个是正确的：A)BIOS是计算机基本输入输出系统软件的简称。
B)BIOS里包含了键盘、鼠标、声卡、显卡、打印机等常用输入输出设备的驱动程序。
C)BIOS一般由操作系统厂商来开发完成。
D)BIOS能供提各种文件拷贝、复制、删除以及目录维护等文件管理功能。
4、关于CPU下面哪个说法是正确的：A)CPU全称为中央处理器（或中央处理单元）。
B)CPU可以直接运行汇编语言。
C)同样主频下，32位的CPU比16位的CPU运行速度快一倍。
D)CPU最早是由Intel公司发明的。
5、关于ASCII，下面哪个说法是正确的：A)ASCII码就是键盘上所有键的唯一编码。
B)一个ASCII码使用一个字节的内存空间就能够存放。
C)最新扩展的ASCII编码方案包含了汉字和其他欧洲语言的编码。
D)ASCII码是英国人主持制定并推广使用的。
6、下列软件中不是计算机操作系统的是：A)Windows B)Linux C)OS/2D)WPS7、关于互联网，下面的说法哪一个是正确的：A)新一代互联网使用的IPv6标准是IPv5标准的升级与补充。
小学生信息学奥赛决赛题2009年决赛答案
2009年长沙市小学生计算机奥林匹克竞赛决赛试题（时间：150分钟）一、乘车费用（100分）（存盘程序名：T1）星期天上午小明乘出租车去本市的外婆家。
出租车计价方案为：２公里以内起步价是６元，超过２公里之后按１.８元/公里计价，超过10公里之后在1.8元/公里的基础上加价50%，另外，中途停车等候则按时间计费：１元/３分钟（注：不满３分钟不计费）。
已知：小明到外婆家路程为n公里，中途停车等候时间总共m分钟，请计算小明到外婆家的出租车费是多少元？输入：n m （n,m都是整数）输出：一个实数（表示车费，精确到0.1元）例如：输入：8 7输出：18.8二、报数游戏（100分）（存盘程序名：T2）小明和小红一起玩报数游戏：小明按1～a1循环报数，小红按1～a2循环报数。
两人同时开始，并以同样的速度报数，当两人都报了n个数时，统计出两人同时报相同数的次数，先算对者获胜。
请你算出正确答案，当他俩的裁判。
输入：n (n≤100)a1 a2 (a1、a2取值范围：2..10)输出：一个整数例如：输入：10 输出：42 3程序：program cs200902;var b1:array[1..100] of longint;b2:array[1..100] of longint;a1,a2,n,i,x,t,j:longint;beginread(n);readln(a1,a2);t:=1;for i:=1 to n do beginb1[i]:=t;t:=t+1;if t>a1 then t:=1;end;{将小明报的数生成为一个数组}t:=1;for i:=1 to n do beginb2[i]:=t;t:=t+1;if t>a2 then t:=1;end;{将小红报的数生成为一个数组}x:=0;for i:=1 to n do beginif b1[i]=b2[i] then beginx:=x+1;end;end;{比较两个数组相同位置数字相同的次数}writeln(x);end.三、单词恢复（100分）（存盘程序名：T3）小明已学了n个英语单词，妈妈常帮助他加强记忆：她从这n个单词中挑出一个，并将该单词中的字母顺序变乱，例如：boy变为ybo，再让小明恢复单词的原貌。
NOIP2009(普析)
第十五届全国青少年信息学奥林匹克联赛初赛试题（普及组Pascal 语言二小时完成）●● 全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效●●一. 单项选择题（共20题，每题1.5分，共计30分。
每题有且仅有一个正确答案。
）1、关于图灵机下面的说法哪个是正确的：A) 图灵机是世界上最早的电子计算机B) 由于大量使用磁带操作，图灵机运行速度很慢。
C) 图灵机是英国人图灵发明的，在二战中为破译德军的密码发挥了重要作用。
D) 图灵机只是一个理论上的计算模型。
【分析】选择DA最早的计算机是ENIAC B图灵机是计算机模型，没有运行速度，更谈不上磁带操作C图灵机是英国人阿兰图灵提出的理论，阿兰图灵本人在二战中破译德军密码系统发挥重要作用，而不是图灵机发挥作用。
2、关于计算机内存，下列说法哪个是正确的：A) 随机存储器（RAM）的意思是当程序运行时，每次具体分配给程序的内存位置是随机而不确定的。
B) 1MB内存通常是指1024*1024字节大小的内存。
C) 计算机内存严格说来包括主存（memory）、高速缓存（cache）和寄存器（register）三个部分。
D) 一般内存中的数据即使在断电的情况下也能保留2个小时以上。
【分析】选择B1MB=1024KB=1024*1024BA中RAM不是位置随机，而是随时访问，所谓“随机存取”，指的是当存储器中的消息被读取或写入时，所需要的时间与信息所在的位置无关。
C中高速缓存和寄存器的物理实现是集成在CPU中，这两部分不属于冯诺依曼体系中的五大部分的任意一个部分。
D中2秒都保留不住马上丢失3、下列关于BIOS的说法哪个是正确的：A) BIOS是计算机基本输入输出系统软件的简称。
B) BIOS包含了键盘、鼠标、声卡、显卡、打印机等常用输入输出设备的驱动程序。
C) BIOS一般由操作系统厂商来开发完成。
D) BIOS能提供各种文件拷贝、复制、删除以及目录维护等文件管理功能。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
2009年长沙市小学生计算机奥林匹克竞赛初赛试题（时间：90分钟）参赛证号：姓名：学校：总分：一、单项选择题（每小题2分，共40分）1、操作系统是对（）进行管理的系统软件。
A、软件B、硬件C、应用程序D、计算机资源2、今年长沙市小学生计算机奥赛中使用的计算机语言仍是（）。
A、Free PascalB、C++C、Turbo PascalD、Turbo C3、2008年中科院研制成功的“曙光5000”超级计算机，又刷新了我国计算机的最高运算速度，它每秒运算超过了（）。
A、100亿次B、1000亿次C、100万亿次D、1000万亿次4、执行b:=10;for i:=0 to b do b:=b+1; 之后，变量i、b的值分别为（）。
A、20，20B、10，21C、21，21D、10，205、与二进制数100110101相等的十六进制数是（）。
A、135B、465C、9A1D、5316、根据条件判断的结果，来选择程序执行方向的程序结构称为（）。
A、顺序结构B、分支结构C、树形结构D、菜单结构7、若Var A:array[0..10]of integer;定义了数组A，则A数组需要的内存空间为（）。
A、22ByteB、20KBC、22KBD、20Bit8、中央处理器每执行一个（），就可以完成一次基本运算或判断。
A、语句B、指令C、程序D、软件9、表达式Trunc(sqrt(18236 div 100 mod 100))的值为（）。
A、9B、6C、82D、010、内存储器的每一个存储单元，都对应一个唯一的序号，作为它的（）。
A、内容B、指令C、程序D、地址11、描述网络数据传输速率的单位是BPS，其含义是（）。
A、每秒传输数据多少公里B、每秒传输数据多少万公里C、每秒传输多少二进制位D、每秒传输多少个数据12、对10个按大小排列的数，用二分法查找其中某个数的位置，最多只需查找（）次。
A、1B、4C、10D、513、下面布尔表达式的值为true 的是（）。
A、chr(ord(‘b’)+1)>’b’B、(‘123’>’23’)and(123>23)C、’2’>’1000’D、not(‘A’<>’a’)14、产生10-30之间（包括10、30）的随机整数表达式为（）。
A、random(10)+20B、random(20)+10C、random(30)+10 D random(21)+1015、下列Pascal表达式当中正确的是（）。
A、(x+y)(x-y)B、(b>c)*(a+2)C、m/2+2nD、(((b+1)*2+1)*2+1)*2+116、执行i:=0;while i<2009 do begin n:=n+ord(odd(i));i:=i+1 end 之后，n值为（）。
A、1004B、2009C、1005D、200817、执行语句writeln(‘12*3=’,12*3)的结果为（）。
A、36=36B、12*3=36C、‘12*3=’36D、‘12*3=’，12*318、在完成编程后，为了有效检测程序的正确性，应该（）。
A、随便选取一个数据进行测试B、取一切可能的数据进行测试C、选择最可能发现错误的数据进行测试D、自己不测试，交给老师测试19、对二给数组a:array[1..5,1..7] of ingeger，现在要存入数据，若按行顺序存储，其中有一个数在［3，5］的位置，而若改为按列顺序存储，则这个数应该位于（）。
A、［4，4］B、［5，3］C、［2，5］D、［3，5］20、下面描述错误的是（）。
A、双核处理器是指在一个处理器上集成两个运算核心，从而提高运行速度和计算能力。
B、计算机在工作时突然断电，保存在内存ROM中的信息会全部丢失。
C、计算机病毒都是人为制造出来的，而不是计算机硬件故障的结果。
D、“微软黑屏事件”与计算机知识产权问题有关。
二、问答题（每小题5分，第一小题第一空2分，第一空3分，共10分）1、12、34、5、67、8、9、10……………………问：如上三角形数阵中第11行第6个数是多少？请完善计算机第n行第i个数的表达式。
答：第11行第6个数是，第n行第i个数的表达式为：*n/2+i2、有一种电子钟，每到正点响一次铃，每过九分钟亮一次灯。
问：如果中午12点整它既响铃又亮灯，那么下一次既响铃又亮灯是什么时间？答：。
三、读程序，写结果（每小题5分，共20分）（1）var x,y:integer;beginreadln(x,y);if x-10>y then writeln(x div y) else writeln(x mod y);end.输入：34 26输出：（2）var a:array[0..8] of integer;i:integer;BeginFor i:=1 to 8 do a[i]:=I;For i:=1 to 4 do beginA[0]:=a[i];a[i]:=a[9-i];a[9-i]:=a[0];End;For i:=1 to 8 do write(a[i]:2);Writeln;End.输出：（3）var s,s1,s2:string;I,j,len:integer;BeginReadln(s);len:=length(s);s1:=’’;s2:=’’;j:=0;for i:=1 to len do beginIf (s[i]>=’0’)and(s[i]<=’9’) tehn beginj:=j+1;insert(s[i],s1,j);end elseIf (s[i]>=’a’)and(s[i]<=’z’)or (s[i]>=’A’)and(s[i]<=’Z’)Then s2:=s2+s[i];end;Writeln(s1,’ ’,s2);End.输入：Is 4Today 18?输出：(4) var a,b:integer;Procedure tt(x:integer;var y:integer);BeginX:=x+y;Y:=x-y;End;BeginA:=7;b:=8;tt(a,b);Writeln(a:3,b:3);tt(a-b,b);writeln(a:3,b:3);end.四、完善程序（每空3分，共30分）1、统计子序列数输入一个互不相同的正整数序列，求出该序列中所有递增和递减子序列的数目。
例如：整数序列(7,4,6,9,8,3,5,2,1),可以分为（7，4），（4，6，9），（9，8，3），（3，5），（5，2，1）这些子序列，即：子序列的数目为5。
（注：上例整数序列中的4，9，3，5被称之为“转折元素”）Var n,I,s:integer;d:array[1..100] of integer;beginreadln(n);for i:=1 to n do read( );s:= ;for i:=2 to doif (d[i]-d[i-1])* >0 then __________ writeln(s);end.2，“振荡”冒泡排序：将n个整数从小到大排序（n《1000》），下面的程序是对普通冒泡法排序的一种改进：先从一端开始扫描，进行比较，然后改变下一趟扫描的方向，作同样的处理，使冒炮过程来回“振荡”进行，并逐步缩小范围，直到n个数都排好为止。
var n，i :interger；a: ;procedure shakesort（x : interger）var I,h,t,k :interger；b :boolean；beginh:=1;t:=x;repeat；for i:=h to doif a[i]〉a[i+1] then begink :=a[i]；a[i] :=a[i+1] ；a[i+1]:=kb :=false；end；t :=t-1；for i；=t-1 downto h doif then begink:=a[i]；a[i]:=a[i+1]；a[i+1]:=k；b :=false；end；h :=h+1；until b；end；beginrandomize；readln（n）；for i :=1 to n do a[i]:=random（1000）+1；；for i:=1 to n do write（a[i]:4）；writelnend。