pascal语言笔试试题答案.docx

girl873pascal语言笔试题及答案 回复 1 楼 2013-01-21pascal语言笔试题及答案 一、单选题（每小题2分，共60分）1、在结构化程序设计中所说的程序的三种基本结构是指（ ）。 a）主函数、函数、过程 b） 顺序、选择、循环c）程序首部、说明部分、语句部分 d） while、repeat、for2、以下各组运算中运算优先级最低的一组是（ ）。a) +，-，or b) *, / c) div, mod, and d) =, in3、数学表达式sin(60o)的正确pascal表达式是 ( )。a) sin(60) b) sin(3.14159*60) c) sin(3.14159*60/180) d) sin(60*3.14159/360)4、下列表达式中正确的是 ( )。 a) 8/2 mod 2 b) not(1=0) and (32) c) a+2 d) 2+false5、当n为任意正奇数时，值总为true的表达式是( )。 a) n mod 2= b) n div 2=1 c) n-(n div 2)= d) n-trunc(n/2)*2=16、表达式pred(chr(ord(a )+4)的值是 ( )。a) c b) d c) 69 d) 707、下列表达式值为5的是( )。a) pred(8 div 2) b) abs(round(23/4)c) succ(trunc(22/(26 mod 7) d) (8 mod 5)*3+1) div 38、下面变量说明中错误的是（ ）。a) var s:set of char; b) var s:set of integer;c) var s:set of 1.100; d) var s:set of (sun,mon,tue,wed,thu,fri,sat);9、不能作为for语句循环控制变量的是下列哪种类型变量（ ）。 a) 整型 b) 布尔型 c) 实型 d) 字符型10、至少被执行一次的循环语句是（ ）。a) for语句 b) repeat-until语句c) while语句 d) for、repeat-until和while语句11、下面关于for循环不正确的叙述是（ ）。 A) 在循环体中不能改变循环控制变量的值 B) 在执行过程中初值和终值不会改变 c) 分为递增型和递减型两种 d) 循环控制变量不必在程序的说明部分说明12、设m，n均为整数类型变量，且两者的数值均不大于1000。下面语句m:=m+n; n:=m-n; m:=m-n; 执行后，产生的结果是（ ）。a）m，n的值保持不变 b）m，n的值进行了交换c）m，n的值均为原来m的值 d）m，n的值均为原来n的值13、一个文件文件的基类型不可以是（ ）。 a) 文件 b) 数组 c) 实数 d) 记录数组 14、下列过程中，其功能是创建并打开一个文件的是（ ）。a) assign b) reset c) rewrite d) write15、已知有说明 const a=1; b=2; c=3; d=4;var w,x,y,z:integer;执行语句 x:=a; x:=c; y:=a+2; z:=b; w:=d-a+b; 后，其值相等的变量是（ ）。a) x,y b) x,z c) x,w d) y,z16、程序段： for i:=1 to 5 dofor j:=2 to i do writeln(a);输出字符的个数是（ ）。a) 10 b) 15 c) 20 d) 2517、设数组a和变量i,j,k,m,n,均已说明，且各自赋值如下 i=1; j=2; k=3; m=4； for n:=1 to 9 do an:=n;下面数组元素的值等于的是 （ ）。a) ai*j b) am div j c) aaj+k-2 d) aak-i+318、有下面程序段： a:=false; b:=false; c:=false; x:=15;if a then x:=x-10else if b then x:= x-5else if c then x:=20 else x:=25;假设所有变量均已说明，程序运行后x的值是（ ）。a) 25 b) 20 c) 15 d) 19、程序段i：=1;repeatn:=i*i; i:=i+1;until ni中循环体执行的次数是（ ）。a）1 b）2 c）3 d）420、设有如下定义type set=(male,female);var x,y:set;则下列合法的语句是（ ）。a) read(y,x) b) write(x,y) c) x:=y d) x:=succ(female)21、以下表达式结论正确的是（ ）a) sun,fri*mon,tue 的值为 sun,fri,mon,treb) x in i,j,k,m 等价于 (x=i) or (x=j) or (x=k) or (x=m)c) sun,sat-mon,tue 的值为 sat,mon,tue d) mon-mon,tue 的值为 tue 22、有下列程序段 for i:=1 to 10 docase i mod 4 of0: chi:=a;1: chi:=b;2: chi:=c;3: chi:=dend;for i:=10 downto 1 do write(chi:1); writeln;运行后输出结果是（ ）。a)abcdabcdab b) bcdabcddcb c) cbadcbadcb d) dcbadcbadc23、有下面程序var a:array1.2,1.3of integer;i,j:integer;beginfor i:=1 to 2 do for j:=1 to 3 do read(ai,j);readln;for i:=1 to 3 do for j:=1 to 2 do write(aj,i:3);writelnend.此程序执行时若从键盘输入1 2 3 4 5 6，则输出是（ ）。a) 1 2 3 4 5 6 b) 1 4 2 5 3 6c) 4 5 6 1 2 3 d) 5 3 6 1 4 524、下列符合pascal语法规则的过程或函数是（ ）。a）function f(x:integer):integer; b) procedure p(var x:integer):integer;var y:integer; var y:integer;begin beginy:=3*x+2; x:=y+1;f:=y writeln(x)end; end;c) procedure p(x:integer); d) function f(x:integer);begin beginp: =x+10 f:=x+10end; end;25、有如下程序var a:array1.3 of integer;i,j:integer;beginfor i:=1 to 3 do ai:=i;i:=1; j:=3;repeatai:=aj+l; i:=i+l; j:=j-1;until i3;for i:=1 to 3 do write(ai:5);end.该程序的运行结果是（ ）。a) 4 3 2 b) 2 3 4 c) 4 5 3 d) 4 3 526、设有下列函数说明function func(n:integer):integer;beginif n=0 then func:=0else if n=1 then func:=2else func:=func(n-1)+func(n-2)end;表达式func(5)的值是（ ）。a) 6 b) 8 c) 10 d)1227、有下列程序var a,b,c:integer;procedure p(a,b:integer; var c:integet);beginc:=a+b+c;end;begina:=5;b:=8;c:=3;p(a,b,c); writeln(a:4,b:4,c:4);end.该程序执行后，正确的输出结果是（ ）。a) 5 3 8 b) 5 8 16 c) 5 8 5 d) 5 8 828、设有类型说明type arr=array1.10 of char;请阅读下面过程procedure proc(var a:arr);var n,k:integer;beginn:=ord(a)-ord(a);for k:=1 to 10 doif ak in a.z then ak:=chr(ord(ak-n);end;此过程的功能是( )。 A) 把a中的所有小写字母变成大写字母 B) 把a中的所有小写字母变成大写，大写字母变成小写 c) 把a中的所有大写字母变成小写字母 d) 把a中的每个字符按ascii码顺序改为它前面的第n个字符 29、按文件存储方式可以把文件分为（ ）。a）类型文件和文本文件 b）顺序文件和随机文件c）内部文件和外部文件 d）程序文件和数据文件30、有如下函数function s(var f:text): integer;var num:integer;beginreset(f); num:=0;while not eof(f) dobegin readln(f); num:=num+1 end;s:=numend;该函数的功能是( )。a）统计文本文件中文本的行数 b）统计文本文件中每行的字符数c）将文件指针调整到文件的最后一行开始位置，并返回该行的字符个数d）统计文本文件中字符总数二、程序填空题(每空4分，共40分)请将每空的正确答案写在试卷后1至10序号的横线上。 1、下面程序段打印101200之间所有既能被3整除也能被8整除的数，请填空完成。 x:=101;while x9 then ntoc:= 3 else ntoc:= 4 end;begink:=0; readln(a);repeatk:=k+1;sk:= ntoc(a mod 16); a:= 5 ; until 6 ;for i:= k downto 1 do write(si);writelnend.3、输出图形, 请填空完成。如:输入: 7 4 8 9 1 5输出: 7 4 8 9 1 55 7 4 8 9 11 5 7 4 8 99 1 5 7 4 88 9 1 5 7 44 8 9 1 5 7var i,j:integer;a:array1.6 of integer;b:array1.6, 1.6 of integer;beginwrite(input the array a:);for i:=1 to 6 do read(ai);for i:=1 to 6 dobeginfor j:=1 to 6 do bi,j:= 7 ;for j:=1 to i-1 do bi,j:= 8 ;end;for i:=1 to 6 dobeginfor j:=1 to 6 do write(bi,j:3);writelnend;end.4、输入正整数，如1234567，输出7654321。递归编程如下，请填空完成：var n:longint;procedure down(n:integer);begin 9 ;n:=n div 10;if 10 then down;beginwrite(n=:); readln(n);down(n);end.请将每空的正确答案写在答题卡上1至10序号的横线上。 1 _ 2 _3 _ 4 _5 _ 6 _7 _