重庆市信息技术会考题(Pascal部分复习资料)

1、重庆市信息技术会考题（Pascal部分复习资料）一、填空题1、Sqrt（4）的值为（2.0）（保留一位小数）。2、A > a'的值为（false ）。3、下列标识符哪个是合法的？ （ A）A.xl B.a（c） C.var D.1234、Pascal语言中的赋值号为（：=）。5、用Pascal语言表达式表示 x为偶数（odd（x）=false ）。6、Ord（37）的值为（37 ）。7、-15 Mod 4 的值为（-3）。8、已知Chr（97）的值为字母a,则Chr（IOO）的值为字母（d ）。9、 Turbo Pascal 7.0 中，Integer 类型的取值范围为（-327

2、68 ）至 32767。10、 Pascal语言中，实现循环结构的语句主要有（For ）语句，While语句和Repeat语句。11、16 Div 5 的值为（3 ）。12、Odd（24）的值为（false ）。13、用Pascal语言表达式表示I被J整除（I mod J=0）。14、 机器语言仅由0和（1 ）两个代码组成。15、Round（9.5）的值为（10 ）。16、用Pascal语言表达式表示 X<0或X>=10（x<0 or x>=10）。17、Int（24.9）的值为（24 ）。18、所谓复合语句，就是指用（ begin ）和End括起来的多条语句的统称。1

3、9、Trunc（12.3）的值为（12 ）。20、b2-4ac 的 Pascal 语言表达式为（b*b-4*a*c）。21、 Pascal语言中，循环体至少执行一遍的循环语句是（repeat ）语句22、Round（10.4）的值为（10 ）。23、1/3a的Pascal语言表达式为（1/3*a）。24、 Pascal语言中，实现计数循环一般用（For ）语句。25、用Pascal语言表达式表示 K a< 10（a>=1 and a<=10）。26、Abs（-3.1）的值为（3.1）。27、Pascal语言中，定义实型变量的关键字是（ real ）28、120 Div 3 M

4、od 10 的值为（0 ）。29、Succ（ c'）的值为（d ）。30、 Pascal语言的关系运算符中，"不等于”运算符为（<> ）。31、Not（11+22>32）的值为（false ）。错误信息Error 85 : “；” expected 表示程序中可能缺少的符号是（；）。32、Pred（ C'）的值为（B ）。33、（a+b）h/2 的Pascal语言表达式为（a+b）*h/2）。34、顺序结构中，每一条 Pascal语句只执行（1 ）次。35、已知 Ord（ ' A' ）=65，贝U Ord（ 'D' ）

5、= （ 68 ）。36、a2-b2 的 Pascal 语言表达式为（a*a-b*b ）。37、 错误信息Error 91 :" := ” expected 表示程序中可能缺少的符号是（：=）。38、Succ（Pred（2）的值为（2 ）。39、下列标识符哪个是合法的？ （ A）A.abc B.x# C.begi n D.1a40、用Pascal语言表达式表示 a为奇数（odd（a）=true ）。41、Sqr（4）的值为（2 ）。验证42、Chr（Ord（ 'h'）的值为（h ）。43、（ 5>2） And （3>=6）的值为（true ）。44、常量说明

6、以（con st ）作标志。二、程序阅读。1、下列程序输出结果为(4 )。VarM,N:I nteger;BeginM:=0;For N:=2 to 3 doM:=M+2;Write(M);End.2、下列程序输出结果为(9 )oVarA,B,C:I nteger;BeginA:=5;B:=4;C:=A*A-B*B;Writel n( C);End.6、下列程序输出结果为(256 )oVarY:I nteger;BeginY := 2;WHILE (Y<=32) DOY := Y*Y;Writel n(Y);End.7、下列程序输出结果为(40 )。VarA:I nteger;Begin

7、A:=100;38、下列程序段的输出结果为(4 )。VarS,N:lnteger;BeginN:=DoBegi nN:=N Div 10;S:=S+1;E nd;Writel n( S);E nd.39、下列程序段VarA:I nteger;Begi nA:=17;lf(A Mod2=0) Then Write ln(' Y')Else下列程序段的输出结果为(15 )。VarS,I:I nteger;Begi nl:=1;S:=0;RepeatS:=S+l;l:=l+1;U ntil列程序段的输出结果为（4,3） oIXVarA,B:I nteger;Begi nA:=3;B:

