1.读入10个数，输出偶数项及它们的和，输出奇数项及它们的平均数。
2.读入n个数，打印其中的最大数、最小数及它们的位置。
3.有一组数（设有n个），编一程序交换这组数中任意指定的两段不重合数据。
4.给定一串整数数列，求出所有的递增和递减子序列的数目。如数列7，2，6，9，8，3，
5，2，1可分为（7，2），（2，6，9），（9，8，3），（3，5），（5，2，1）5个子序列，其中递增数列2个，递减数列3个。
5.将1～9这9个数字分成三组（每个数字只能使用一次），分别组成三个三位数，且这三
个三位数的值构成1：2：3的比例，试求出所有满足条件的三个三位数。
6.设数组a是一个有n个元素的整数数组，从中找出最大和的子序列。（数组中有负数）。
7.已知数组a中含n个整型元素，求a中有多少个最大数?多少个次大数？…，多少个互
不相同的数？编程实现之。
8.将一个十进制整数转化为二进制数。
9.编程，打印1000以内二进制和十进制正读和反读都一样的整数清单。
10.读入n个正整数，将其按从小到大的顺序排列，说明该数出现的次数及其在原序列中的
位置。
11.圆盘找数，找出4个相邻的数，使其相加之和最大和最小的是哪4个数？并给出它们的
起始位置。
12.约瑟夫问题:n个人围成一圈，从第一个人开始报数，数到k的人出圈。再由下一个人开
始报数，数到k的人出圈，依次输出出圈人的编号。n的值预先设定，k的值由键盘读入。比如：n=8,k=6出圈顺序为：6、4、3、5、8、7、2、1。
13.输入矩阵a（m行n列）和矩阵b（n行h列），计算并输出c=a*b。
14.求n*n数阵中的马鞍数，输出它的位置。所谓马鞍数，是指在行上最小
而在列上最大的数。如下：（n=5）
5 6 7 8 9
4 5 6 7 8
3 4 5 2 1
2 3 4 9 0
1 2 5 4 8
则1行1列上的数就是马鞍数。
15.大部分元素是0的矩阵称为稀疏矩阵，假设有k个非零元素，则可把稀疏矩阵用k×3
的矩阵简记之，其中第一列是行号，第二列是列号，第三列是该行、该列下的非零元素的值。如：
00000
0100
0025
000 可简记为 1
23212541
16. 数学黑洞6174。已知：一个任意的四位正整数。将数字重新组合成一个最大的数和最
小的数相减，重复这个过程，最多七步，必得6174。即：7641－1467＝6174。将永远出不来。求证：所有四位数数字（全相同除外），均能得到6174。输出掉进黑洞的步数。
信息学竞赛初赛模拟试题(十一) (初中组PASCAL语言，两小时完成) ♦♦请将正确答案在答卷上填写，在本试题卷上答题无效♦♦ 一、选择题(每题只有一个选项符合题目要求，多选无效，1.5*20=30分) 1、当一个应用程序窗口被最小化后，该应用程序将()。 A)被终止执行B)继续在前台执行 C)被暂停执行D)被转入后台执行 2、在"替换"对话框中指定了查找内容但没有在"替换为"框中输入内容，则执行"全部替换"后，将()。 A)只进行查找，不进行替换 B)不能执行，提示输入替换的内容 C)每找到一个欲查内容，就提示用户输入替换的内容 D)把所有找到的内容删除 3、计算机网络最主要的功能在于()。 A)扩充存储容量B)提高计算速度C)传输文件D)共享资源 4、在计算机领域中，通常用英文单词"BYTE〃来表示() A)字B)字长C)二进制位D)字节 5、发现计算机病毒后，一种较为彻底的清除方法是()。 A)删除磁盘文件B)格式化磁盘C)用查毒软件处理D)用杀毒软件处理 6、对于一个具有n个结点和e条边的无向图，若采用邻接表表示，则顶点表的大小为()， A)nB)n+1C)n-1D)n+e 7、互联网址中公司的顶级域名一般是()。 A)NETB)GOVC)EDUD)COM 8、在微机中，硬盘连同其驱动器属于()。 A)外(铺助)存储器B)输入设备C)输出设备D)主(内)存储器 9、在全角状态下，输入的字母在屏幕上占有()个ASCII码字符的位置。 A)1个B)2个C)3个D)4个 10、二进制数10011010和00101011进行逻辑乘运算(即"与"运算)的结果是()。 A)00001010B)10111011C)11000101D)11111111 11、已知一棵二叉树的前序序列和中序序列分别为：ABDEGCFH和DBGEACHF，层次序列为()。 A)GEDHFBCAB)DGEBHFCAC)ABCDEFGHD)ACBFEDHG 12、下列字符中，其ASCII码值最大的是() A)9B)DD)aD)y 13、某顺序存储的表格，其中有90000个元素，已按关键项的值的上升顺序排列。现假定对各个元素进行查找的概率是相同的，并且各个元素的关键项的值皆不同。用顺序查找法查找时，平均比较次数约为() A)25000B)30000C)45000D)90000 14、数字字符"1"的ASCII码的十进制表示为49，那么数字字符"8"的ASCII码的十进制表示为()。
第 5 章数组和广义表 一、选择题 2. 有一个二维数组A[1:6，0:7] 每个数组元素用相邻的6个字节存储，存储器按字节编址， 那么这个数组的体积是（①）个字节。假设存储数组元素A[1，0]的第一个字节的地址是0， 则存储数组A的最后一个元素的第一个字节的地址是（②）。若按行存储，则A[2，4]的第 一个字节的地址是（③）。若按列存储，则A[5，7]的第一个字节的地址是（④）。就一般情 况而言，当（⑤）时，按行存储的A[I，J]地址与按列存储的A[J，I]地址相等。供选择的 答案： ①-④： A．12 B. 66 C. 72 D. 96 E. 114 F. 120 G. 156 H. 234 I. 276 J. 282 K. 283 L. 288 ⑤： A．行与列的上界相同 B. 行与列的下界相同 C. 行与列的上、下界都相同 D. 行的元素个数与列的元素个数相同 3. 设有数组A[i,j]，数组的每个元素长度为3字节，i的值为1 到8 ，j的值为1 到10， 数组从内存首地址BA开始顺序存放，当用以列为主存放时，元素A[5，8]的存储首地址为( )。 A. BA+141 B. BA+180 C. BA+222 D. BA+225 4. 假设以行序为主序存储二维数组A=array[1..100，1..100]，设每个数据元素占2个存 储单元，基地址为10，则LOC[5，5]=（）。 A. 808 B. 818 C. 1010 D. 1020 5. 数组A[0..5,0..6]的每个元素占五个字节，将其按列优先次序存储在起始地址为1000 的内存单元中，则元素A[5，5]的地址是( )。 A. 1175 B. 1180 C. 1205 D. 1210 6. 有一个二维数组A[0:8,1:5],每个数组元素用相邻的4个字节存储，存储器按字节编址， 假设存储数组元素A[0,1]的第一个字节的地址是0，存储数组A的最后一个元素的第一个字 节的地址是（①）。若按行存储，则A[3,5]和 A[5,3]的第一个字节的地址是（②） 和（③）。若按列存储，则A[7,1]和A[2,4]的第一个字节的地址是（④）和（⑤）。 ①-⑤:A.28 B.44 C.76 D.92 E.108 F.116 G.132 H.176 I.184 J.188 13. 设二维数组A[1.. m，1.. n]（即m行n列）按行存储在数组B[1.. m*n]中，则二维数 组元素A[i，j]在一维数组B中的下标为( )。 A.（i-1）*n+j B.（i-1）*n+j-1 C. i*（j-1） D. j*m+i-1 15. 数组A[0..4,-1..-3,5..7]中含有元素的个数（）。【中山大学 1998 二、5（2分）】 A. 55 B. 45 C. 36 D. 16 二、判断题 1.数组不适合作为任何二叉树的存储结构。（×） 2. 从逻辑结构上看，n维数组的每个元素均属于n个向量。（√） 4. 数组是同类型值的集合。（×） 5. 数组可看成线性结构的一种推广，因此与线性表一样，可以对它进行插入，删除等操作。（×） 三、填空题 1. 数组的存储结构采用_______存储方式。 2. 设二维数组A[-20..30,-30..20], 每个元素占有4 个存储单元, 存储起始地址为200. 如按行优先顺序存储,则元素 A[25,18]的存储地址为__（1）_；如按列优先顺序存储,则元
1、统计单词个数及每个单词出现的次数。 program words; type re=record data:longint; str:string; end; var f:boolean; str,str1:string; l,i,j,k,sword:longint; s:set of char; a:array[0..10000] of re; begin readln(str); l:=length(str); for i:=1 to l do if str[i] in ['A'..'Z'] then str[i]:=chr(ord(str[i])+32); i:=1; k:=0; s:=['a'..'z']; sword:=0; while i<=l do begin if str[i] in s then begin inc(sword); str1:=''; while (i<=l) and (str[i] in s) do begin str1:=str1+str[i]; inc(i); end; f:=false; for j:=1 to k do if a[j].str=str1 then begin inc(a[j].data);f:=true;end; if not f then begin k:=k+1;a[k].data:=1;a[k].str:=str1;end; end else inc(i); end; writeln('the number of words=',sword); for i:=1 to k do writeln('the number of ',a[i].str,'=',a[i].data); end. 2、在一次宴会上，有来自八个不同国家的宾客被安排在同一张圆桌就坐。A是中国人，会讲英语；B是意大利人，他能讲西班牙语；C是英国人，会讲法语；D是日本人，能讲汉语；
第7章数组 7-1输入一个正整数n（1≤n≤10），再输入n个整数 （1）输出最大数和最小数，并输出平均值。 （2）将最小数与第一个数交换，最大数与最后一个数交换，然后输出交换后的结果。 （3）输出所有比平均值大的数。 （4）找到最接近平均值的数。（提示：考虑差的绝对值）
Output Please input 10 integers: 17 34 -11 2 5 10 7 -9 0 25 /* input */ The maximum is: 34, the minimum is: -11, the average is 8.00 After exchange: -11 25 17 2 5 10 7 -9 0 34 Larger than the average: 25 17 10 34 The number closest to the average is: 7 7-2输入一个日期（按照year-month-day格式），计算该日期为当年的第几天。 （提示：注意闰年） （1）使用数组存储当年每个月应有的天数； （2）不使用数组完成；
Output
Please input a date: (year-month-day) 2008-4-14↵/* input */ This date is the 105th day in the year. 7-3输入一个正整数n（1≤n≤10），再输入n个整数，将这n个整数从大到小排序，然后在已经排序后的数组中插入平均数（取整），保持数组的升序，将插入平均数后的数组输出。 （1）用冒泡法排序； （2）用选择法排序。
1、百钱买百鸡问题。中国古代数学家张丘建在他的《算经》中提出了著名的“百钱买百鸡问题”：鸡翁一，值钱五，鸡母一，值钱三，鸡雏三，值钱一，百钱买百鸡，问翁、母、雏各几何？ 2、求 (34) 21 21131388553322111++++++++ 的前二十项的和。 3、计算 (29) 1 2211611117141211+++++ +++当第i 项的值<10-4 时结束。 4、求s n =a+aa+aaa+aaaa+…+aa...aaa(n 个a)，其中a 是一个由随机数产生的1~9(包括1、9)之间的一个正整数，n 是一个由随机数产生的5~10(包括 5、10)之间的一个数。显示a 和n ，并求s n 。 5、输出下列图形。 1 222 33333 4444444 555555555 66666666666 7777777777777 888888888888888 99999999999999999 6、输出下列图形。 AAAAAAAAAAAAAAAAAA BBBBBBBBBBBBBBBB CCCCCCCCCCCCCC DDDDDDDDDDDD EEEEEEEEEE FFFFFFFF GGGGGG HHHH II 7、我国有13亿人口，按人口年增长0.8%计算，多少年后我国人口超过26亿。 8、键入一个字符串（串长不超过20），输出相应字符组成的等边三角形。 如：输入：“CHINA ” 输出： 9、数的统计。一个数“含有0”是指这个数至少有某一位数字为0。小明对那些“含有0”的自然数很感 兴趣，想挑出来进行研究。那么，1～N 当中“含有0”的自然数有多少个？小明想在1秒钟内得到答案，你能帮他做到吗？ 输入：N （1≤N ≤100000000） 样例输入：105 输出：15 10、整数排序。对给定的N （1≤N ≤100）个1到50之间的正整数用一个数组存放后进行从小到大排序，然后再将其中重复出现的数进行删除，只保留一个，使得剩下的数中任何两个都不相同且连续存储在原数组中。 输入(a2.in)：第一行，正整数N （1≤N ≤100） 以下N 行数据为这N 个1到50间的正整数 输出(a2.out)：第一行，剩下的排好序的正整数个数M 以下M 行为排好序的这M 个不重复出现的正整数 样例1：
PASCAL试题(1998年)一、判断题（每小题2分，共10分） 1．TYPE digits=(one,two,three,four); ( ) 2．VAR n:integer …… CASE n OF 1,3,5 : writeln(‘odders’); 2,4,6 : writeln(‘evener’); 3,4,7 : writeln(‘other’) END; ( ) 3．VAR b:boolean; i,n:integer; …… b:=true; FOR i:=2 TO n/2 DO IF n MOD i=0 THEN b:=false; ( ) 4．FUNCTION f(x:integer):1..100; ( )
5．VAR a,b:RECORD x,y:real END; …… IF a=b THEN writeln(‘all value is equal’); ( ) 二、单项选择题（每小题2分，共10分）1．VAR ( ) c:char; b:boolean; 选出下面正确的赋值： A．c:=’1998’; B.c:=1 C.b:=’true’; D.c:=’1’; 2．选出下面正确的表达式。( ) A. 3<>5 and 5-3=2 B. ‘5’+’3’ C. chr(ord(‘B’)) D. ord(‘2’)/2 mod 2
3．选出下面正确的类型定义。( ) A．TYPE operaters=(+，-，*，/)； B．TYPE digits=(‘1’,’2’,’3’,’4,’); C．TYPE letters=(‘A’,’B’,’C’,’D’)； D．TYPE mtype=(int,realtype,caracter,bool); 4．VAR p,q:integer; r,s:real; ( ) 且p,q,r,s都已赋值，选出下面正确的表达式。 A.p=q B.p<>r C.p=r D.q<>s 5．VAR S:SET OF 1..5; A:SET OF ‘A’..’E’; ( ) A和S已赋值，选出正确的表达式。 A．A<>S B . A∩S=[ ] C . A<>[ ] D . NOT ‘A’ IN S 三、填空题（每空1分，共10分） 1．VAR a:ARRAY [1..10,’A’..’E’] OF char;a中有_________个元素，每个元素是_________类型。
习题四 (1)type atype=array [1..Max] of integer; (2)type btype=array [10..10] of real; (3)type ctype=array[10..5] of Boolean; (4)type dtype=array[0..Sqr(5)]of char; (5)type etype=array[1.0..10.0]of integer; (6)type ftype=array[′1′.. ′5′]of real; (7)type gtype=array[1.. ′5′]of Boolean; (8)type htype=array[Char]or char; (9)type Itype=array[Integer]of real; (10)type jtype= array[Boolean]of integer; 2.输入n个整数,请找出最小数所在的位置,并把它与第一个数对调。 3.用边排序边合并的方法把两个有序数列合并为一个新的有序数列,不得先合并再重新排序。 4.将一个数插入到有序的数列中,插入后数列仍然有序。 5.有N个无序的数存放在A数组中,请将相同的数删成只剩下一个,并输出经过删除后的数列。 6.有52张扑克牌,使它们全部正面朝上。从第2张牌开始,把凡是2的倍数位置上的牌翻成正面朝下;接着从第3张牌开始,把凡是3的倍数位置上的牌正面朝上的翻成正面朝下,正面朝下的翻成正面朝上;接着从第4张牌开始,把凡是4的倍数位置上的牌按此规律翻转;依此类推,直到第1张要翻的牌是第52张牌为止。统计最后有几张牌正面朝上,并打印出它们的位置。 7.n只猴子选大王,选举办法如下:从头到尾1、2、3报数,凡报3的退出;余下的从尾到头1、2、3报数,凡报3的退出;余下的又从头到尾报数,还是报3的退出;依此类推,当剩下两只猴子时,取这时报数报1的为王。若想当猴王,请问当初应占据什么位置? 8.围绕着山顶有10个洞,一只狐狸和一只兔子住在各自的洞里。狐狸总想吃掉兔子。一天,兔子对狐狸说:“你想吃我有一个条件,先把洞从1~10编上号,你从10号洞出发,先到l号洞找我;第二次隔1个洞找我,第三次隔2个洞找我,以后依此类推,次数不限。若能找到我,你就可以饱餐一顿。不过在没有找到我以前不能停下来。”狐狸满口答应就开始找了,它从早到晚进了1000次洞,累得昏了过去也没找到兔子。请问,兔子躲在几号洞里? 9.编写程序计算并打印200以内的所有素数。 10.输人一个英文句子,单词之间用空格隔开。对它进行如下操作: (1)删除指定的字符。 (2)把连续两个以上的空格删成只剩一个空格。 (3)在指定的某个字母面前都插入一个空格。
PASCAL基本竞赛辅导习题及解析（一） 1、期未来临了，班长小Q决定将剩余班费X元钱，用于购买若干支钢笔奖励给一些学习好、表现好的同学。已知商店里有三种钢笔，它们的单价为6元、5元和4元。小Q想买尽量多的笔（鼓励尽量多的同学），同时他又不想有剩余钱。请您编一程序，帮小Q制订出一种买笔的方案。 分析：对于以上的实际问题，要买尽量多的笔，易知都买4元的笔肯定可以买最多支笔。因此最多可买的笔为x div 4支。由于小q要把钱用完，故我们可以按以下方法将钱用完：若买完x div 4支4元钱的笔，还剩1元，则4元钱的笔少买1支，换成一支5元笔即可；若买完x div 4支4元钱的笔，还剩2元，则4元钱的笔少买1支，换成一支6元笔即可；若买完x div 4支4元钱的笔，还剩3元，则4元钱的笔少买2支，换成一支5元笔和一支6元笔即可。 从以上对买笔方案的调整，可以看出笔的数目都是x div 4，因此该方案的确为最优方案。 源程序如下： program pen; var a,b,c:integer;{a,b,c分别表示在买笔方案中，6元、5元和4元钱笔的数目} x,y:integer;{x，y分别表示剩余班费和买完最多的4元笔后剩的钱} begin write('x=');readln(x){输入x} c:=x div 4;{4元笔最多买的数目} y:=x mod 4;｛求买完c支4元笔后剩余的钱数y｝ case y of 0 : begin a:=0;b:=0; end; 1 : begin a:=0;b:=1;c:=c-1; end; 2 : begin a:=1;b:=0; c:=c-1;end; 3 : begin a:=1;b:=1; c:=c-2;end; end;
题目名称A+B 预防工作受欢迎的奶牛 可执行文件名Ab.pas/c/cpp Point.pas/c/cpp Popular.pas/c/cpp 输入文件名Ab.in Point.in Popular.in 输出文件名Ab.out Point.out Popular.out 测试点个数 5 10 10 满分100 100 100 运行限制1s 1s 1s 64M 64M 64M
A+B 题目描述 对于给定的两个十进制数a ，b，要计算出他们的和在2进制下的答案， 输入文件 第一行2个数n，m，分别表示a，b两个数的长度， 第二行1个数，a， 第三行1个数，b。 输出文件 一个整数，表示答案。 样例 Ab.in 1 1 1 Ab.out 1 数据范围 1<=n，m<=15.
预防工作 题目描述 为了防止动物们的下一次逃跑，我们想知道在菜园里给定的k个被标记的顶点中有多少个顶点到离它最近的被标记的顶点的距离小于等于limit。 输入文件 第一行两个整数n, m, k, limit。表示n个顶点m条边和k个标记点。 接下来m行每行三个整数u, v, dis。表示有一条连接u，v的无向边，长度为dis。 下一行k个整数表示k个被标记的顶点的标号。 输出文件 一个整数，表示离它最近的被标记的顶点的距离小于等于limit的顶点数目。 样例 Point.in 5 5 3 5 1 2 5 2 3 5 3 4 10 4 5 10
1 5 10 1 2 4 Point.out 2 数据范围 n <= 6000；m<= 60000；limit<=maxint；k<=1000; 图不保证是随机的。
NOIP2007年提高组（Pascal语言）初赛试题及答案 一、单项选择题题目: 1. 在以下各项中, ( D ) 不是CPU的组成部分 A. 控制器 B. 运算器 C. 寄存器 D. 主板 E. 算术逻辑单元(ALU) 2. 在关系数据库中, 存放在数据库中的数据的逻辑结构以( E )为主 A. 二叉树 B. 多叉树 C. 哈希表 D. C+树 E. 二维表 3. 在下列各项中, 只有( D )不是计算机的存储容量常用单位 A. Byte B. KB C. MB D. UB E. TB 4. ASCII码的含义是 ( B ) A. 二—十进制转换码 B. 美国信息交换标准代码 C. 数字的二进制数码 D. 计算机可处理字符的唯一编码 E. 常用字符的二进制编码 5. 在Pascal语言中, 表达式(23 or 2 xor 5)的值是( A ) A. 18 B. 1 C. 23 D. 32 E. 24 6. 在Pascal语言中, 判断整数a等于0或b等于0或c等于0的正确的条件表达式是( B ) A. not ((a<>0) or (b<>0) or (c<>0)) B. not ((a<>0) and (b<>0) and (c<>0)) C. not ((a=0) and (b=0) and (c=0))
D. (a=0) and (b=0) and (c=0) E. not ((a=0) or (b=0) or (c=0)) 7. 地面上有标号为A、B、C的3根细柱, 在A柱上方有10个直径相同中间有孔的圆盘, 从上到下次编号为1, 2, 3, ……，将A柱上的部分盘子经过B柱移入C柱, 也可以在B柱上暂存。如果B柱上的操作记录为：“进，进，出，进，进，出，出，进，进，出，进，出，出”。那么, 在C柱上, 从下到上的盘子的编号为( D ). A. 2 4 3 6 5 7 B. 2 4 1 2 5 7 C. 2 4 3 1 7 6 D. 2 4 3 6 7 5 E. 2 1 4 3 7 5 8. 与十进制数17.5625相对应的8进制数是( B ) A. 21.5625 B. 21.44 C. 21.73 D. 21.731 E. 前4个答案都不对 9. ……在以下各个描述中, 不一定是欧拉图的是:D A. 图G中没有度为奇数的顶点 B. 包括欧拉环游的图(欧拉环游是指通过图中每边恰好一次的闭路径) C. 包括欧拉闭迹的图(欧拉迹是指通过途中每边恰好一次的路径) D. 存在一条回路, 通过每个顶点恰好一次 10. ……, 关于死循环的说法中, 只有( A )是正确的. A. 不存在一种算法, 对任何一个程序及相应输入数据, 都可以判断是否会出现死循环, 因而, 任何编译系统都不作死循环检查. B. 有些编译系统可以检测出死循环. C. 死循环属于语法错误, 既然编译系统能检查各种语法错误, 当然也可以检查出死循环. D. 死循环与多进程中出现的"死锁"差不多, 而死锁是可以检查的, 因而, 死循环也是可以检测的 E. 对于死循环, 只能等待发生时作现场处理, 没有什么更积极的手段. 二、不定项选择题目 11. 设A=B=true, C=D=false, 以下逻辑表达是值为真的是( ABC ) ......那3个符号不会打 12. 命题“P->Q”可读做P蕴含Q, 其中P、Q是两个独立的命题. 只有命题P 成立而命题Q不成立时, 命题"P->Q"的值为False, 其它情况均为true. 与命题"P->Q"等角的逻辑关系式是( AD )
PASCAL语言真题精选 [单项选择题] 1、设有过程首部procedure f（VAR x：integer；y：real）；若a，b为整型变量，c为实型变量，则合法的过程调用语句是（） A.f（2，3） B.f（2，3.0） C.f（a+b，c） D.f（b，2） 参考答案：D [单项选择题] 2、一个完整的pascal 程序由程序首部，说明部分及执行部分组成，其说明部分的次序为（） A.常量说明，类型说明，变量说明，标号说明，过程说明 B.标号说明，类型说明，变量说明，常量说明，过程说明 C.标号说明，常量说明，类型说明，变量说明，过程说明 D.类型说明，变量说明，标号说明，过程说明，常量说明 参考答案：C [单项选择题] 3、Pascal 程序中无序类型是指（） A.实型 B.字符型 C.整型 D.布尔型 参考答案：A [单项选择题] 4、下列属PASCAL合法常数的是（） A.102 B.10.0 C.35，000，000 D.1/2 参考答案：A
[单项选择题] 5、下列关于BIOS的说法哪个是正确的（） A.BIOS是计算机基本输入输出系统软件的简称。 B.BIOS包含了键盘、鼠标、声卡、显卡、打印机等常用输入输出设备的驱动程序。 C.BIOS一般由操作系统厂商来开发完成。 D.BIOS能提供各种文件拷贝、复制、删除以及目录维护等文件管理功能。 参考答案：A [单项选择题] 6、已知大写字母A的ASCII编码为65（十进制），则大写字母J的十进制ASCII编码为（） A.71 B.72 C.73 D.以上都不是 参考答案：D [单项选择题] 7、在参加NOI系列竞赛过程中，下面哪一种行为是不被严格禁止的（） A.携带书写工具，手表和不具有通讯功能的电子词典进入赛场。 B.在联机测试中通过手工计算出可能的答案并在程序里直接输出答案来获取分数。 C.通过互联网搜索取得解题思路。 D.在提交的程序中启动多个进程以提高程序的执行效果。 参考答案：B [单项选择题] 8、在以下各项中，（）不是操作系统软件。 A.Solaris B.Linux C.Windows Vista D.Sybase 参考答案：D [单项选择题] 9、对有序数组{5，13，19，21，37，56，64，75，88，92，100}进行二分查找，成功查找元素19的查找长度（比较次数）是（） A.1 B.2
信息学初赛模拟试题（五） （初中组PASCAL语言，两小时完成） 一、选择题：（每题1.5分，共计30分。每题有5个选项，前10题为单选题，后10题为不 定项选择题，全部选对才得分）。 1. 二进制数11011011的十进制值是（） A. 202 B. 219 C. 193 D. 209 2. 我国研制的银河Ⅲ型的超级计算机通过基准程序的测试，其峰值速度是（） A. 80亿次 B. 100亿次 C. 130亿次 D. 150亿次 3. 程序段如下： FOR I:=1 TO 5 DO FOR J:=2 TO I DO Writeln(‘*’) 输出’*’的个数是（） A. 5 B. 10 C. 15 D. 25 E. 30 4. 设待排序的记录为（49，38，65，97，76， 13，27 , 49, 55, 4），经过下过程将序列排序 第一趟：13, 27, 49, 55, 4, 49, 38, 65, 97, 76 第二趟：13, 4, 49, 38, 27, 49, 55, 65, 97, 76 第三趟：4, 13, 27, 38, 49, 49, 55, 65, 76, 97 问它所用的方法是：( ) A. 冒泡排序 B. 直接选择排序 C. 直接插入排序 D. 希尔排序 5. 设无向树T有7片树叶，其余顶点度均为3，则T中3度顶点有多少个（） A. 5 B. 7 C. 9 D. 4 E. 8 6. 设连通图G的顶点数和边数与一立方体相同，即有8个顶点和12条边。任意一棵G的生 成树的总边数为（） A．7 B. 8 C. 9 D. 10 E. 11 7. 设有两个散列函数h1(k)=k mod 13 和 h2(k)=k mod 11 +1，散列表为T[0…12]，用二 次散列法解决冲突。函数h1用来计算散列地址，当发生冲突时，h2作为计算下一个探测地址的地址增量。假定某一时刻散列表的状态为： 0 1 2 3 4 5 6 7 8 9 10 11 12 80 44 35 下一个被插入的关键码为57，其插入的位置为( )。 A. 4 B. 5 C. 6 D. 7 E. 8 请根据下面是一段PASCAL程序,判断第8、9题。 for h :=1 to n-1 do begin x :=A[h+1]; k:=h; while (k>=1) and (A[k]>x) do begin A[k+1]:=A[k]; k:=k–1 end A[k+1] :=x end 8. 假设在程序开始执行时，数组A[1…n]是一组随机整数。下列答案中，哪一个最好的描
（PASCAL）信息学竞赛初级篇题库 1. 输入10个正整数，计算它们的和，平方和； 2. 输入20个整数，统计其中正、负和零的个数； 3. 在1——500中，找出能同时满足用3除余2，用5除余3，用7除余2的所有整数； 4. 输出1——999中能被3整除，且至少有一位数字是5的数；答案var i:integer; begin for i:=1 to 999 do if (i mod 3=0)and ((i mod 10=5) or (i div 10 mod 10=5) or (i div 100=5)) then write(i:10); end. 5. 输入20个数，求出它们的最大值、最小值和平均值。 6. 甲、乙、丙三人共有384本书，先由甲分给乙、丙，所给书数分别等于乙、丙已有的书数，再由乙分给甲、丙，最后由丙分给甲、乙，分法同前，结果三人图书数相等。编程求甲、乙、丙三人原各有书多少本？ 7. 某养金鱼爱好者，决定出售他的金鱼。第一次卖出了全部金鱼的一半加2分之一条金鱼；第二次卖出剩金鱼的三分之一加三分之一条金鱼；第三次卖出剩金鱼的四分之一加四分之一条金鱼；第四次卖出剩金鱼的五分之一加五分之一条金鱼，最后还剩11条。问原来有多少条金鱼？（每次卖的金鱼都是整数条） 8. 猴子吃桃子问题：猴子第一天摘下若干个桃子，当即吃了一半还不过瘾，又多吃了一个；第二天又将剩下的桃子吃掉一半又多吃了一个；以后每天早上都吃了前一天剩下的一半零一个。到了第十天想再吃时，见只剩下一个桃子，求第一天共摘了多少个桃子？ 9. 从键盘输入整数l，统计出边长为整数的周长为l的不等边三角形的个数。 10. 输入三个整数，以这三个数为边长，判断是否构成三角形；若构成三角形，进一步判断它们构的是：锐角三角形或直角三角形或钝角三角形。 11. 1*2*3*...*1000结果是一个很大的数，求这个数末尾有多少个连续的零。 12. 任意输入两个整数，求这两个整数的最大公约数，并求这两个整数的最小公倍数。 13. 一个整数的立方可以表示为两个整数的平方差，如19853=19711052-19691202。 编程：输入一个整数N，自动将其写成N3=X2-Y2。 14. 求100以内的所有素数。纯粹素数是这样定义的：一个素数，去掉最高位，剩下的数仍为素数，再去掉剩下的数的最高位，余下的数还是素数。这样下去一直到最后剩下的个位数也还是素数。求出所有小于3000的四位的纯粹素数。 15. 验证回文数的猜测：左右对称的自然数称回文数。如121，4224，13731等，有人猜测：从任意一个两位或两位以上的自然数开始，将该数与它的逆序数（如1992的逆序数是2991）相加，得到一个新数，再用这个新数与它的逆序数相加，不断重复上述操作，经过若干步的逆序相加之后，总可以得到一个回文数，例如：从1992开始，1992+2991=4983；4983+3894=8877；8877+7788=16665；16665+56661=73326；73326+62337=135663；135663+366531=502194；502194+491205=993399。经过七步就得到了回文数。 设计一个程序，由计算机在局部范围内验证回文数的猜测，并将寻找回文数的每一个步骤都显示出来。16. 已知一个正整数的个位数为7，将7移到该数的首位，其它数字顺序不变，则得到的新数恰好是原数的7倍，编程找出满足上述要求的最小自然数。 17. 任意一个大于9的整数减去它的各位数字之和的差，一定能被9整除。 18. 有一个六位数，其个位数字7，现将个位数字移至首位（十万位），而其余各位数字顺序不变，均后退一们，得到一个新的六位数，假如旧数为新数的4倍，求原来的六位数。 19. 任意给定平面上三个点A（X1，Y1），B（X2，Y2），C（X3，Y3），试判断这三个点能否构成三角形。能则求出它的面积。 20. 将1至9这几个数字排成3x3方阵，并使每一横行的三个数字组成一个三位数。如果要使第三行的三位
一、编程实现： （1）：输入x,y的值,用程序实现输出时x为y的值，y为x的值。(test1) （2）：输入一个三位数，输出它的相反数。如：输入234，输出432。 （3）：从键盘输入一个数x，计算表达式3*x-6的值，并在屏幕输出结果。(test3) （4）：输入20个数，统计其中正数、负数和零的个数。 要求：程序名ex 统计个数变量：num1（正），num2（负），num3（零） 循环变量：i （5）：用当循环语句（while）编程计算1×2×4×6×8×……×20的积。(test5) （6）：李冬期末考试考语文、数学、英语三门课程，编程求他期末考试的总分和平均分(test6) （7）：随机产生互不相同的两位数20个，并按从小到大的顺序排列。 （8）：新年联欢会，来宾聚一堂，互相碰一杯，903响，问有多少人，饮酒在会上？ （9）：编程求1~100以内所有质数的和。 （10）：编程判断某个年份是否是闰年。输入年份（变量名称：year），若是闰年，则在屏幕上显示Yes，否则输出No (test10 （11）：小明有一本书，第一天看了全书的一半，第二天又看了剩余的2/3，还有10页没看完，问全书共有几页？ （12）：一本1000页的书，黄强第一天看了10页。以后每天比前一天多看3页，编程求出黄强最后一天看了多少页。 （13）：兄弟三人岁数和是30，大哥的岁数减2，二哥的岁数加2，弟弟的岁数乘以2 ，结果三人的岁数相同，求三人的岁数各是多少？ （14）：求1+5+9+13+…101的和。 （15）：剧场中有1000个座位，已知第一排有30个座位，以后每排增加2 个座位，1000个座位最多能排几排？最后剩余不够一排的座位有几个？如果按前边的排法再补全一排，整个剧场有多少个座位？ （16）：爸爸比儿子大30岁，四年后爸爸的年龄将是儿子的四倍，问爸爸和儿子各是多少岁？ （17）：用数组形式求1-100以内所有奇数的和。 （18）：编程模拟投掷硬币100次正反面各出现的次数。
第一章初识Pascal语言 【上机练习】 1. 输入三个数，计算并输出它们的平均值以及三个数的乘积，写出程序。 2. 输入圆的半径R，求圆的面积和周长。 3. 加法计算器：编程由键盘输入两个整数a和b，将它们的和输出到屏幕上。 4. 某梯形的上底、下底和高分别为8，12，9，求该梯形的面积。 5. 已知图圆柱体的高为12，底面圆的半r径为7，求圆柱体表面积。 6. 进入Fp，调试以下程序： program ex1_6; var s : string; begin write(‘Please input your name’); readln(s); writeln(s,’ is the best.’); end. 第二章顺序结构 【上机练习2.4】 1.已知某梯形的上底A=13，下底B=18，高H=9，求它的面积S。 2.已知某圆的半径R=139，求该圆的周长C与面积S？ 3.输入长方形的边长a,b，计算它的面积和周长，输出。 4.读入摄氏温度c，写程序将它转换成华氏温度f输出。已知f=9c/5+32 5.输入三个字符，输出每个字符的序号，然后反向输出这三个字符。(求序号用ORD函数) 6.输入一个三位自然数，把这个数的百位与个位数对调，输出对调后的自然数。 7.键盘输入两个实数，经过取整操作后，将其整数部分交换值后输出。 【上机练习2.7】 1.有三个小朋友甲乙丙。甲有50粒糖果，乙有43粒糖果，丙有13粒糖果。现在他们做 一个游戏。从甲开始，将自己的糖分三份，自己留一份，其余两份分别给乙与丙，多余的糖果自己吃掉，然后乙与丙也依次这样做。问最后甲、乙、丙三人各有书多少粒糖果？ 2.交换两个变量的值：由键盘输入两个正整数A和B，编程交换这两个变量的值。 3.编写程序把一个三位整数反转，例如358反转成853。 4.某车棚存有自行车和三轮车共65辆，它们的轮子数合计为150个，求该棚内存有的自 行车和三轮车各是多少辆？ 5.五位好朋友相聚。第一位朋友带来了很多糖块赠送给各位朋友，使每人的糖块在各自原有的基础上翻了一倍；接着第二位好友也同样向每人赠送糖块，他同样使每人的糖块在各人已有的数量上翻了一倍；第三、第四、第五位好友都照此办理。经过这样的赠送之后，每人的糖块恰好都为32块。问各位好友原先的糖块数分别是多少? 6.从键盘输入a、b、c求一元二次方程ax2+bx+c=0的两个实数根(不考虑无解的情况)。 第三章选择结构 【上机练习3.2】 1、假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤)，按每公斤1.5元计算邮费，如果超过1公斤时，其超出部分每公斤加收0.8元。请编程序计算邮件收费。 2、输入三个正整数，若能用这三个数作为边长组成三角形，就计算并输出该三角形的面积，否则输出Can't。(组成三角形的条件为：任意两边之和大于第三边)
第十二届绍兴市少儿信息学竞赛 初赛试题 （小学组PASCAL语言二小时完成） ●●全部试题答案都要求写在答卷纸上，写在试卷上一律无效●● 一、选择一个正确答案代码（A/B/C/D），填入每题的括号内（每题2分，每题只有一个正确答案，多选无分。共20分） 1. 我们要养成正确的键盘输入习惯，那么请问按正确指法击T键，应使用（） A) 右手食指B) 右手中指C) 左手食指D) 左手中指 2．每个不同的二进制数可以表示一种颜色，如果一幅图像有256种颜色，最少需要几位二进制数来表示？（） A) 8 B) 16 C) 128 D) 256 3．以下运算结果为False的是（） A) not (5>5) B) (5>=4) and (7<7) C) not (false) D) (5<4) or (5>=5) 4．在Free Pascal中运行某一程序时，返回如下图所示的错误信息，这是由于( ) A) 找不到输入文件B) 源程序存在2号语法错误 C) 输入变量的值与变量的类型不匹配D) Pascal编译器没有正确安装 5．二维数组A的每个元素是由6个字符组成的串。其行下标从0到8，其列下标从0到9，若按行优先存储，元素A[7][4]的起始地址与当A按列优先存储时（）的起始地址相同，设每个字符占一个字节。 A) A[2][8] B) A[3][9] C) A[5][7] D) A[0][8]
6.ASCII码表中的大写字母Z后有6个其他字符，接着便是小写字母。现在已知：字母Y的ASCII码为（）2，则字母a的ASCII码用十六进制表示是（） A) 61H B) 62H C) 63H D) 64H 7.下列软件不能用于浏览网页的是 ( ) A) Firefox B) Internet Explorer C) Access D) 腾讯TT 8.路人甲要拍摄一些学校风景照片,并对拍摄的照片进行处理,下列采集工具、加工软件可实现这一功能的是（） A) 数码相机、photoshop B) 扫描仪、goldwave C) 数码摄像机、goldwave D) 手机、access 9.某电影的评价如图所示： 图中的评价方式属于（） A) 个人推荐B) 统计评价C) 专家推荐D) 核心刊物评价 10.某用户微博的相关统计如图所示：
1.有一个自然数被3,4,5除都余1,被7除余2,此数最小是几? [ 121 ] 2.某老者和他的孙子同生于20世纪,他们年龄相差60岁,若把他们出生年份被3,4,5,6除,余数分别是1,2,3,4. 编程求出老者和他的孙子各自出生的年份.[ 1918, 1978 ] 3. 有一个两位数,加6后再把个位数与十位数互换,得到一个新的两位数,这样加6再互换共三次后,又得到了原来的两位数,求原来的两位数. [ 19, 52, 85 ] 4. 如果一个自然数的数字乊积加上这些数字乊和正好等于这个自然数,我们称这样的自然数为"巧数",求100以内的所有巧数. [19,29,39,49,59,69,79,89,99 ] 5. 有一个数字各不相同的三位数,如果将此数码重新排列,必可得到一个最大数和一个最小数,此两数乊差正好就是原来的三位数,求这个三位数. [ 495 ] 6. 把一个两位素数写在另一个两位素数后面,得到一个四位数.它能被这两个素数乊和的一半整除,求出所有这样的素数对. [ 53,13; 47,19; 43,23; 37,29 ] 7.从小到大找出五个素数,使后面的数比前面的数都大12. [ 5,17,29,41,53 ] 8.把一个六位平方数截成两个三位数时,这两个三位数乊差的绝对值是1(如573^2=328329),问这样的六
位平方数共有哪些? [183183,328329,528529,715716 ] 9. 编程找出不同的四位平方数对,它们由相同的数字构成. [ 1024,2401; 1089,9801; 1296,2916; 1296,9216; 1369,1936; 1764,4761; 2916,9216; 4096,9604 ] 10.编程找出所有各数字重新排列成连续数字的三位与四位平方数. [ 18^2=324; 24^2=576; 66^2=4356; 74^2=5476 ] 11.求1--200乊间,有多少个连续的自然数乊和等于555,把这样的数组分别打印出来. [ 共6组: 4-33, 30-44, 51-60, 90-95, 109-113, 184-186 ] 12.某路公共汽车包括起始站和终点站共有15个车站,有一辆车除终点外,每一站上车的乘客中都恰好有一位乘客到以后的每一站下车,为了使每一位乘客都有座位,问这辆公共汽车最少要有多少个座位?这趟车共售出多少张票? [ 56 , 105 ] 13. 求1!+(1!+3!)+(1!+3!+5!)+......+(1!+3!+5!+7!+9!)的值. [ 373349 ] 14.父子年龄乊和50岁,再过5年父亲年龄是儿子的4倍,父亲和儿子现在各多少岁?[ 43 , 7 ] 15.A,B,C三人分24个苹果,每人所得个数等于三年前他们的年龄数.如果C把所得苹果的一半平分给A 和B,然后B再把现有苹果的一半平分给A和C;最后A