pascal语言笔试题及答案Word文档格式.docx
- 文档编号:7633504
- 上传时间:2023-05-08
- 格式:DOCX
- 页数:10
- 大小:17.73KB
pascal语言笔试题及答案Word文档格式.docx
《pascal语言笔试题及答案Word文档格式.docx》由会员分享,可在线阅读,更多相关《pascal语言笔试题及答案Word文档格式.docx(10页珍藏版)》请在冰点文库上搜索。
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;
执行后,产生的结果是()。
a)m,n的值保持不变b)m,n的值进行了交换
c)m,n的值均为原来m的值d)m,n的值均为原来n的值
13、一个文件文件的基类型不可以是()。
a)文件b)数组c)实数d)记录数组
14、下列过程中,其功能是创建并打开一个文件的是()。
a)assignb)resetc)rewrited)write
15、已知有说明
consta=1;
b=2;
c=3;
d=4;
varw,x,y,z:
integer;
执行语句x:
=a;
x:
=c;
y:
=a+2;
z:
=b;
w:
=d-a+b;
后,其值相等的变量是()。
a)x,yb)x,zc)x,wd)y,z
16、程序段:
fori:
=1to5do
forj:
=2toidowriteln(‘a’);
输出字符a的个数是()。
a)10b)15c)20d)25
17、设数组a和变量i,j,k,m,n,均已说明,且各自赋值如下
i=1;
j=2;
k=3;
m=4;
forn:
=1to9doa[n]:
=n;
下面数组元素的值等于3的是()。
a)a[i*j]b)a[mdivj]c)a[a[j+k-2]]d)a[a[k-i]+3]
18、有下面程序段:
a:
=false;
b:
c:
x:
=15;
ifathenx:
=x-10
elseifbthenx:
=x-5
elseifcthenx:
=20elsex:
=25;
假设所有变量均已说明,程序运行后x的值是()。
a)25b)20c)15d)5
19、程序段
i:
=1;
repeat
n:
=i*i;
i:
=i+1;
untiln>
i
中循环体执行的次数是()。
a)1b)2c)3d)4
20、设有如下定义
typeset=(male,female);
varx,y:
set;
则下列合法的语句是()。
a)read(y,x)b)write(x,y)c)x:
=yd)x:
=su(female)
21、以下表达式结论正确的是()
a)[sun,fri]*[mon,tue]的值为[sun,fri,mon,tre]
b)xin[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、有下列程序段
fori:
=1to10do
caseimod4of
0:
ch[i]:
=’a’;
1:
=’b’;
2:
=’c’;
3:
=’d’
end;
=10downto1dowrite(ch[i]:
1);
writeln;
运行后输出结果是()。
a)abcdabcdabb)bcdabcddcbc)cbadcbadcbd)dcbadcbadc
23、有下面程序
vara:
array[1..2,1..3]ofinteger;
i,j:
begin
=1to2doforj:
=1to3doread(a[i,j]);
readln;
=1to3doforj:
=1to2dowrite(a[j,i]:
3);
writeln
end.
此程序执行时若从键盘输入123456,则输出是()。
a)123456b)142536
c)456123d)536145
24、下列符合pascal语法规则的过程或函数是()。
a)functionf(x:
integer):
b)procedurep(varx:
vary:
vary:
beginbegin
=3*x+2;
=y+1;
f:
=ywriteln(x)
end;
c)procedurep(x:
integer);
d)functionf(x:
p:
=x+10f:
=x+10
25、有如下程序
vara:
array[1..3]ofinteger;
=1to3doa[i]:
=i;
i:
j:
=3;
a[i]:
=a[j]+l;
=i+l;
j:
=j-1;
untili>
3;
=1to3dowrite(a[i]:
5);
该程序的运行结果是()。
a)432b)234c)453d)435
26、设有下列函数说明
functionfunc(n:
ifn=0thenfunc:
=0
elseifn=1thenfunc:
=2
elsefunc:
=func(n-1)+func(n-2)
表达式func(5)的值是()。
a)6b)8c)10d)12
27、有下列程序
vara,b,c:
procedurep(a,b:
varc:
integet);
=a+b+c;
=5;
b:
=8;
c:
p(a,b,c);
writeln(a:
4,b:
4,c:
4);
该程序执行后,正确的输出结果是()。
a)538b)5816c)585d)588
28、设有类型说明typearr=array[1..10]ofchar;
请阅读下面过程
procedureproc(vara:
arr);
varn,k:
=ord(‘a’)-ord(‘a’);
fork:
ifa[k]in[‘a’..’z’]thena[k]:
=chr(ord(a[k]-n);
此过程的功能是()。
A)把a中的所有小写字母变成大写字母
B)把a中的所有小写字母变成大写,大写字母变成小写
c)把a中的所有大写字母变成小写字母
d)把a中的每个字符按ascii码顺序改为它前面的第n个字符
29、按文件存储方式可以把文件分为()。
a)类型文件和文本文件b)顺序文件和随机文件
c)内部文件和外部文件d)程序文件和数据文件
30、有如下函数
functions(varf:
text):
varnum:
reset(f);
num:
=0;
whilenoteof(f)do
beginreadln(f);
=num+1end;
s:
=numend;
该函数的功能是()。
a)统计文本文件中文本的行数
b)统计文本文件中每行的字符数
c)将文件指针调整到文件的最后一行开始位置,并返回该行的字符个数
d)统计文本文件中字符总数
二、程序填空题(每空4分,共40分)
请将每空的正确答案写在试卷后[1]至[10]序号的横线上。
1、下面程序段打印101—200之间所有既能被3整除也能被8整除的数,请填空完成。
=101;
whilex<
=200do
if[1]thenwrite(x:
[2]
2、下面程序可以把从键盘输入的一个小于32767的十进制正整数转换为字符形式的十六进制数输出,请填空完成。
vark,i:
longint;
array[1..10]ofchar;
functionntoc(a:
char;
beginifa>
9thenntoc:
=[3]elsentoc:
=[4]end;
begink:
readln(a);
k:
=k+1;
s[k]:
=ntoc(amod16);
=[5];
until[6];
=kdownto1dowrite(s[i]);
3、输出图形,请填空完成。
如:
输入:
748915
输出:
574891
157489
915748
891574
489157
vari,j:
array[1..6]ofinteger;
array[1..6,1..6]ofinteger;
write(\inputthearraya:
\);
=1to6doread(a[i]);
=1to6do
=1to6dob[i,j]:
=[7];
=1toi-1dob[i,j]:
=[8];
=1to6dowrite(b[i,j]:
4、输入正整数,如1234567,输出7654321。
递归编程如下,请填空完成:
varn:
proceduredown(n:
[9];
=ndiv10;
if[10]thendown;
write(\n=:
readln(n);
down(n);
请将每空的正确答案写在答题卡上[1]至[10]序号的横线上。
[1]_______________________[2]_______________________
[3]_______________________[4]_______________________
[5]_______________________[6]_______________________
[7]_______________________[8]_______________________
[9]_______________________[10]_______________________
pascal语言笔试试题答案
一、单选题
二、程序填空题
[1](ymod3=0)and(xmod8=0)[2]x:
=x+1
[3]chr(a+55)[4]chr(a+ord(\0\)或chr(a+48)
[5]adiv16[6]a=0
[7]a[j-i+1][8]a[7-i+j]
[9]write(nmob10)[10]n<
>
0
窗体底端
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- pascal 语言 笔试 答案