小学组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 mod 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;

write(a3:8)

end;

end.

输入:10

输出:______________

5．

program xx5;

var p，q，s，t：integer；

begin

readln(p)；

for q:=p+1 to 2*p do

begin

t:=0； s:=(p*q) mod (q-p)； if s=0 then begin

t:=p+q+(p*q)div(q-p)；

write(t：4)；

end；

end；

writeln;

end.

输入：12

输出：_____________

四、根据题意补充完善程序。(每空2分，共20分)

1．求满足下列条件的两位数：将此两位数的个位数和十位数字进行互换，可以得到一个新的数，要求新数与原数之和小于100（每行输出6个满足要求的数）。

Program xx6;

var

x1,x2,a,b,k:integer;

begin

k:=0;

for a:=__ ①_ to 99 do

begin

x1:= ② ;

x2:= ③ ;

b:=x1*10+x2;

if ④ then

begin

k:=k+1;

write(a:4);

if ⑤ then writeln;

end;

end;

end.

2．现在有一批长方形的木板，编程找出面积最大的那块，并输出它的长、宽和面积。 输入要求：从键盘输入长方形的长和宽，当长和宽中有一个值小于等于0时结束。 输出要求：输出面积最大的长方形的长、宽和面积。

program xx7;

var

a,b,c,max,x,y:integer;

begin

write(‘a,b=’); readln(a,b);

① ;

while (a>0) and ② do

begin

c:=____ ③____;

if c>max then

begin

x:=a;

____④______;

max:=c;

end;

_____⑤______ ;

end;

writeln(‘Chang=’, x);

wrtiteln(‘Kuan=’, y);

writeln(‘Mianji=’,max);

end.