Pascal 语言练习题.doc

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

Pascal 语言练习题 一、Pascal 语言 1. Pascal语言规定,程序一律以保留字___________开始,作为程序标志。 5. 结构化程序设计的3种基本结构是_________、_________、_________。 9. 表达式PRED(CHR(ORD(′E′)+1))的值为___________。 11. 将一万分之一写成Pascal数的形式应为___________。 14. Pascal语言的数据类型按其特点可分3大类,即_____________类型,___________类型和___________类型。 15. 将65526.0034写成Pascal数的形式应为___________。 22. 表达式ORD(′6′)=ORD(6)的值是___________。 二、基本语句和顺序结构 1. 请写出把256.0赋给整型变量I的赋值语句是___________。 2. 设I为整型变量,L为布尔型变量(l:boolean),odd函数是判断一个数是否为奇数,如odd(5)=true,语句L:=ODD(I) OR ODD(I+1);执行后L的值为___________。 3. 以下程序的运行结果为___________。 PROGRAMEX(OUTPUT); VAR A,B,C,N,SUM:INTEGER; BEGIN N:=126; A:=N DIV 100; B:=(N-A*100) DIV 10; C:=N-A*100-B*10; SUM:=A+B+C; WRITELN(′SUM=′,SUM:3) END. 4. 有以下程序: PROGRAM P1(input,output); VAR ch:char; BEGIN READLN(ch); writeln(pred(pred(ch)),pred(ch),ch,succ(ch),succ(succ(ch))) END. 假设输入字母C,则输出为___________。 6. 表达式trunc(-sqrt(sqr(17 MOD 5)*2*(15 DIV 2)+sqr(1/2)))的值是__________。 7. 设变量说明如下: VAR ch1,ch2,ch:char; i1,i2:integer; r1,r2:real; 现在要把值A,b,15,128,2.3E-5,-18.96依次赋给变量ch1, ch2,i1,i2,r1,r2,设输入数据格式为: a b l5: 128 2.3E-5 -18.96; 请写出读语句___________。 8. 以下程序段的作用是:将读入的一个三位数字的正整数反向输出。如输入123,则输出321,请填空: PROGRAM exa(input,output); VAR m,a,b,c,x:integer; BEGIN readln(m); a:=___________; b:=___________ MOD 10; c:=m DIV 100; x:=a*100+b*10+c; writeln(x) END. 三、选择语句 1. 阅读下面程序体,其运行结果是___________。 A:=5;B:=4;C:=3; IF ODD(PRED(4)) THEN A:=B+C; A:=A-C; WRITELN(A); 2. 以下程序段将A,B,C三个数,按由小到大的顺序输出。请在空内填上正确的内容。 READLN(A,B,C); IF AB THEN BEGIN TEMP:=A; A:=B; B:=TEMP END; IF___________ THEN BEGIN TEMP:=A; A:=C; C:=TEMP END; IF___________ THEN BEGIN TEMP:=B; B:=C; C:=TEMP END; WRITELN(A:3,B:3,C:3) 3. 有下列两个IF语句: IF AB THEN X:=1 ELSE X:=2; IF A=B THEN READ(Y) ELSE READ(Z); 将它们合并成与上面两个IF语句功能完全相同的一个不嵌套IF语句: IF AB THEN___________; ELSE;___________; 4. 以下程序段执行后,DATA的值是___________。 L1:=

文档评论(0)

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

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

1亿VIP精品文档

相关文档