Pascal顺序结构程序设计作字业(含答案).docVIP

第1题：完善下列程序： 问题：给出半径R=100，高H=30，求圆周长、圆面积、圆柱全面积。 源程序： program lx1(input,output); var (1):real; begin len:=2*pi*r; s:=(2); qs:=len*h+2*s; writeln(len=,len,s=,sm,qs=,qs); end. 解：我们可以看到变量pi,r,s,qs,len,h均未定义。则（1）为pi,r,s,qs,len,h 由圆面积公式可以很容易得到（2）：pi*r*r 注：这一题题目有错，pi,r,h变量未定义。同学们可以自行加上，但不可以不加。 如在begin下加 pi:=3.1415926; r:=100; h:=30; ? 第2题：编写一程序，当程序执行时，输入以秒为单位的时间，输出形式为：“小时:分:秒” 解：这一题用到两个标准函数：mod和div,mod指取余,div指取整商。 用puts表输入，用hours表小时，用minutes表分钟，用seconds表秒。 程序如下： program name; var puts,hours,minutes,seconds:integer; begin read(puts); hours:=puts mod 3600; puts:=puts div 3600; minutes:=puts mod 60; seconds:=puts div 60; writeln(hours,:,minutes,:,seconds) end. 同学们可以看到puts是输入变量，也是临时变量，变了两次值，仔细想想是如何变化的。 ? 第3题：编写一程序，输入一个三位数的正整数，输出时反向输出。如：输入456,输出654。 解：这一题如果学了数组很简单，没有的话就要用mod和div函数，请同学们在理解上一题的 基础上看下面的程序。 program name; var three:integer; begin read(three); for i:=1 to 3 do begin write(three mod 10); three:=three div 10; end; end. 本程序用到一个for循环,指循环执行三次。同学们想一想最后three的值是什么？对了！是0！ ? 第4题：编写一个程序，输入两个实数a,b，求a,b的乘积。（尤其当a,b两数比较大时，看一下输出结果。） 解：这一题主要是范围问题。 program name; var a,b:real; begin read(a,b); write(a*b); end. 虽然实数范围很大可达到10-38--10+38之间，但更大则会:Floating point overflow. ［例5］已知上底、下底和高，求梯形的面积。 ［问题分析］ （１）明确问题。求梯形的面积，已知上底、下底和高，由公式得： ??????????梯形面积＝（上底＋下底）＊高/２ （２）分析问题。如果梯形的上底用a表示，下底用b表示，高用h表示，梯形面积用s表 示，用梯形面积公式为：s=(a+b)*h/2 根据题意，算法可以这样设计： １.输入梯形的上底a、下底b和高h; 2.求出梯形面积s=(a+b)*h/2; 3.输出结果s. （３）设定变量的类型。这里使用的变量a、b、h、s都应设定为实型数。 （４）程序编制如下： program p4-9(input,output); ????var ????????a,b,h,s:real; ????begin ????????writeln(input a, b,h:); ????????readln(a,b,h); ????????s:=(a+b)*h/2; ????????writeln(s=,s:12:6); ????????readln ????end. 运行结果： input a,b,h:3 5 4 s=16.000000 [例6]键盘输入两个数，交换后输出。 ［问题分析］（１）明确问题。通过键盘输入两个变量a,b的值，再将a,b的值相交换， 然后输出a,b的值。如输入后变量a的值为２，变量b的值为５，经过交换a的值为5,b的 值为２。 （２）分析问题。如果输入的两个数舍为a,b，在交换前要设定一个变量c