- 1、本文档共7页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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
您可能关注的文档
- 第五章医学文献检索.ppt
- 《3DSMAX室内设计》教学大纲.doc
- 二节:基因在染色体上.ppt
- 发动机的油针调节.doc
- 工程招投标会议议程.doc
- 剑桥少儿英语二级上册第三单元听课笔记.doc
- GearTrax2011绿色汉化免安装版下载.doc
- 2013高考数学(理)二轮复习配套作业(解析版):专题限时集训(四)A(湖南省专用).doc
- 心理健康渗透课教案-王岩.doc
- 大青实验学校信息化建设发展规划.doc
- 金融产品2024年投资策略报告:积极适应市场风格,行为金融+机器学习新发现.pdf
- 交运物流2024年度投资策略:转型十字路,峰回路又转(2023120317).pdf
- 建材行业2024年投资策略报告:板块持续磨底,重点关注需求侧复苏.pdf
- 宏观2024年投资策略报告:复苏之路.pdf
- 光储氢2024年投资策略报告:复苏在春季,需求的非线性增长曙光初现.pdf
- 公用环保2024年投资策略报告:电改持续推进,火电盈利稳定性有望进一步提升.pdf
- 房地产2024年投资策略报告:聚焦三大工程,静待需求修复.pdf
- 保险2024年投资策略报告:资产负债匹配穿越利率周期.pdf
- 政策研究2024年宏观政策与经济形势展望:共识与分歧.pdf
- 有色金属行业2024年投资策略报告:新旧需求共振&工业原料受限,构筑有色大海星辰.pdf
文档评论(0)