第22届胜利油田学生信息学奥林匹克竞赛

第22届胜利油田学生信息学奥林匹克竞赛
小学组Pascal 语言试题
☆全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效☆
一、单项选择。

（每小题2分，共20分）
1.下列标识符中，正确的是：
A. a+b
B. name
C. 4ab
D. if
2. 下列的变量说明中，哪个是不正确的？
A. Var a,b,c:integer; x,y:real;
B.
Var x1:integer;
x2:integer;
C. Var s,t:real; a,s,b:integer;
D.
Var sum,total:integer;
3. 将数学式子 d c b a ÷⨯+)( 写成Pascal 表达式，正确的是：
A. d c b a ÷⨯+)(
B. d c b a /*+
C. d c b a /)(⨯+
D. d c b a /*)(+
4.已有如下变量说明：
var a,b:integer;
x,y: real;
下面的赋值语句中，计算机能接受的是：
A. a:=a+b;
B. a:=a/b;
C. b:=y;
D. x:=x div y; 5. 下面运算符中，运算结果一定是integer 类型的是：
A. ＋
B. －
C.div
D. /
6. 设整型变量i 的的值为12，实型变量A 的值为-4
7.28，执行语句writeln(i:4,A:8:2)的结果是：
A. 12□□-47.28□□
B. 12□-47.2800
C. 12口口口口-47.28
D. 口口12口口-47.28
7. 下面关于FOR 循环的叙述中，不正确的是：
A ． 在循环体中不能改变循环控制变量的值
B ．循环控制变量可以是任意的数据类型
C ．FOR 循环分为递增型和递减型两种
D ． 在执行过程中初值和终值不会改变
8. 有如下程序段:
read(a,b,c);
readln(d,e);
readln;
readln(f,g);
其中,所有变量均为整型。

如果输入的数据如下：
1 2
3 4 5 6 7 8
9 10
11
12 13
则变量f的值为：
A.10
B.11
C.12
D.13
9. 有如下程序段：
S:=0; i:=1;
while i<=5 do
begin
s:=s+i; i:=i+1;
end;
执行该程序段后，变量i的值为：
A. 1
B. 3
C. 5
D. 6
10.对于下面的程序段：
x:=28; y:=20 ; z:=30;
if x>y then
z:=x+y;
x:=y; z:=x+y; y:=z;
执行该程序段后，变量y的值为：
A. 28
B. 30
C. 40
D. 48
二、解决问题（4+6=10分）
1．观察下列数的规律，然后填空。

0，1，2，5，12，29，_________
2．有红、黄、蓝、绿四种颜色的旗子，每次取三面从上到下挂出，可以有多少种不同的挂法？
三、写出程序的运行结果。

(每小题5+5+6+8+8，共32分)
1.
program xjg1;
var x,a,b,c:integer;
begin
readln(x);
if (x>=100) and (x<=999) then
begin
a:=x div 100;
b:=(x-a*100) div 10;
c:=x mod 10;
x:=c*100+b*10+a;
writeln(x);
end
else writeln('Input error!');
end.
输入：927
输出：
2．
program xjg2;
var x,i,sum1, sum2: integer；
begin
repeat
readln(x);
until x>0;
sum1:=0；sum2:=1；
if x mod 2=1 then
for i:= 1 to 5 do
sum1:=sum1+i
else
for i:=1 to 5 do
sum2:=sum2*i；
writeln(sum1:5, sum2:5);
end．
输入：68
输出：
3.
program xjg3;
var
x,a,b,c:integer;
begin
readln(x);
a:=0; b:=1; c:=1;
while b<x do
begin
c:=c+100; a:=a*2007; b:=b+c;
end;
writeln(b:5,c:5)；
end.
输入：2007
输出：
4．
program xjg4;
var x,i,s,max:integer;
begin
read(x); max:=x; s:=x;
for i:= 2 to 10 do
begin
read(x);
if s>=100 then s:=0;
s:=s+x;
if s>max then max:=s;
end;
writeln('max=',max)
end.
输入:182 13 50 120 7 8 22 86 24 35 输出：
5.
program xjg5;
var x,i,m1,m2: integer；
begin
m1:=32767; m2:=m1;
for i:=1 to 10 do
begin
read(x);
if x<m1 then
begin
m2:=m1; m1:=x;
end
else
if x<m2 then m2:=x;
end;
writeln(m1:6,m2:6);
end．
输入：23 89 128 53 18 536 45 67 173 100
输出：
四、根据题意补充完善程序。

(每空2分，共18分)
1. 出租车计费器。

某城市的出租车计费方法是：起步价为6元，可以行驶3公里；3公里以后，每多增加1公里，按每公里1.2元计算。

下面的程序可以实现的功能是：输入出租车行驶的公里数，计算机自动计算出顾客应付的车费（结果保留1位小数）。

样例1：输入 3 输出 6 样例2:
输入 5 输出 8.4
请将下面的程序填写完整。

program JiFei;
var
x: integer;
y: ①;（real）
begin
readln(x);
if ② then x<=3
y:=6
else
y:= ③ 6+（x-3）*1.2;
writeln(y:5: ④) ；(2)
end.
2．求完数。

对于一个大于1的数，如果该数正好等于其因子之和，就称它为“完数”。

例如6的因子是1，2，3，并且6=1+2+3，所以6是一个“完数”。

下面的程序实现的功能是：判断输入的数是否为完数。

若是，则输出“Yes”，否则输出“No”。

请将程序填写完全。

program wanshu;
var
x,s,i: integer;
begin
repeat
readln(x);
until ①
s:=0；
for i:=1 to ② DO
if x mod i=0 then
③
if ④ then
writeln(‘Yes’)
else
writeln( ⑤ ) end.。