1.[单选题]有下面程序段： a:=false;b:=false;c:=false; x:=15; if a then x:=x-10 else if b then x:=x-5 else if c then x:=20 else x:=25; 假设所有变量均已说明，程序运行后x的值是（ ） 。
A.25 B.20 C.15 D.5
正确答案:——A——
2.[单选题]设k为整型变量,且有以下程序段: if(k＜=10)and(k＞0) then if k＞5 then if k＜8 then x:=0 else x:=1 else if k＞2 then x:=3 else x:=4 用case语句改写上述程序,执行效果一样的是( )。
A.case k of 1,2:x:=4; 3,4,5:x:=3; 8,9,10:x:=1; 6,7:x:=0 end
B.case k of 1:x:=4; 2,3,4,5:x:=3; 8,9,10:x:=1; 6,7:x:=0 end
C.case k of 1,2:x:=4; 3,4,5:x:=3; 9,10:x:=1; 6,7,8:x:=0 end
D.case k of 1,2,3:x:=4; 4,5:x:=3; 8,9,10:x:=1; 6,7:x:=0 end
正确答案:——B——
3.[单选题]设有如下说明:var q,p:^integer; 且已知有过程调用new(p);new(q);则下面语句正确的是
A.read(p,q);
B.p^:=q^
C.p:=p+1
D.p:=p+q;
正确答案:——B——
4.[单选题]下列常量说明中,合法的是 （ ）。
A.const color=red..blue
B.const const=10*5
C.const x1:=3.9
D.const abc=‘abc‘
正确答案:————
5.[单选题]字符串‘abcd‘和字符串‘dcba‘进行比较,如果让比较的结果为真,应选用关系运算符( )
A.>
B.<
C.=
D.>=
正确答案:————
6.[单选题]已知a,b,c,d是类型简单变量,且都已有互不相同的值,执行下列语句b:=a; a:=c; d:=a; d:=b;后,其值相等的变量是( )。
A.a,d
B.a,c
C.c,b
D.b,a
正确答案:————
7.[单选题]设有说明type byte=0..7;
word=0..15;
num=real;
var a:byte; b,c:word; d:integer; e:num f:char;
则下列中不合法的赋值语句是（ ）。
A.b:=a;
B.d:=c;
C.e:=d;
D.a:=f;
正确答案:————
8.[单选题]已知英文字母a的ASCll代码值是十六进制数61H,那么字母d的ASCll 代码值是：
A.34H
B.54H
C.24H
D.64H
正确答案:————
9.[单选题]设x和y是同一种枚举类型变量,则下列语句中合法的是（ ）
A.x:=ord(y)
B.x:=y
C.read(x,y)
D.write(t,y)
正确答案:————
10.[单选题]下列中正确的关系表达式是（ ）
A.‘a‘＜100
B.23.5＜20
C.23＜46and72＞8
D.5female
正确答案:————
11.[单选题]假定有以下变量定义: 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)
正确答案:————
12.[单选题]以下属非法用户自定义标识符的是（ ）
A.date
B.dir
C.list
D.type
正确答案:————
13.[单选题]下列循环语句所构成的循环,共执行循环体的次数是（ ）。 i:=2.5; repeat i:=j0.5; write(1) until(i＞3);
A.0
B.1
C.2
D.3
正确答案:————
14.[单选题]下列for语句构成的循环,能执行且有输出的是（ ）。
A.for i:=1 downto 5 do write(i)
B.for i:=5 to 1 do write(i)
C.for i:=5 to 5 do write(i)
D.for i:=0.5 to 5.5 do write(i)
正确答案:————
15.[单选题]若有说明: var a:array[1..10]of array[1..10]of integer; 下列语句中正确的是（ ）。
A.a[a[2,4]]:=100；
B.a[8][12]:=100；
C.a[0,2,4]:=100
D.a[2][4]:=100；
正确答案:————
16.[单选题]下面的程序从键盘接收任意6个数放入数组a中,假设这6个数为:814256,则要输出一个具有如下内容的方阵. 14256 681425 568142 256814 425681 142568 program exam(input,output); var a:array[1..6]of integer; i,j,k:integer; begin for i:=1 to 6 do read(______); readln; for i:=1 to 6 do begin if i=1 then k:=1 else k:=_______; for j:=1 to_______do begin write(a[k]:2); if k=6 then k:=1 else k:=__________ end; writeln end end
A.a[k],6-i,6,k+1
B.a,6-i,6,k-1
C.a,6-i,6,k+1
D.a,6+i,6,k+1
正确答案:————
17.[单选题]若使a=1,b=2,c=3,d=5,e=6,提供输入数据格式为 12 34 56 其中表示回车符,则应选取用输入语句( )。
A.readln(a.b);readln(c,d);readln(e,f)
B.readln(a,b,c);readln(d,e,f)
C.readln(a,b,c,d,e,f)
D.readln(a,b,c);readln(d,e)
正确答案:————
18.[单选题]当a=1,b=3,c=5,d=4时，执行下面一段程序后，x的值为：if(a＜d)if(c＜d)elseif(a＜c)if(b＜d) x=2;else x=3;else x=6;else x=7;
A.1
B.2
C.3
D.6
正确答案:————
19.[单选题]设有变量说明:var aac,g,a,j,k);则函数succ(a)的取值是（ ）。
A.g
B.3
C.j
D.b
正确答案:————
20.[单选题]下列类型的变量中,不能用write语句直接输出的变量是（ ）。
A.布尔型变量
B.枚举型变量度
C.整型变量度
D.字符变量
正确答案:————
21.[判断题]readln语句用于从外部设备(如键盘)上顺序读入数据，并将这些数据依次赋值给变量表中相应的变量.
A.错误
B.正确
正确答案:————
22.[判断题]读语句变量表中，变量的类型仅可以是整型、实型、字符型和枚举型。
A.错误
B.正确
正确答案:————
23.[判断题]在Turbo Pascal语言中将字符串类型视为标准的数据类型，其类型标识符为STRING。
A.错误
B.正确
正确答案:————
24.[判断题]eoln函数的功能是若文件指针指向行结束符或文件结束符，则返回true，否则返回false。
A.错误
B.正确
正确答案:————
25.[判断题]记录类型是一种用户自定义的复杂构造类型，该类型的各个分量具有不同的类型，甚至可以是另外一种记录类型。
A.错误
B.正确
正确答案:————
福师《高级语言程序设计》在线作业二
1.[单选题]有变量定义如下： type weekday=(mon,tue,wed,thu,fri,sat,sun); workday=mon..fri; var day1:weekday; day2:workday; 下列不正确的语句是（ ）。
A.day1:=wed
B.day2:=wed
C.day1:=day2
D.day2:=sun
正确答案:——D——
2.[单选题]表达式true and not odd(-202)＜(7-3＜=4)的值是（ ）。
A.true
B.false
C.0
D.1
正确答案:——B——
3.[单选题]能正确输出0.1,1.1,2.1,3.1,4.1,5.1的循环是（ ）。
A.while(i>0.1)and(i<=5.1)do
begin
write(i:4:1);
i:=i+1
end;
writeln
B.repeat
i:=0.1;
writ(i:4:1);
i:=i+1
until i>5.1;
writeln
C.i:=0.1;
repeat
write(i:4:1);
i:=i+1
until i>5.1;
writeln
D.for i:=0.1 to 5.1 do
write(k:4:1);
writeln
正确答案:——C——
4.[单选题]有下列程序 program test(input,output); var s:integer; ch:char; count:array[‘a‘..‘z‘]of integer; begin for ch:=‘a‘to‘z‘do count[ch]:=0; read(ch); while not eoln do begin if(ch＞=‘a‘)and(ch＜=‘z‘)then count[ch]:=count[ch]+1; read(ch) end; s:=0; for ch:=‘b‘ to ‘y‘ do s:=s+count[ch]; writeln(s) end 运行程序,输入一行正文‘weareproudofourcountry!‘则程序的输出是（ ）。
A.10
B.22
C.11
D.20
正确答案:————
5.[单选题]下列语句对数组num进行说明,其中不正确的是（ ）。
A.var num:array[boolean]of boolean;
B.var num:array[10,10]of boolean;
C.var num:array[0..8]of array[5..10] of integer;
D.var num:array[-1..5,‘a‘..‘e‘] of real;
正确答案:————
6.[单选题]设有集合运算[3,2,1][5,3,1],则正确的与结果是
A.[5,1..3]
B.[8,5,2]
C.[5,2]
D.[3,1]
正确答案:————
7.[单选题]要用一个数组元素存放某班30人3门课的考试成绩(考试成绩保留1位小数), 下面哪个说明中的数组可以存放这些数据（ ）。
A.var s:array[1..3,1..30] of integer;
B.var s:array[‘a‘..‘c‘,1..30] of real;
C.var s:array[1..30,boolean] of real;
D.var s:array[1..30,‘a‘..‘c‘] of integer;
正确答案:————
8.[单选题]下面关于文件变量的叙述中哪个是错误的
A.不能用赋值语句给文件变量赋值
B.若以文件变量作为子程序的形式参数, 则只能作为变参,不能作为值参
C.文件变量的类型只能是文件类型
D.文件变量可以作为函数的返回值
正确答案:————
9.[单选题]以下属非法用户自定义标识符的是（ ）
A.date
B.dir
C.list
D.type
正确答案:————
10.[单选题]设有如下说明: const a=1;b=2;c=3; var x:array[1..15] of integer; 且已知x[1]=1;x[2]=7;x[3]=9;x[4]=1;x[5]=6; 则表达式x-1＞x[5])and(x[c]/c＜＞0) or not(x[a+b]＞(a+b))的值是（ ）。
A.true
B.false
C.0
D.1
正确答案:————
11.[单选题]main(){ int a=12,b=12;printf("%d\n",--a,++b);}输出结果是：
A.10 10
B.12 12
C.11 10
D.11 13
正确答案:————
12.[单选题]假定有以下变量定义: 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)
正确答案:————
13.[单选题]已知r1,r2是实型变量,i1,i2是整型变量,下列中错误的赋值语句是（ ）。
A.i2:=i1*i2 div i1
B.i1:=i1/i2
C.r2:=3/5*sqr(r1*r2)
D.r1:=r2/i1
正确答案:————
14.[单选题]当a=1,b=3,c=5,d=4时，执行下面一段程序后，x的值为：if(a＜d)if(c＜d)elseif(a＜c)if(b＜d) x=2;else x=3;else x=6;else x=7;
A.1
B.2
C.3
D.6
正确答案:————
15.[单选题]已知type color=(red,yellow,blue);则下列类型定义中不合法的是 （ ）。
A.type op=(1,2,3,4);
B.type op=(1..4);
C.type op=(‘a‘,‘b‘,‘c‘,‘d‘);
D.type op=(a,b,c,d);
正确答案:————
16.[单选题]表达式trunc(-sqrt(sqr(17mod5)*2*(15div2)*sqr(1/2)))的值是（ ）。
A.1
B.-3
C.5
D.12
正确答案:————
17.[单选题]已知a,b,c,d是类型简单变量,且都已有互不相同的值,执行下列语句b:=a; a:=c; d:=a; d:=b;后,其值相等的变量是( )。
A.a,d
B.a,c
C.c,b
D.b,a
正确答案:————
18.[单选题]已知有如下说明:var a:array[-3..3]of integer; k,i:integer; 程序段: k:=0; for i:=-3 to 3 do if i＜0 then a:=k+1 else a:=k+2; writeln(a[3]-a[-3]); 输出的是（ ）。
A.10
B.7
C.2
D.1
正确答案:————
19.[单选题]一个记录的域标识符不能和下列内容相同的是
A.常量标识符
B.该记录的记录名
C.同层的其它域标识符
D.不同层的域标识符
正确答案:————
20.[单选题]下面语句正确的是：
A.COLOR：=’GREEN’；
B.WRITELN（GREEN）；
C.WRITELN（COLOR）；
D.IF RED30 AND 70》15 C）15《30《50 D）70 NOT 70》20
正确答案:————
21.[判断题]记录类型是一种用户自定义的复杂构造类型，该类型的各个分量具有不同的类型，甚至可以是另外一种记录类型。
A.错误
B.正确
正确答案:————
22.[判断题]readln语句用于从外部设备(如键盘)上顺序读入数据，并将这些数据依次赋值给变量表中相应的变量.
A.错误
B.正确
正确答案:————
23.[判断题]eoln函数的功能是若文件指针指向行结束符或文件结束符，则返回true，否则返回false。
A.错误
B.正确
正确答案:————
24.[判断题]读语句变量表中，变量的类型仅可以是整型、实型、字符型和枚举型。
A.错误
B.正确
正确答案:————
25.[判断题]在Turbo Pascal语言中将字符串类型视为标准的数据类型，其类型标识符为STRING。
A.错误
B.正确
正确答案:————a
