《pascal语言笔试题及答案》由会员分享，可在线阅读，更多相关《pascal语言笔试题及答案（13页珍藏版）》请在金锄头文库上搜索。
1、pascal语言笔试题及答案pascal语言笔试题及答案一、单选题(每小题2分，共60分)1、在结构化程序设计中所说的程序的三种基本结构是指()。a) 主函数、函数、过程b)顺序、选择、循环c)程序首部、说明部分、语句部分d)while、repeat、for2、以下各组运算中运算优先级最低的一组是()。a) +，-，orb) *,/c) div, mod,andd) =, 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、下列表达式中正
2、确的是()。a) 8/2 mod 2b)not(1=0) and(32)c)a+2d) 2+false5、当n为任意正奇数时，值总为true的表达式是()。a) n mod 2= 0 b) n div 2=1c)n-(n div 2)=1 d)n-trunc(n/2)*2=16、表达式 pred(chr(ord(a )+4)的值是()。a) c b)d c)69d) 707、下列表达式值为5的是()。a) pred(8 div2)b) abs(round(23/4)c) su(trunc(22/(26 mod7)d) (8 mod 5)*3+1) div 38、下面变量说明中错误的是()。a)
3、 var s:set of char;b)var s:set of integer;c) var s:set of1.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）在执行过程中初值和终值不
4、会改变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）assignb）resetc） rewrited）write15、已知有说明const a=1; b=2; c=3; d=4;var w,x,y,z:i
5、nteger;执行语句 x:=a; x:=c; y:=a+2; z:=b;w:=d-a+b;后，其值相等的变量是()。a) x,yb)x,zc)x,wd)y,z16、程序段：for i:=1 to 5dofor j:=2 to i dowriteln( a );输出字符a的个数是()。a)10b)15c)20d) 2517、设数组a和变量i,j,k,m,n,均已说明，且各自赋值如下i=1; j=2; k=3; m=4； for n:=1 to 9do an:=n;下面数组元素的值等于3的是()。a)ai*jb) am div jc)aaj+k-2d) aak-i+318、有下面程序段：a:=f
6、alse; 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)25b)20c)15d) 519、程序段i： =1;repeatn:二i*i;i:二i+1;untilni中循环体执行的次数是()。a) 1b)2c)3d)420、设有如下定义type set=(male,female);var x,y:set;则下列合法的语句是()。a)read(y,x)b)write(x,y)c)x:二yd) x:=su(f
7、emale)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,tued) mon -mon,tue 的值为 tue22、有下列程序段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 dowrite(chi:1); writeln;运行后输
8、出结果是()。a) abcdabcdabb) bcdabcddcb c) cbadcbadcb d)dcbadcbadc23、有下面程序var a:array1.2,1.3of integer;i, j:integer;beginfor i:=1 to 2do for j:=1 to 3 doread(ai,j);readln;for i:=1 to 3do for j:=1 to 2 dowrite(aj,i:3);writelnend.此程序执行时若从键盘输入1 2 3 4 56,则输出是()。a) 1 2 3 4 5 6b) 1 4 2 5 3 6c) 4 5 6 1 23d) 5 3
9、6 1 4 524、下列符合pascal语法规则的过程或函数是()。a) function f(x:integer):integer;b) procedurep(varx:integer):integer;vary:integer;var y:integer;beginbeginy:=3*x+2;x:=y+1;f:=ywriteln(x)end;end;c) procedurep(x:integer);d) function f(x:integer);beginbeginp:=x+10f:=x+10end;end;25、有如下程序vara:array1.3 of integer;i,j:int
10、eger;beginfor i:=1 to3doai:=i;i:=1; j:=3;repeatai:=aj+l;i:=i+l;j:=j-1;untili3;for i:=1 to 3do write(ai:5);end.该程序的运行结果是()。a) 4 32b) 23 4c)4 5 3d)4 3 526、设有下列函数说明functionfunc(n:integer):integer;beginif n=0 thenfunc:=0else if n=1then func:=2else func:=func(n-1)+func(n-2)end;表达式func(5)的值是()。a) 6b)8c)10
11、d)1227、有下列程序var a,b,c:integer;procedure p(a,b:integer; varc: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 38b) 5 816c) 5 85d) 5 8 828、设有类型说明type arr二array1.10 ofchar;请阅读下面过程procedure proc(var a:arr);var n,k:integer;beginn:=ord( a )-ord( a );
12、for k:=1 to 10 doif ak in a.z thenak:=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:=
13、0;while noteof(f) dobegin readln(f); num:=num+1end;s:=num end;该函数的功能是()。a) 统计文本文件中文本的行数b) 统计文本文件中每行的字符数c) 将文件指针调整到文件的最后一行开始位置，并返回该行的字 符个数d) 统计文本文件中字符总数二、程序填空题(每空4分，共40分)请将每空的正确答案写在试卷后1 至10序号的横线上。1、下面程序段打印101200之间所有既能被3整除也能被8整 除的数，请填空完成。x:=101;while x9 then ntoc: = 3 else ntoc:= 4 end; begin k:=0; re
14、adln(a); repeatk:=k+1;sk:= ntoc(a mod 16); a:= 5;until 6 ;for i:= k downto 1do write(si); writeln end.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 57var i,j:integer;a:array1.6 of integer;b:array1.6, 1.6 of integer;beginwrite(input the arraya:);for i:=1 to 6 do read(a
