结构化程序设计

《结构化程序设计》由会员分享，可在线阅读，更多相关《结构化程序设计（9页珍藏版）》请在装配图网上搜索。

1、单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,*,目 录,上一页,下一页,退 出,要 点,循环嵌套经典例题：,1、,水仙花数：该数为一个3位数，且各位数字的立方和刚好等于该数，如 13+53+33=153 则153为水仙花数,2、闰年判断：四年一闰,百年不闰,四百年再闰,(1)能被4整除而不能被100整除（2004年是闰年,1900年不是）,(2)能被400整除（2000年是闰年）,3、,百元买百鸡：公鸡5元/只，母鸡3元/只，小鸡1元/3只，100元刚好买100只鸡，有哪些买法,4、猜灯谜：A B C D,-C D C,-,A B C,5、,图形

2、输出：以*组成各类图形输出：,6、九九乘法表：,7、,杨辉三角：,8、,素数判断：只能被1和自己本身整除的数：,9、最大公约数和最小公倍数：,1,【例】编程输出杨辉三角,1,1 1,1 2 1,1 3 3 1,1 4 6 4 1,1 5 10 10 5 1,规律：,1、等边直角三角形,2、第 N 行的第 1 列和第 N 列为 1,3、除规律2外其他所有数为它上面的数和它上面的数的前一个数的和,input Please input a number:to m,dimension a(m,m),for i=1 to m,for j=1 to i,if j=1 or i=j,a(i,j)=1,els

3、e,a(i,j)=a(i-1,j-1)+a(i-1,j),endif,next,Next,各数组元素赋值,for i=1 to m,for j=1 to i,?a(i,j),next,?,next,输出方式一,for i=1 to m,for j=1 to i,i+1,7*j say str(a(i,j),5),next,?,next,输出方式二,2,6.3,过程及过程调用,Visual FoxPro,与其他高级语言一样，支持结构化程序设计方法，允许将若干命令或语句组合在一起作为整体调用，这些可独立存在并可整体调用的命令语句组合称为过程。,1、调用过程语句，即执行已有的过程。,语句格式：,DO

4、 过程名,WITH ,语句功能：执行以过程名为名的过程,2、过程返回语句，即返回过程的调用处。,语句格式：,RETURNTO MASTERTO过程名,语句功能：将控制返回到调用程序中调用命令的下一语句,3,6.3.1,外部过程,外部过程：也叫子程序，是以程序文件（.PRG）的形式存储的,【例】分别建立如下程序文件:,*SUB1.PRG,?”*”,RETURN,*MAIN.PRG,SET TALK OFF,For i=1 to 5,DO SUB1,Next,SET TALK ON,4,6.3.2,内部过程,内部过程：把多个过程组织在一个文件中,【例】建立如下程序文件：,*MAIN.PRG,SET

5、 TALK OFF,For i=1 to 5,DO SUB1,Next,SET TALK ON,Procedure SUB1,?”,*,”,RETURN,5,6.3.3,过程调用中的参数传递,1有参过程中的形式参数定义,有参过程中的形式参数定义语句为：,【格式】PARAMETERS,【说明】该语句必需是过程中第一条语句,6,2,程序与被调用过程间的参数传递,（,1,）,DO,命令,中参数称为,实际参数,PARAMATERS,命令,中的参数称为,形式参数,（,2,）实际参数可以是任意合法表达式，形式参数是过程中的局部变量，用来接收对应实际参数的值；在实际应用中，两个,中的参数必须相容，即个数相同

6、，类型和位置一一对应；,（,3,）,Visual FoxPro,的参数传递规则为：,如果实际参数是常数或表达式则传值，如果实际参数是变量则传址，即传递的不是实参变量的值而是实参变量的地址，这样，过程中对形参变量值的改变也将使实参变量值改变。,如果实参是内存变量而又希望进行值传递，可以用圆括号将该内存变量括起来，强制该变量以值方式传递数据,7,【例】用参数传递编程，计算圆的面积。,*,主程序,SET TALK OFF,CLEAR,S=0,INPUT”,请输入圆的半径,:”TO R,DO AREA WITH,R,S,?”,圆的面积为,:”,S,SET TALK ON,*,子程序,PROCEDURE AREA&,计算面积的过程,PARAMETER,X,Y,&,形参说明,Y=pi()*X2,RETURN,8,【思考】计算1！+2！+3！+n！,input n=to n,s=0,p=1,for i=1 to n,do 阶乘 with i,p,s=s+p,next,?s,Return,proc 阶乘,para m,n,n=1,for j=1 to m,n=n*j,next,return,9,