1999年9计算机等级考试二级笔试基础部分和PASCAL语言

A)Readln(a)；

CASE a OF

0，1，2:Writeln('a*a='，Spr(a))；

3:b:=Spr(a)——a；

Writeln('c='，c)；

4，5:Writeln('aa='，aa)

END；

B)Readln(a)；

CASE a OF

0，1，2:Writeln('a*a='，Spr(a))；

3:Writeln('a*a——a='，Spr(a)——a)；

1，4，5:Writeln('aa='，aa)

END；

C)Readln(a)；

CASE a OF

0，1，2:Writeln('a*a='，Spr(a))；

3:BEGIN

b:=Spr(a)——a；

Writeln('c='，c)；

END；

4，5:Writeln('aa='，aa)

END；

D)Readln(a)；

CASE Sqr(a)/a OF

0，1，2:Writeln('a*a='，Sqr(a))；

3:BEGIN

b:=Sqr(a)——a；

Writeln('c='，c)；

END；

4，5:Writeln('aa='，aa)

END；

(36)设有说明VAR x，y:(d，c，b，a)；

执行下面3条语句后的输出是

x:=a；

y:=c；

Writeln(Ord(y)——Ord(x))；

A)1 B)——2 C)2 D)3

(37)要使语句IF a IN b THEN 《语句》；无语法错误，a，b的类型应该是

A)a是集合类型，b的类型与a的基类型相同

B)b是集合类型，a的类型与b的基类型相同

C)a和b都是集合类型

D)a，b中的任何一个都可以是集合类型，另一个则是此集合的基类型

(38)设a，b是整型变量且已赋值，函数首部为FUNCTION func(VAR a:Integer)：Integer；

下面正确的函数调用是

A)b:=func(func(b))；B)Writeln(func(ab))；

C)Writeln(Ord(func(b)))；D)b:=func(Succ(func(b)))；

(39)设a为集合变量，下面哪一组中的两个表达式的值是不同的

A)aa——a和a——aa B)aa*a和a

C)(aa)*a和a D)a——a*a和(aa)*a——a

(40)设有说明如下：TYPE rec=RECORD

a，b:Integer

END；

ft=FILE OF rec；

VAR f:ft；

s:rec；

ft类型文件abc.dat中有一条rec型记录，要取出记录中的两个整数并输出，应使用的程序段是

A)Assign(f，'abc.dat')；B)Assign(f，'abc.dat')；

酷影网(ky530.com)转载请注明出处,http://www.ky530.com/ncre/02/1999-Nian-9-JiSuanJiDengJiKaoShiErJiBiShiJiChuBuBanHe-PASCAL-YuYan-f60t023.html
关键词: