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

pascal顺序结构练习题答案.doc

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

文档评论(0)

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

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

1亿VIP精品文档

相关文档