成都树德实验中学Pascal程序设计 - 11 -
8、设k为整型变量，用case语句重写下面的程序段。 if ( k<=10 ) and ( k>0 ) then
if k>5 then if k<8 then x:=0
else x:=1 else if k>2 then x:=3 else x:=4；
二、选择题
1、算法是指 _______。(B)
(A) 为解决问题而编写的计算机程序 (B) 为解决问题而采取的方法与步骤 (C) 为解决问题而需要采用的计算机语言 (D) 为解决问题而采用的计算方法
【算法是指人们为了解决问题而选取的方法和实施步骤,而程序设计只是用计算机去实现问题求解的一种手段。计算机语言则是程序设计的基础,计算方法是在解决问题过程中所需要的数学模式等.】
2、下列 _______ 程序行是对的。(C)
(A) x:=y:=5； (B) a+b:=c3； (C) y:=1； y: =y+1； (D) i: =x10’’；
【赋值号的左边只能是变量，一个赋值语句只能给一个变量赋值。被赋值的变量本身可以作为因子参与运算。】
3、下列程序段运行后，变量value的值为 ________。 x:=20；
if x>=10 then value:=5*x else value:=4*x； (A) 100 (B) 80 (C) 90 (D) 70 4、下列程序段运行后，变量max的值为 ________。 a:=5； b:=10； max:=a； if b>max then max:=b；
(A) 5 (B) 10 (C) 5和10 (D) 以上都不是 5、下列程序段运行后，变量a,b的值为 ________。 a:=3； b:=4；
if a>b then begin t:=a； a: =b； b:=t；end； (A) 3，4 (B) 4，3 (C) 3，3 (D) 4，4
6、下列if语句中，试指出：当x=80时，运行的结果是 ___ ，x=5时结果为 ___。 (A) y=9 (B) y=5 (C) y=10 (D) y=100 (E) y=200 y:=0;
if x<0 then y:=5;
else if x<10 then begin y:=10; if x<100 then y=100 end else y=200;
7、请从供选择的程序行中选出能计算下列各算式的正确程序行： begin
a:=1； x:=1 repeat
_______ ； x:=x+2；
- 12 - 成都树德实验中学Pascal程序设计
until x=21； writeln(’s=’,s)； end.
① s=1+3+5+7+?+19 ② s=-1+3-5+7-9+?+19 ③ s=1/(1*3)+1/(3*5)+1/(5*7)+?+1/(17*19) ④s=1+(1+3)+(1+3+5)+?+(1+3+5+?19)
(A) a*x； s:=s+a； a:=a* (=a)； (B) s:=s+x； (C) a:=-a； s:=s+a*x；
(D) b:=b+x； s:=s+b； (E) a:=x* (x+2)； s:=s+1/a； (F) b:=b+x； a:=-a；8、下列程序是计算 ___ 公式的。 s:=0； t:=1； for i:=1 to 10 do
begin t:=t*i；s:=s+t end；
(A) s=1+2+3+4+?+10 (B) s=1*2*3*4* ?* 10 (C) s=1!+2!+3!+4!+?+10! (D) s=1+2*3+3*4+4*5+?+9*10 三、判断题
1、Pascal的语句分为两大类：基本语句和复合语句。 2、整型数据可以赋给实型变量。 3、自定义场宽分为标准场宽和指定场宽。 4、写语句必须带有输出项。
5、一个变量或常量可以看成为一个表达式。 6、程序中read；readln；均为合法语句。 7、未定义场宽时，按隐含场宽输出。
8、复合语句与程序执行部分的“begin?end”意义不同。 9、布尔型数据是顺序型数据。 10、not true的值是false。 11、Pascal中可以输入、输出一个布尔型数据。
12、复合语句是一种构造型的语句，它的地位和一个基本语句相同。 13、情况常量也必须在说明部分说明。
14、同一情况常量不能在同一个case语句中出现二次以上。 15、情况常量在程序执行部分出现的次序可以是任意的。 16、可用字符作为情况标号。 17、判断下列语句的正误： ⑴ x:=3，y:=4 ,e:=5 ⑵ x*2:=y；
⑶ x+1:=y-2； ⑷ readln(a、b、c、d)；
*b)； s:=s+1/(a 成都树德实验中学Pascal程序设计 - 13 -
⑸ readln(a+b，c)； ⑹ writeln(a:=sin(30))； 四、阅读程序写出运行结果。
⑴ program ex1(input，output)；
var a，b，c，d：integer； L，e，g：boolean；
begin
a:=3； b:=7；s:=a+b；
d:=a div b；
L:=a
writeln(’e=’,e, ’g=’,g)； writeln(b/a:5:5)
end.
⑵ program ex2(input)；
var a，b：integer； c，d：boolean； begin
a:=8； b:=7；
c:=odd(a)； 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
⑶ program ex3(input，output)；
label 10；
var c:char； begin
for c:=’a’ to ’z’ do begin
if c>’s’ then goto 10； write(c,’’)； end； 10:
end.
⑷ program ex4(input，output)； var t,s,i：integer；
begin
t:=0； s:=0； for i:=-5 to 5 do begin
t:=t+1；
- 14 - 成都树德实验中学Pascal程序设计
s:=s+t+i； end；
writeln(’t,s=’,t,s:10)； end.
⑸ program ex5(input，output)； var t,n,s：integer； begin
t:=1； n:=3； s:=0； while s < 10 do
begin t:=t*n；s:=s+t；end； write(’s=’,s)；
end.
⑹ program ex6(input，output)； var p,m：integer；
begin
p:=20； m:=2；
repeat
p:=p-m； m:=m+3； until m>p；
write(’m, p=’,m,’’,p)；
end.
⑺ program ex7(input，output)； var n,a：integer；
begin
n:=6； a:=0； while n>1 do begin a:=1； repeat
write(’ *’)； a:=a+1； until a>=n； writeln； n:=n-1； end
end.
⑻ program ex8(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
成都树德实验中学Pascal程序设计 - 15 -
k:=0； repeat
k:=k+1； s:=s+k； until k=j； end； s:=s-(k+1)； end；
write(’s=’,s)； end.
⑼ program ex9(input，output)； var r,c,i：integer；
begin i:=20；
for r:=1 to 5 do begin
write(’’:i)；
for c:=1 to r*2-1 do write(c:1)； writeln； i:=i-1 end
end.
10、阅读程序，写出运行后变量x的值。 program ex10(input，output)； var x, x1,x2,i：integer； begin x1:=3； x2:=8；
for i:=1 to 5 do begin
x:=(x1+x2) *2；
x1:=x2； x2:=x； end；
writeln(’x=’,x)； end.
11、阅读程序段，并写出计算公式（假设x的值已给出）。 e:=1； a:=1；
for n:=1 to 10 do begin
a:=a*x/n； e:=e+a； end；
五、完善程序
1、完善程序，使其能输出如下图形：
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库全国青少年信息学奥林匹克联赛培训习题(3)在线全文阅读。
相关推荐：