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 4s=16.000000[例6]键盘输入两个数，交换后输出。［问题分析］（１）明确问题。通过键盘输入两个变量a,b的值，再将a,b的值相交换，然后输出a,b的值。如输入后变量a的值为２，变量b的值为５，经过交换a的值为5,b的值为２。（２）