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

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