第五章 程序设计基础[精选].pptVIP

第五章 程序设计基础 5.1 程序设计概述 5.2 结构化程序设计 5.3 面向对象的程序设计基础 程序设计的优点（与交互式相比） 程序自动执行多条命令，省去了键入大量字符的麻烦，并且节约了宝贵的时间。 程序可被修改并重新运行,且可多次运行. 一个程序可调用其他程序。 程序中可使用结构化程序设计命令来控制运算的流程。 1、过程或函数可以放在一般程序的后边，不能把可执行的主程序代码放在过程或函数之后； 2、将过程或自定义函数保存为独立的程序文件； 3、建立包含多个过程和自定义函数的过程文件； 4、 过程或函数可以保存在数据库的存储过程中。 向过程或函数传递参数 为了使过程或函数具有一定的灵活性，可以向过程或自定义函数传递参数。 参数语句格式为： PARAMETERS 参数表 注意：如果有参数语句，则该语句必须为PROCEDURE或FUNCTION命令后的第一条语句。 参数表也称为虚参，最多可允许27个参数，参数之间用逗号分开。 例如： FUNCTION F1 PARAMETER K1，K2，K3 ………… ENDFUNC 例：函数定义 function myudf1 parameters r s=3.1415926*r*r return s endfunc 例：过程定义 Procedure myudf2 parameters r,s s=3.1415926*r*r endproc P147例5.15:定义一个函数ntoc(),当传递 给一个0~9之间的数字时,返回一个中文的“零~九” FUNCTION ntoc PARAMETER d LOCAL s S=零一二三四五六七八九 RETURN substr(s,d*2+1,2) ENDFUNC 函数与过程的区别 1、定义的区别 procedure function 函数要返回值 2、调用的区别 过程用DO 语句调用 函数出现在表达式中，注意函数返回值的类型。 作业 1、计算 S=1/1!+1/2!+1/3!+……+1/20! 2、计算并显示任意输入的整数的因子。 方法一： 方法二： SET TALK OFF SET TALK OFF S=0 S=0 N=0 DO WHILE N=100 FOR N=0 TO 100 STEP 2 IF MOD(N,2)=0 S=S+N S=S+N ENDFOR ENDIF N=N+2 ?S ENDDO ?S 综合2：求1至100之间的偶数和 两种循环结构比较 在循环语句中两条重要的命令： LOOP:如果循环体中含有LOOP语句，则当执行到LOOP 语句时，将跳过LOOP后面的所有语句，重新开始循环 EXIT:如果循环体中含有EXIT语句，则当执行到EXIT 语句时，将跳过EXIT后面的所有语句，强行退出循环 循环体 Loop语句 Exit语句 补充：下面的例子随机产生一个70-80之间的数： x=0 DO WHILE .T. 循环条件始终满足 X=RAND()*100 IF x70 AND (1) ______(2) ENDIF ENDDO ?X X80 EXIT Sum=0 for n=1 to 100 If mod(n, 2)=0 　　判断N如果是偶数 loop 返回到FOR且使N=N+1 endif Sum=Sum+n If Sum=100 　　判断是否已大于100 Sum=Sum-n exit 跳出FOR循环跳到？SUM语句 endif Endfor ?sum 含loop 和exit 语句的例子： 求连续奇数的和且和小于10