急求大学的PASCAL语言试卷

Question

只要是大学的PASCAL语言试卷就行，要附加答案，满分100
最好是用WORD做好的文档

Answer 1

一. 选择题:((1)～(40)题每题1分,(41)～(50)题每题2分,共60分下列各题A)、B)、C)、D)四 个选项中只有一个选项是正确的, 请将正确选项涂写在答题卡相应位置上,答在试卷上不得分

1.微型计算机的性能主要取决于 A)内存 B)中央处理器 C)硬盘 D)显示卡

2.有一个数值152,它与十六进制数6A相等,那么该数值是 A)二进制数 B)八进制数 C)十进制数 D)四进制数 3.使用超大规模集成电路制造的计算机应该归属于 A)第一代 B)第二代 C)第三代 D)第四代

4.已知英文字母a的ASCll代码值是十六进制数61H,那么字母d的ASCll 代码值是 A)34H B)54H C)24H D)64H

5.一片存储容量1.44MB的软磁盘,可以存储大约140万个 A)ASCll字符 B)中文字符 C)磁盘文件 D)子目录

6.在MS-DOS环境中同时按下[Ctr]和[Break]两个键,其作用是 A)终止当前操作B)暂停当前操作 C)关机 D)热启动

7.将二进制数10000001转换为十进数应该是 A)127 B)129 C)126 D)128

8.磁盘处于写保护状态,那么磁盘中的数据 A)不能读职,不能删改,也不能写入新数据 B)可以读出,不能删改,也不能写入新数据 C)可以读出,可以删改,但不能写入新数据 D)可以读出,不能删改,但可以写入新数据

9.微型机启动后,DOS提示符是C:\>,现提示符变为C:\USER>, 则说时刚执行过命命 A)PROMPT B)PROMPT USER C)PROMPT $P$G D)CD USER

10.MS-DOS文件系统目录的组织形式属于 A)关系型结构 B)网络型结构 B)树型结构 D)直线型结构

11.应用软件系统TH的总容量大约1MB,其主要程序文件存放在C:\TH 目录中,而数据文件存放在 C:\TH\DATA目录中.如要将它们完整地复制到A盘, 应该使用的命令是 A)XCOPY C:\TH A:\ B)XCORY C:\TH A:\ /S C)XCOPY C:\TH A:\ /M D)XCOPY C:\TH A:\ /P

12.执行COPY A.TXT+B.TXT这个DOS命令后,得到的磁盘文件是 A)A.TXT B)B.TXT C)AB.TXT D)A+B.TXT

13.在MINKOWS中,将一个应用程序窗口最小化之后,该应用程序 A)仍在后台运行 B)暂时停止运行 C)完全停止运行 D)出错

14.CD-ROM属于 A)感觉媒体 B)表示媒体 C)表现媒体 D)存储媒体

15.在因特网(lnterner)中,电子公告板的缩写是 A)FTP B)WWW C)BBS D)E-mail

16.设x.y.z和k都是int型变量,则执行表达式:x=(y=4,z=16,k=32)后,x的值为 A)4 B)16 C)32 D)52

17.设有如下的变量定义: int i=8,k,a,b; unsigned long w=5; double x=1.42,y=5.2 则以下符合C语言语法的表达式是 A)a+=a-=(b=4)*(a=3) B)x%(-3) C)a=a*3=2 D)y=floa(i)

18.假定有以下变量定义: int k=7,x=12 则能使值为3的表达式是 A)x%=(k%=5) B)x%=(k-k%5) C)x%=k-k%5 D)(x%=k)-(k%=5)

19.以下叙述正确的是 A)输入项可以是一个实型常量，如： scanf("%f".3.5); B)只有格式控制，没有输入项，也能正确输入数据到内存，例如： scanf("a=%d,b=%d); C)当输入一个实型数据时，格式控制部分可以规定小数点后的位数，例如： scanf("%4.2f",&f); D)当输入数据时，必须指明变量地址，例如： scanf("%f.&f);

20.设x和y均为int型变量，则以下语句：x+=y; y=x-y; x-=y;的功能是： A)把X和Y按从大到小排列 B)把X和Y按从小到大排列 C)无确定结果 D)交换X和Y中的值

21.以下程序的输出结果是 A) 10 10 B) 12 12 C) 11 10 D) 11 13 main() { int a=12,b=12; printf("%d\n",--a,++b); }

22.以下程序运行后，输出结果是 A)cde B)字符C的ASCII码值 C)字符C的地址 D)出错 main() { char *s="abcde"; s+=2; printf("%ld\n",s);

23.以下程序输出结果是 A)7 B)6 C)5 D)4 main() { int m=5; if(m + + > 5) printf("%d\n,m); else printf("%D\n,m- -); }

24.当a=1,b=3,c=5,d=4时，执行下面一段程序后，x的值为 A)1 B)2 C)3 D)6 if(a<b) if(c<d) else if(a<c) if(b<d) x=2; else x=3; else x=6; else x=7;

25.在执行以下程序时，如果从键盘上输入：ABCdef〈回车〉，则输出为 A)ABCdef B)abcdef C)abc D)DEF # include main() { chsr ch; while((ch=getchar())!='\n') { if(ch>='A'&& ch<='Z')ch=ch+32;

二、填空题(每空2分,共40分)： 请将每空的正确答案写在答题卡1～20序号的横线上，答在试卷上不得分。

1.DOS中的自动批处理文件的全名是___1___。

2.在DOS启动盘中，除COMMAND.COM外，还有两必备的系统文件，它们是MSDOS.SYS(或IBMDOS.COM) 与___2___。

