- 1、本文档共26页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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)