初中信息学业考试信息编程专练题

1、求恰好使s=1+1/2+1/3+…+1/n的值大于10时n的值。
2、求两个正整数m和n的最大公约数。
3、计算从０到某个数之间所有奇数的和。
信息技术（pascal程序）考试资料
第一章习题
一、选择题
1．下列函数值不可能是布尔类型的是（A）odd(x)(B) ord(x) (C) pred(x)(D) succ(x)
2．设X是实型变量，下列表达式能将X四舍五入后保留两小数的是
（A）round(x) (B) round(X)/100 (C) round( X*100)/100 (D)round(X*10)/10
3、下列程序段运行后，变量A，B的值为
a:=3; b:=4;if a>b then begin t:=a; a:=b; b:=t; end;
4、请从供选择的程序行中选出能计算下列各算式的正确程序行
begin
a:=1; x:=1;
repeat
______________;
x:=x+2;
until x=21;
1、下列程序段运行后，变量value的值为
x:=20;if x>10 then value:= 5*x else value:=4*x;
2、下列程序段运行后，Max的值为
a:=5; b:=10; max:=a;
if b>max then max:=b;(A)5 (B) 10 (C) 5和10（D）以上都不是
二、填空题
1、ax2 +bx +c的Pascal的表达式是
2、表达式2/4 *5的值表达式10＊4MOD 5＊22/4 *5的值是
3、I是J的整数倍的布尔表达式是M是偶数的布尔表达式是Y是－2至－1之间的布尔表达式是
4、Y是闰年的布尔表达式是1.25* 10-7的Pascal算式是
第二章习题
一、选择和填空题
a:=a+1;
until a>=n;
writeln;
n:=n-1;
end
end.
6、读程序，写出运行结果
program ex6(input,output);
var I,j,k,s:integer;
begin
s:=0;
for I:=3 downto 1 do
begin
for j:=1 to 3 do
begin
for I:=1 to _____do
begin
write(‘ ’:);
for j:=1 todo
write‘*’;
writeln;
end;
end;
2、下面是一个求：1/1+1/2+2/3+3/5+5/8+8/13+13/21+21/32+…前20项的和的程序段，试将程序补充完整：
s:=0; a:=1; b:=1;
For I:=1 to 5 do
Begin
X:=(X1+x2)*2;
X1:=x2; x2:=x;
End;
Writeln(‘x=’,x);
End.
8、读程序，并写出运行结果
program ex8(input,output);
var
r,c,I:integer;
begin
I:=20;
For r:=1 to 5 do
m:=m+3;
until m>p;
writeln(‘ m,p=’,m, ’ ’,p);
end.
5、读程序，写出运行结果
program, ex5(input, output);
var n,a:integer;
begin
n:=6; a:=0;
while n>l do
begin
a:=ห้องสมุดไป่ตู้;
repeat
write(‘*’);
writeln(‘d=’,d:5);
writeln(b/a:5:5)
end.
2、读程序，写出运行结果
program ex2;
var a,b:integer;
c,d:Boolean;
begin
a:=8; b:=7;
c:=odd(a);{注：odd()是取奇函数，如果是奇数返回True，否则为False}
9、计算（阶乘）n!，其中n由键盘输入。（n!=1*2*3*……*n）
10、按正序和反序输出26个英文字母。
11、输出1到1000之间的能够被3整除的数。
12、统计1到1000之间能够同时被3和7整除的数的个数，并计算他们的和。
13、编程求100到300之间有多少个其各位数字之和为5的倍数，并逐个输出。（例如，172，1+7+2=10）
则称25为守形数
16、判断某数是否质数（素数）。
分析：质数（素数）是只能被１和它本身整除，也即某数ｍ是质数，则，２到ｍ－１中的任何数都不能整除ｍ。
17、已知Faibonacai(费波那契)数列的前几项０、１、１、２、３、５、８13 21,34……,编程输出求出前20项。
18、数列A1,A2,A3,A4,……,A20。已知A1=0,A2=1,A3=1, A4=A1+2*A2＋A3, A5=A2+2*A3+A4…输出求出前20项。
for k:=1 to 20 do
begin
s:=s+a/b;
a:= ___________;
b:= __________ ;
end;
writeln(s);
三、循环复习题
一、for语句
1、输出1－100之间的所有偶数。
2、求N！＝1＊2＊3＊…＊N，这里N不大于10
3、计算1+2+3+……+99+100
Begin
Write(‘ ’:i);
For c:=1 to r*2-1 do
Write(C:1);
Writeln;
I:=I-1;
end
end.
五、完善程序，使其能输出如下图形：
*
**
***
****
*****
program ex4_5_1(input,output);
var I,j:integer;
begin
3.表达式35div 3 mod 4的值是（A）0 (B) 2 (C) 3 (D) 6
4把整数5转换为字符的表达式是
(A)chr (5)-ord (‘0’)(B) chr (5-ord ( ‘0’))(C) chr (5+ord (‘0’)) (D) chr ( 5+ord (0))
5.下列中正确的关系表达式是（A）‘a’<100 (B) 23.5<20 (c) (23<45) and (72>8) (D) 5< x <20
writeln(‘s=’,s );
end,
(1)s=1+3+5+7+…+19 ( )
(2)s= -1+3-5+7-9…+19 ( )
(3)s=1/(1*3)+1/(3*5)+1/(5*7)+…+1/(17*19) ( )
(4)s=1+(1+3)+(1+3+5)+…+(1+3+5+…+19) ( )
(A)s:=s+a; a:=a*(-a); (E)a:=x*(x+2); s:=s+1/a;
14、若三位数abc，满足a*a*a+b*b*b+c*c*c=abc,则称abc为水仙花数
例如：153，因为13+53+33=1+125+27=153。求100-999中的水仙花数。
15、求2－1000中的守形数（若某数的平方，其低位与该数本身相同，
则称该数为守形数。例如25，25*25＝625，625的低位25与原数相同，
(B)s:=s+x; (F)a:=s+x; s:=s+a;;
(C)a:=-a; s:=s+a;
(D)b:=b+x; s:=s+b;
二．阅读程序
1、读程序，写出运行结果
program ex1;
var a,b,s,d:integer;
begin
a:=3;b:=7;
s:=a+b;
d:=a div b;
writeln(‘s=’,s:5);
for I:=-5 to 5 do
begin
t:=t+1;
s:=s+t+I
end;;
writeln(‘t,s=’,t,s:10);
end.
4、读程序，写出运行结果
program ex4(input,output);
var
p,m:integer;
begin
p:=20;
m:=2;
repeat
p:=p-m;
19、输出九九乘法表。
20、求质数表：输入一个自然数n，输出１到之间的所有质数。（当n比较大时，就应该采用快速法）
二、编程输出以下形状的字符组合：
＊
＊＊
＊＊＊
＊＊＊＊
＊＊＊＊＊
＊＊＊＊＊＊
＊
＊＊＊
＊＊＊＊＊
＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊
＊＊＊＊＊
＊＊＊
＊
二、while语句
d:=odd(b);
writeln (‘c=’,c);
writeln(‘d=’,d);
if a>b then
begin
if c=d then write(c)
else write(d)
end；
end.
3、读程序，写出运行结果
program ex3;
var t,s,I:integer;
begin
t:=0; s:=0;
4、求s=1+4+7+…+298的值。
5、编写一个评分程序，接受用户输入10个选手的得分(0-10分)，然
后去掉一个最高分和一个最低分，求某选手的最后得分(平均分)。
6、用一张一元票换1分、2分和5分的硬币，每种至少一枚，问有哪几种换法（各几枚）？
7、编程计算从1到20每个数的平方值。
8、编程计算S1=1+2+3+……+99+100，S2=1+2+3+……n
k:=0;
repeat
k:=k+1; s:=s+k;
until k=j;
end;
s:=s-(k+1);
end;
write(‘s=’,s);
end.
7、读程序，写出运行后变量X的值。
Program ex7(input,output);
VarI,x,x1,x2:integer;
begin
X1:=3;
X2:=8;