3.在DOS下，要将当前目录中AB.TXT文件设置为只读属性，应该使用的完整命令行是___3___。

4.在DOS下，要查看当前目录中所有批自理文件的总字节数，应该使用的完整命令行是___4___。

5.计算机病毒除有破坏性、潜伏性和激发性外，还有一个最明显的特性是___5___。

6.已知有类型arr=ARRAY[1..16]OF STRING;arr型数组a中存放着从第1届到第16届足球世界 杯冠军国家的名字, 下面的函数可求出历届世界杯比赛共有几个国家曾获得过世界杯冠军, 请空完成. FUNCTION numberofcountry(a:arr):lnteger; VAR k,j,s:lnteger; mult:Boolean; BEGIN ___6___; FOR j:=2 TO 16 DO BEGIN k:=1; mult:=False; WHILE NOT mult AND ___7___ DO IF ___8___ THEN mult:=True ELSE k:=k+1; IF NOT mult THEN s:=___9___ END; numberofcountry:=s END;

7.有一个数列，其第1、2个数都是大于0的一位整数，将这两个数相乘得乘积x，若x<10，则x为 数列的第3个数；若x≥10，则把x的十位数作为数列的第3个数，x的个位数作为数列的第4个数， 再把已形在的数列的最后二个数相乘，按上述规则构成面的数，依此类推。 例如若前两个数是6，3，则数列为:6,3,1,8,8,6,4,2,4,8,3,2,6,1,2,2,4,8,3,2,6...... 下面的程序以6，3，为前两个数，产生并输出此数列的前n个数(n由键盘输入)。请填空完成。 PROGRAM pll(lnput,Output); VAR a,b,k,n,x:lnteger; BEGIN Readln(n); a:=6; b:=3; k:=2; Write(a:3,b:3); REPEAT x:=a*b; IF x>=10 THEN BEGIN a:=___10___; b:=___11___; k:=k+2; Write(b:3) END ELSE BEGIN a:=b; b:=x; k:=k+1; Write(x:3) END UNTIL ___13___; Writeln END.

( 8) 在Pascal 语言中不能用read 过程直接从键盘输入一个集合. 下面的过程readset 可实现这一目的.其中t1的类型是t1=SET OF 'A'..'Z';readset的作用是从键盘接收用[] 括起的大写字母,并放入集合变量a中,而滤去其它字符,遇到字符'] '时结束.若输入的 第一个字符不是'[',则a被置为空集,并输出'error input!'. 例如:若输入[A,B,ACD,M;%?+V]则a为['A','B','C','D','M','V'].请填空完成. PROCEDURE readset(VAR a:t1); VAR ch:Char; BEGIN a:= 14 ———; IF ch='['THEN BEGIN REOEAT Read(ch); IF (ch>='A')AND (ch<='Z')THEN a:= 15 ——— UNTIL 16 ———; Readln END ELSE BEGIN Readln; Writeln('error input!') END END;

(9)已知有类型说明: TYPE t1=^rec; rec=RECORD data:lntetger; next:t1 END; 设head为t1型变量,并指向一个不少于2个节点的单链表.过程pl 可删除head所指的链表中 有重复节点(即若有多个节点的data域的值相等,则只保留最前面的一个节点). 例如:若原链表为 → → → → → → │ │ │ │ │ │ head —┘ ┘ ┘ ┘ ┘ ┘ → → │ │ (a) ┘ ┘ 则执行p1(head);后链表为: → → → → → │ │ │ │ (b) head ┘ ┘ ┘ ┘ 请填空完成过程p1 PROCEDURE p1(head:t1) VAR q,p:t1; BEGIN 17 WHILE head〈〉 ——— DO BEGIN p:= head; q:=p^.next; WHILE q〈〉NIL DO IF q^.data=head^.datd THEN BEGIN 18 ———:=q^.next;19 Dispose(———); q:=p^.next END ELSE BEGIN p:=p^.next;;20 q:= ——— ENT; head:=head^.next END; END;

1999年4月全国计算机等级考试二级笔试试卷 基础知识和Pascal语言程序设计

答案及评分标准

一、选择题((1)～(40)题每题1分,(41)～(50)题每题2分,共60分) 1.B 2.B 3.D 4.D 5.A 6.A 7.B 8.B 9.D 10.C 11.B 12.A 13.A 14.D 15.C 16.A 17.B 18.C 19.C 20.B 21.B 22.C 23.B 24.D 25.C 26.A 27.B 28.B 29.A 30.C 31.A 32.C 33.D 34.C 35.D 36.C 37.B 38.D 39.A 40.B 41.D 42.B 43.A 44.C 45.A 46.A 47.C 48.D 49.A 50.C

二、填空题(每空2分，共40分)(所有字母都允许大、小写或大小写混合)

1.AUTOEXC.BAT 2.IO.SYS或IBMBIO. COM 3.ATTRIB AB.TXT +R 或 ATTRIB+R AB.TXT 4.DIR *.BAT或DIR *.BAT/P或DIR *.BAT/W 或DIR *.BAT/W/P或DIR *.BAT/P/W 5.传染性或传播性 6.a=1234 b=5 或 a=1234<CR> b=5 7.ABCDCD 8.024 9.49 10.AB 11.*x t 12.5 2 13.r+b[k] 或 b[k]+r 或 r+*b(b+k) 或 *(b+k)+r *x 14.struct list *next int data 说明：以上答案17和18的次序可以互换。 15."bi.dat" fp

参考资料：http://hi.baidu.com/iamcay