8、=4;A:=A+B;B:=A-B;A:=A-B;Writeln 段的输出结果为(100 ) o VarS,I:Integer;BeginS:=0;For l:=1 DoS:=S+10;WriteIn(S);End.45、下列程序段的输出结果为(0 )VarT:Integer;BeginT:=3;T:=T*100;T:=T Mod 3;Writeln(T);End.(Sun day )。Varch : char ; beg in ch:=' 0' ; case chof ' 1':Write ln(' Mon day'); ' 2'

9、:Writel n('4':Writel n( Thursday');'5':Writel n( 'Friday'); ' 6':Writel n('Tuesday'); ' 3':WrSaturday'); ' 0':Wriend.47、下列程序段的输出结果为（5,1 ）。VarA,B,C:I nteger;Begi nA:=1;B:=5;C:=A;A:=B;B:=C;Write(A,B);出结果为(6 7 8 9 10 )。VarI,X:Integer;Begin

10、X:=10;For l:=6 t 下列程序段的输出结果为(3,2,1)。验证VarN,A,B,C:Integer;10;B:=N Div 10 Mod10;C:=N Div 100;Writeln(A,B,C);End.55、下歹验证 VarYear:Integer;BeginYear:=2000;lf(Year Mod400=0) Or (Mod100<>0) ThenWriteln( 'Y')ElseWriteln( N');End.56、 下歹2 )。VarA,B,C:Integer;BeginA:=1;B:=2;C:=3;A:=B;B:=C;C:=A

11、;W 下列程序输出结果为(15 )o VarI,S:Integer;BeginS:=0;For IS:=S+I;Writel n( S);E nd.61、下列程序输出结果为( NO )。VarScore:I nteger;Begi nScore:=51;lf (Score>=60) ThenWriteln(' PASS')ElseWriteln( NO ');End.A:=A+20;A:=A Div 3;Writel n(A);End.11、下列程序输出结果为(200 )。VarX,l:l nteger;BeginX:=0;For I:=1 to 100 doX:

12、=X+2;Writel n(X);End.12、下列程序输出结果为(-1)oVarX,Y:I nteger;BeginX:=-100;If (X<0) The nY:=-1ElseY:=1;Writel n(Y);End.14、输入数据：0 2，卜列程序输出结果为(1 )。VarX,Y:I nteger;BeginY:=0;X:=1;While X<>0 DoBegi nY:=Y+X;Read(x);End;Write(Y);End.15、下列程序输出结果为(10 )。VarX,Y:I nteger;BeginX:=-10;If X<0 The nY:=-XElseY:

13、=X;Writel n(Y);End.19、下列程序输出结果为(abed )。VarCh:Char;BeginFor Ch:= b' to e' doWrite(pred(ch);End.20、下列程序输出结果为( Y )。VarA:l nteger;BeginA:=11;If Odd(A) The nWrite ln( ' Y')ElseWritel n( ' N');End.24、下列程序段的输出结果为( A )oVarScore:l nteger;Ch:Char;BeginScore:=80;Case Score Div 10 Of10,9

14、,8:Ch:=' A'7,6:Ch:= 'B 'Else Ch:= ' C'End;Writel n(Ch);End.25、输入数据：-9，下列程序输出结果为(<=0) oVarA:l nteger;BeginRead(A);If (A>0) The nWrite( ' >0')ElseWrite( ' <=0');End.29、下列程序段的输出结果为(Var1:1 nteger;BeginI:=0;While (I<10) Do l:=l+3;Writel n(l);End.30、下

15、列程序段的输出结果为(Co nstPI=3.14;VarArea,R:Real;BeginR:=1;Area:=PI*R*R;Writel n(Area:4:2);End.34、下列程序段的输出结果为(VarS,I:I nteger;BeginS:=1;For I:=1 To 4 DoS:=S*I;Writel n(S);End.35、下列程序段的输出结果为(VarA,B:I nteger;BeginA:=5;If Odd(A) The nB:=1ElseB:=2;Writel n(B);End.12 )。3.14)。24 )。1 )。三、Pascal常用函数2sqr(x)=x 例：sqr(3

16、)=9sqrt(x)=/-x 求平方根函数 例：sqrt(16)=4round()四舍五入函数 例：round(3.14)=3 round(-4.2)=-4 round(-5.5)=-6mod()求余函数，余数符号与被除数同div()整除函数，结果为商注:odd()判断一个整是是否是奇数，是奇数为真实即ture。odd(3)=ture odd(4)=falseture 代表1，false 代表0trunc() 截尾函数，即把小数点后面的舍去。trun c(5.3)=5 trun c(5.9)=5random()随机函数abs()取绝对值。abs(0)=0，abs(5)=5 ， abs(-3)=3p