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

Reset(f)；Reset(f)；

Read(f，s.a，s.b)；Readln(f，s)；

Close(f)；Close(f)；

Writeln(s.a，s.b)；Writeln(s.a，s.b)；

C)Assign(f，'abc.dat')；D)Assign(f，'abc.dat')；

Reset(f)；Reset(f)；

Readln(f，s.a，s.b)；Read(f，s)；

Close(f)；Close(f)；

Writeln(s.a，s.b)；Writeln(s.a，s.b)；

(41)设集合x=[2，4，6，8]，y=[2，3，4，5，6]，下面能使a=[]的赋值语句是

A)a:=x——y[8]B)a:=(xx)*(x——y)

C)a:=x*y——x D)a:=(y——x)——(x——y)

(42)有程序：

PROGRAM prog(Input，Output)；

VAR a，b:Integer；

PROCEDURE p(VAR x:Integer；y:Integer)；

BEGIN

x:xy

END；

BEGIN

a:=5；b:=10；

p(a，b)；

p(a，a MOD b)；

Writeln(a，'，'，b)

END.

则运行结果为

A)10，10 B)20，20 C)10，20 D)20，10

(43)有下列程序：

PROGRAM exam2(Input，Output)；

VAR i:Integer；

FUNCTION ss(n:Integer)：Boolean；

VAR i:Integer；b:Boolean；

BEGIN

i:=3；b:=True；

WHILE(i《=Trunc(Sqrt(n)))AND b DO

BEGIN

IF n MOD i=0 THEN b:=False；

i:=i2

END；

ss:=b

END；

BEGIN

i:=3；

WHILE i《=100 DO

BEGIN

IF ss(i)AND ss(i4)AND ss(i10)THEN

Writeln(i)；

i:=i2

END

END.

则程序的功能是

A)找出100以内的全部质数(即素数)。

B)找出100以内质数的个数。

C)找出100以内满足i，i4，i10都是质数的i的个数。

D)找出100以内满足i，i4，i10都是质数的所有整数i。

(44)设有说明

VAR a，b，c:Integer；

FUNCTION ff(x，y，z，j:Integer；VAR a:integer)：Integer；

VAR i:Integer；

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