小学组Pascal语言试题

小学组Pascal语言试题（一）

一、单项选择。（每小题1.5分，共15分）

1.下面是某同学定义的变量名，合符Pascal语法的是（）。

A．integer B. x1 B. 2x D. x*y

2．假定所有变量均为实型，算式的正确Pascal表达式是（）。

A.(u+a)/((b-v)/(c-w)+u*d)

B. (u+a)/(b-v)/(c-w)+u*d

C. u+a/b-v/c-w+u*d

D. (u+a)/((b-v/c-w)+u*d)

3. 有如下的变量说明

var x,y,z:integer;

a:real;

则下面的赋值语句中正确的是（）

A．x=y div 7; B. x:=y/z; C. a:=x*y; D. x+y:=z;

4. 设a,b,c,d均为整型变量，对于下面的程序段

a:=0;

b:=0;

readln(a,b);

read(c);

readln(d);

若从键盘输入：

1

2 3 4

5 6 7

其中，表示“回车”，则a,b,c,d中的数应为下面哪一组？（）

A.1,2,3,4

B.1,2,3,5

C.1,2,5,6

D.1,0,3,5

5. 设n为整型变量，且n:=1997，下面能将n的十位数字（即右边第2位数字）分离出来的语句是（）。

A. d:=n mod 100

B. d:=n div 100;

C. d:=n div 100 mod 10;

D. d:=n mod 100 div 10

6.“判断一个整数x是另一整数y的整数倍”的pascal表达式是（）。

A．x=2*y B. x/y=2 C. x mod y=0 D. x mod y=1

7. Pascal表达式“2008 div 5 mod -2”的结果是：

A. 8

B. -1

C. 0

D. 1

8. 设实型变量pi已赋值为3.14159，下面不能输出3.14的语句是( )。

A. write(pi:0:2);

B. writeln(pi:1:2);

C. write(pi:2:2);

D. writeln(pi:2);

9．下列程序段的输出结果是（）。

Var x,s:integer;

Begin

x:=2005;

s:=0;

while x<>0 do

begin

s:=s+x mod 10;

x:=x div 10;

end;

writeln(s);

end.

A. 0

B. 7

C. 10

D.2005

10．下列程序段执行后能打印两行“Very good!”的是( )：

A.

i:=0;

repeat

writeln(‘Very good’);

i:=i+2;

until i=4; B.

i:=0;

repeat

writeln(‘Very good’);

i:=i+2;

until i<4;

B.

i:=0;

repeat

writeln(‘Very good’);

i:=i+2;

until i>4; D.

i:=0;

repeat

writeln(‘Very good’);

i:=i+2;

until i=5;

二、问题求解。（7分）

A,B,C,D,E,F 6人参加了小学信息学竞赛，甲、乙、丙、丁四人猜测谁能获得一等奖。甲说：“冠军不是A就是B。”

乙说：“冠军绝不是C。”

丙说：“D，E，F都不可能是冠军。”

丁说：“冠军可能是D，E，F中的一个。”

比赛结果公布后发现，这4个人所说的话中，只有一个人的猜测是正确的。谁是第一名呢？________

三、写出程序的运行结果。(第1-4小题每题5分，第5小题每题8分，共28分)

1．

program xx1;

var a,b,c,d,sum : integer;

begin

readln(a,b,c,d);

a := a mod 23;

b := b mod 28;

c := c mo

d 33;

sum := a * 543 + b * 121 + c * 128 - d;

sum := sum + 2005;

sum := sum mod 2005;

if (sum <> 0 ) then sum := 2005;

writeln(sum);

end.

输入：283 102 23 320

输出____________

2．

program xx2;

var

s,i:ingeger;

begin

s:=0;

for i:=1 to 100 do

if (i mod 3=0)and (i mod 4=0) then s:=s+i; writeln('s=',s)

end.

3.

Var

a,b,c,d,e:integer;

begin

a:=79 ; b:=34; c:=57; d:=0 ; e:=1;

if (ac) then

d:=d+e

else

if (d+10

d:=e+10

else

d:=a-e;

writeln(d);

end.

输出：___________________

4．

program xx4;

var n,i,a1,a2,a3:integer;

begin

readln(n); a1:=1; a2:=1;

write(a1:8,a2:8);

for i:=3 to n do

begin

a3:=a1+a2;

a1:=a2;

a2:=a3;