网站大量收购独家精品文档,联系QQ:2885784924

PASCAL语言编程.doc

  1. 1、本文档共7页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
PASCAL语言编程

练习一: 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; A:=A+20; A:=A Div 3; Writeln(A); End. 30、下列程序输出结果为( )。 答案:256 Var Y:Integer; Begin Y := 2; WHILE (Y=32) DO Y := Y*Y; Writeln(Y); End. 练习三: 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 (X0) Then Y:=-1 Else Y:=1; Writeln(Y); End. 30、下列程序输出结果为( )。 答案:200 Var X,I:Integer; Begin 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 X0 Then Y:=-X Else Y:=X; Writeln(Y); End. 30、输入数据:0 2,下列程序输出结果为( )。 答案:1 Var X,Y:Integer; Begin Y:=0; X:=1; While X0 Do Begin Y:=Y+X; Read(x); End; Write(Y); End. 练习五: 26、Round(9.5)的值为( )。 答案:10 27、机器语言用Pascal语言表达式表示I被J整除( )。 答案:I mod J=0 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. 练习六: 26、所谓复合语句,指用( )和End括起来的多条语句的统称。答案:begin 27、Int(24.9)的值为( )。 答案:24.0 28、用Pascal语言表达式表示X0或X=10( )。 答案:(x0) or (x=10) 29、输入数据:-9,下列程序输出结果为( )。答案:=0 Var A:Integer; Begin Read(A); If (A0) Then Write(0) Else Write(=0); End. 30、下列程序段的输出结果为( )。答案:A Var Score:Integer; Ch:Char; Begin Score:=80; Case Score

文档评论(0)

xy88118 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档