- 1、本文档共4页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
pascal顺序结构练习题答案
Pascal语言顺序结构练习题答案
读程序,写结果
1. 5 12
2. _ _ _ 3_ _ _3 _ 表示空格,下同 _ _ _35.00
1234_ _ 1座机电话号码
#_ _ _ _ #
abcdefg_ _ _ abcdefgabcdefg
true_ truetrue
x _ 2.5y _ 3.0
false x _ 1.1y _ 2.0 trre
完善程序
1. 1 a: b; 2 b: c; 3 c: t;
2. 1 chiys: chi 80;
2 mathys: math 80;
3 engys: eng 80;
4 phyys: phy 80;
5 s: chi math+eng+phy;
6 aver: s/4;
7 writeln ‘chiys:’,chiys ;
8 writeln ‘mathys:’,mathys ;
9 writeln ‘engys:’,engys ;
10 writeln ‘phyys:’,phyys ;
11 writeln ‘s ’,s:0:2 ;
12 writel ‘aver ’,aver:0:2 ;
3. 1 n: 10+random 90 ;
2 writeln ‘m ’,m:0:3 ;
3 writeln ‘n ’,n ;
编程序
1.设读入的秒数为t,将它转换为时h,分m,秒s.
Program bc1-1;
Var
t,h,m,s:integer;
begin
readln t ;
h: trunc t/3600 ;
s: t-h*3600;
m: trunc s/60 ;
s: t-h*3600-m*60;
writeln ‘hours:’,h ;
writeln ‘minutes:’,m ;
writeln ‘seconds:’s ;
readln;
end.
2.设三位数为x,百位,十位,个位分别为a,b,c,倒序输出c,b,a
Program bc2;
Var
a,b,c,x:integer;
begin
readln x ;
a: x div 100;
b: x div 10 mod 10;
c: x mod 10;
writeln c,b,a ;
readln;
end.
3.设输入的三位整数为x,百位、十位、个位分别为c,b,a,它的数字之各为s。
Program bc3;
Var
a,b,c,x,s:integer;
begin
readln x ;
a: x div 100;
b: x div 10 mod 10;
c: x mod 10;
s: a+b+c;
writeln s ;
readln;
end.
4.分完三个人的书数分别为128本,用倒推法算出各人原有的书数。
Program bc4;
Var
a,b,c:integer;
begin
a: 128;
b: 128;
c: 128;
a: a div 2;
b: b div 2;
c: c+a+b;
a: a div 2;
c: c div 2
b: b +a +c;
b: b div 2;
c: c div 2;
a: a+b+c;
writeln ‘a ’,a ;
writeln ‘b ’,b ;
writeln ‘c ’,c ;
readln;
end.
5.假设编号为1,2,3,4,5的五位小朋友的糖果数分别为a1,a2,a3,a4,a5,1号小朋友先分,分给相邻的小朋友2号和5号,然后2号小朋友分给3号和1号,依此类此……
Program bc4;
Var
a1,a2,a3,a4,a5:integer;
begin
readln a1,a2,a3,a4,a5 ;
a1: a1 div 3
a2: a2+a1;
a5: a5+a1;
a2: a2 div 3;
a3: a3+a2;
a1: a1+a2;
a3: a3 div 3;
a4: a4+a3;
a2: a2+a3;
a4: a4 div 3;
a5: a5+a4;
a3: a3+a4;
a5: a5 div 3;
a1: a1+a5;
a4: a4+a5;
writeln a1,‘ ’ ,a2,‘ ’ ,a3,‘ ’ ,a4,‘ ’, a5 ;
readln;
end.
Program bc1-2;
Var
t,h,m,s:integer;
begin
readln t ;
h: t di
您可能关注的文档
最近下载
- 国家安全论文2000字范文(精选5篇).docx VIP
- 用电检查员技能培训课件—三相四线计量装置错接线分析及操作.pptx
- 第24课 人民解放战争(课件)-【中职专用】《中国历史》.pptx
- 讲好红色故事传承红色精神红色革命故事学习PPT.pptx VIP
- 心理健康指导师考试题库及答案.doc VIP
- 电子基础培训介绍.pptx VIP
- 离心式压缩机培训PPT.pptx VIP
- 犯罪心理学大学校园故意杀人罪的分析以云南大学学生马加爵杀人案为例.pdf
- SLT 631.1-2025 水利水电工程单元工程施工质量验收标准 第1部分:土石方工程.docx
- 高考历史判断题练习及答案.docx VIP
文档评论(0)