PASCAL语言编程

第 1页共（6页）
信息技术会考填空题复习资料
X:=0; For I:=1 to 100 do X:=X+2; Writeln(X); End. 练习四： 26、Odd(24)的值为（ ） 。 答案：false 27、16 Div 5 的值为（ ） 。 答案：3 28、 Pascal 语言中， 实现循环结构的语句主要有 （ ） 语句， While 语句和 Repeat 语句。 答案：For 29、下列程序输出结果为（ ） 。 答案：10 Var X,Y:Integer; Begin X:=-10; If X<0 Then Y:=-X Else Y:=X; Writeln(Y); End. 30、输入数据：0 2，下列程序输出结果为（ ） 。 答案：1 Var X,Y:Integer; Begin Y:=0; X:=1; While X<>0 Do Begin Y:=Y+X; Read(x);
Write(A,B); End. 30、下列程序段的输出结果为（ Var ch：char； begin ch:= '0'； case ch of '1':Writeln('Monday'); '2':Writeln('Tuesday'); '3':Writeln('Wednesday');； '4':Writeln('Thursday');； '5':Writeln('Friday'); '6':Writeln('Saturday'); '0':Writeln('Sunday'); end； end.
） 。答案：<>
练习十一： 26、Pred('C')的值为（ ） 。答案：’B’ 27、错误信息 Error 85："；" expected 表示程序中可能缺少的符号是（ ） 。 答案：;
第 4页共（6页）
信息技术会考填空题复习资料
28、Not(11+22>32)的值为（ ） 。答案：false 29、下列程序段的输出结果为（ ） 。答案：0 Var T:Integer; Begin T:=3; T:=T*100; T:=T Mod 3; Writeln(T); End. 30、下列程序段的输出结果为（ ） 。答案：100 Var S,I:Integer; Begin S:=0; For I:=10 Downto 1 Do S:=S+10; Writeln(S); End. 练习十二： 26、已知 Ord('A')=65，则 Ord('D')=（ ） 。答案：68 27、顺序结构中，每一条 Pascal 语句只执行（ ）次。答案：1 28、(a+b)h/2 的 Pascal 语言表达式为（ ） 。答案：(a+b)*h/2 29、下列程序段的输出结果为（ ） 。答案：51 Var A,B,C:Integer; Begin A:=1; B:=5; C:=A; A:=B; B:=C;
信息技术会考填空题复习资料
练习一： 26、Sqrt(4)的值为（ ） （保留一位小数） 。 答案：2.0 27、 ‘A’>‘a’的值为（ ） 。 答案：false 28、下列标识符哪个是合法的？（ ） A、x1 B、a（c） C、var D、123 答案：A 29、下列程序输出结果为（ ） 。 答案：9 Var A,B,C:Integer; Begin A:=5; B:=4; C:=A*A-B*B; Writeln(C); End. 30、下列程序输出结果为（ A ） 。 答案：4 Var M,N:Integer; Begin M:=0; For N:=2 to 3 do M:=M+2; Write(M); End. 练习二： 26、Pascal 语言中的赋值号为（ ） 。 答案：:= 27、Ord(37)的值为（ ） 。 答案：37 28、用 Pascal 语言表达式表示 x 为偶数（ ） 答案：x mod 2=0 29、下列程序输出结果为（ A ） 。 答案：40 Var A:Integer; Begin A:=100;
第 2页共（6页）
信息技术会考填空题复习资料
Begin Read(A); If (A>0) Then Write('>0') Else Write('<=0'); End. 30、下列程序段的输出结果为（ Var Score:Integer; Ch:Char; Begin Score:=80; Case Score Div 10 Of 10,9,8:Ch:= 'A'; 7,6:Ch:= 'B'; Else Ch:= 'C'; End; Writeln(Ch); End.
练习八： 26、Pascal 语言中，实现计数循环一般用（ ）语句。答案：For 27、1/3a 的 Pascal 语言表达式为（ ） 。答案：1/(3*a) 28、Round(10.4)的值为（ ） 。答案：10 29、下列程序段的输出结果为（ ） 。答案：1 Var A,B:Integer; Begin A:=5; If Odd(A) Then B:=1 Else B:=2; Writeln(B); End. 30、下列程序段的输出结果为（ ） 。答案：24 Var S,I:Integer; Begin S:=1; For I:=1 To 4 Do
End; Write(Y); End. 练习五： 26、Round(9.5)的值为（ ） 。 答案：10 27、机器语言用 Pascal 语言表达式表示 I 被 J 整除（ 28、仅由 0 和（ ）两个代码组成。 答案：1 29、下列程序输出结果为（ ） 。 答案：Y Var A:Integer; Begin A:=11; If Odd(A) Then Writeln('Y') Else Writeln('N'); End. 30、下列程序输出结果为（ ） 。 答案：abcd Var Ch:Char; Begin For Ch:='b' to 'e' do Write(pred(ch)); End.
A:=A+20; A:=A Div 3; Writeln(A); End. 30、下列程序输出结果为（ Var Y:Integer; Begin Y := 2; WHILE (Y<=32) DO Y := Y*Y; Writeln(Y); End.
） 。
答案：256
练习三： 26、 Turbo Pascal 7.0 中， Integer 类型的取值范围为 （ ） 到 32767。答案： -32768 27、已知 Chr(97)的值为字母 a，则 Chr(100)的值为字母（ ） 。答案：d 28、-15 Mod 4 的值为（ ） 。 答案：-3 29、下列程序输出结果为（ A ） 。 答案：-1 Var X,Y:Integer; Begin X:=-100; If (X<0) Then Y:=-1 Else Y:=1; Writeln(Y); End. 30、下列程序输出结果为（ ） 。 答案：200 Var X,I:Integer; Begin
练习十四： 26、Sqr(4)的值为（ ） 。答案：16 27、用 Pascal 语言表达式表示 a 为奇数（ ） 。答案：odd(a) 28、下列标识符哪个是合法的？（ ）答案：A A、abc B、x# C、begin D、1a 29、下列程序输出结果为（ ） 。答案：232 Var A,B,C:Integer; Begin A:=1; B:=2; C:=3; A:=B; B:=C; C:=A; Writeln(A,B,C); End. 30、下列程序输出结果为（ ） 。答案：Y Var Year:Integer; Begin Year:=2000; If (Year Mod 400=0) Or ((Year Mod 4=0) And (Year Mod 100<>0)) Then
） 。答案：Sunday
练习十三： 26、Succ(Pred(2))的值为（ ） 。答案：2 27、错误信息 Error 91：":=" expected 表示程序中可能缺少的符号是（ ） 。 答案：:= 28、a 平方-b 平方的 Pascal 语言表达式为（ ） 。答案：a*a-b*b 29、下列程序段的输出结果为（ ） 。答案：321 Var N,A,B,C:Integer; Begin N:=123; A:=N Mod 10; B:=N Div 10 Mod 10; C:=N Div 100; Writeln(A,B,C);
） 。答案：A
Writeln(Area:4:2); End. 30、下列程序段的输出结果为（ Var I:Integer; Begin I:=0; While (I<10) Do I:=I+3; Writeln(I); End.
） 。答案：12
练习七： 26、 Pascal 语言中， 循环体至少执行一遍的循环语句是 （ ） 语句。 答案： repeat 27、b 平方-4ac 的 Pascal 语言表达式为（ ） 。答案：b*b-4*a*c 28、Trunc(12.3)的值为（ ） 。 答案：12 29、下列程序段的输出结果为（ ） 。答案：3.14 Const PI=3.14; Var Area,R:Real; Begin R:=1; Area:=源自I*R*R;第 5页共（6页）
信息技术会考填空题复习资料
End. 30、下列程序段的输出结果为（ Var I,X:Integer; Begin X:=10; For I:=6 to x do Write(I)； End.