第六章节程序设计20100601.pptVIP

第六章 程序设计 6.1 程序文件的建立与运行 6.1.1 程序文件的建立 1、命令方式建立程序文件 格式：MODIFY COMMAND [程序文件名] 功能：打开程序编辑窗口，从中可以修改或创建程序文件。 2、程序文件的保存、打开 （1）程序文件的保存 Ctrl+W （2）程序文件的打开 MODIFY COMMAND 程序文件名 6.1.2 程序的运行 格式：DO 程序文件名 6.2 交互式的输入命令 1. 字符型数据输入命令ACCEPT 格式：ACCEPT [提示信息] TO 内存变量 功能：暂停程序的执行，等待用户输入一个字符串给 变量。 [例] 编一程序，将人事数据表打开，在程序运行中输入人员姓名，显示指定姓名的人员记录。 例：中途暂停。 ACCEPT 请输入库名： TO K USE K List next 3 Skip Wait List next 3 Wait 6.3 程序的控制结构 [例]利用循环语句计算并显示X=1+2+3+……+N的值(N的值由键盘输入)。 Input “n=?” to n X=0 I=1 Do while I=n X=x+I I=I+1 Enddo ?”x=”,x 例：利用循环语句计算并显示X=1+3+5+……+N的奇数之和,(奇数N的值由键盘输入)。 例：求N的阶乘N！=1×2×3×4×……×N 。 例:运行下列程序后，语句?“123”被执行的次数是（ ） I=0 DO WHILE I10 IF INT(I/2)=I/2 ?123 EDNIF ?ABC I=I+1 ENDDO 例:有如下程序： DIMENSION K(2,3) I=1 DO WHILE I=2 J=1 DO WHILE J=3 K(I,J)=I*J ??K(I,J) ??  J=J+1 ENDDO ? I=I+1 ENDDO 运行此程序的结果是（ ）. 例：显示rsb表中的男教师。 USE rsb DO WHILE .NOT. EOF() IF 性别=’女’ SKIP LOOP ENDIF DISPLAY SKIP Enddo USE rsb DO WHILE .NOT. EOF() IF 性别=’男’ disp ENDIF SKIP Enddo 例：强制退出循环语句EXIT. x=0 i=1 Do while .t. If i100 Exit Endif x=x+i i=i+1 Enddo ?x 7.3 子程序 自定义函数 例:要求用键盘输入命令input 输入m和n的值，然后用调用依附函数的形式计算m!+n!。 Input “请输入m” to m Input “请输入n” to n S=jc(m)+jc(n) ?s Function jc Parameters j f=1 For i=1 to j step 1 f=f*I Endfor Return f 私有变量若出现同名,而返回到上级程序时，又不想让子程序中变量值影响上级程序中同名变量的值，则可使用PRIVATE语句进行屏蔽. 例: 1、独立用户定义函数 实际上独立用户定义函数就是带参数传递的子程序，差别仅仅是用户定义函数的最后一条RETURN语句后有表达式、以及调用的方式不同。 格式： [PARAMETERS 参数表] [命令序列] RETURN [表达式] 说明：a. [PARAMETERS 参数表]：接受函数运行时传递过来