第四章程序设计(new).ppt

第四章第四章 程序设计初步程序设计初步 结构化程序设计结构化程序设计VFP的程序设计的程序设计 面向对象程序设计面向对象程序设计本章主要内容本章主要内容:程序文件的建立与执行程序文件的建立与执行 程序的控制结构程序的控制结构 多模块程序多模块程序 变量的作用域变量的作用域 一程序文件的建立与执行一程序文件的建立与执行 1程序文件的建立与修改程序文件的建立与修改 程序文件建立与修改在程序文件建立与修改在程序编辑窗口程序编辑窗口进行进行（1）项目管理器项目管理器（2）菜单方式菜单方式（3）命令格式：）命令格式：MODIFY COMMAND 功能：打开文本编辑窗口，用来建立或修改程功能：打开文本编辑窗口，用来建立或修改程 序文件。序文件。说明：建立文件的默认扩展名为说明：建立文件的默认扩展名为.PRG 程程 序序:程序是能够完成一定任务的命令的程序是能够完成一定任务的命令的有序有序集合集合41 程序文件程序文件2程序的运行程序的运行 (1)命令格式：命令格式：DO 功能：执行由文件名表示的程序。功能：执行由文件名表示的程序。(2)菜单方式：菜单方式：选程序菜单选程序菜单 “运行运行”选定选定“文件名文件名”按按“确定确定”按钮按钮 (3)项目管理器方式：项目管理器方式：3程序书写规则程序书写规则 (1)命令分行命令分行 程序中每条命令都以回车键结尾，一行只能写一程序中每条命令都以回车键结尾，一行只能写一 条条命命令令。若若命命令令需需分分行行书书写写，在在行行尾尾加加入入续续行行符符“；”(2)命令注释命令注释 目的：提高程序的可读性目的：提高程序的可读性 注释行：以符号注释行：以符号“*”开头开头 命令注释：以符号命令注释：以符号“&”开头开头二程序文件中的专用命令二程序文件中的专用命令1程序结尾的专用命令程序结尾的专用命令RETURN：结束程序执行，返回到调用它的上级程序继续执行结束程序执行，返回到调用它的上级程序继续执行,允许缺省。允许缺省。CANCEL：终止程序运行，清除程序的私有变量，返回命令窗口。终止程序运行，清除程序的私有变量，返回命令窗口。QUIT：终止程序运行，返回到终止程序运行，返回到Windows。2.清屏语句清屏语句 CLEAR:清空屏幕显示内容清空屏幕显示内容3.输入输出专用命令输入输出专用命令 命令格式：命令格式：say get;default 功能：在屏幕指定行列输出功能：在屏幕指定行列输出say子子句的表达式值句的表达式值,并可修改并可修改 GET子句的变量值。子句的变量值。说明说明:表示在窗口中显示的位置表示在窗口中显示的位置,从从0开始开始.say 子句子句 用来输出数据用来输出数据,get子句用来输入及编辑数据子句用来输入及编辑数据.先显示先显示 say子句表达式的值子句表达式的值,空开一格显示空开一格显示get变量的值变量的值.get子子 句必须遇到句必须遇到read语句才能被执行语句才能被执行4.简单输出语句简单输出语句?表达式表表达式表 例例:?”x=“,x5.键盘输入语句键盘输入语句 INPUT 提示信息提示信息 TO 内存变量内存变量 功能：暂停程序执行，显示提示信息，等待用户从键盘输入功能：暂停程序执行，显示提示信息，等待用户从键盘输入 数据，输入完毕，按回车，系统将所输入的表达式的数据，输入完毕，按回车，系统将所输入的表达式的 值存入指定的内存变量，然后继续执行程序值存入指定的内存变量，然后继续执行程序6.单字符输入语句：单字符输入语句：WAIT WAIT 提示信息提示信息 WINDOW AT 行，列行，列 TIMEOUT N 功能：暂停程序的执行，直到用户输入一个字符或等待时间功能：暂停程序的执行，直到用户输入一个字符或等待时间 到到,程序继续进行。例：程序继续进行。例：WAIT“请检查输入数据请检查输入数据”window 例：例：WAIT “注意注意 现在暂停程序的执行现在暂停程序的执行6秒秒”;WINDOW AT 10,10 TIMEOUT 642 程序的控制结构程序的控制结构 顺序结构顺序结构 程序的基本控制结构程序的基本控制结构 分支结构分支结构 循环结构循环结构 一顺序结构一顺序结构 1定义：程序运行时，按照语句排列的先后顺定义：程序运行时，按照语句排列的先后顺 序，一条接序，一条接 一条地依次执行。一条地依次执行。2.流程图：流程图：开始开始语句语句1语句语句n结束结束例例1:试编一程序试编一程序,能根据记录号修改某设备的价格和部门能根据记录号修改某设备的价格和部门*根据记录号修改设备的价格和部门根据记录号修改设备的价格和部门clearuse sbjlh=12,10 say 请输入记录号请输入记录号:get jlhreadgo jlh4,10 say 请修改第请修改第”+str(jlh)+”个设备的数据个设备的数据:6,10 say 价格价格 get 价格价格8,10 say 部门部门 get 部门部门readuse 例例2：从键盘输入任意两数，求和显示。：从键盘输入任意两数，求和显示。*求和求和Qiuhe.prg clear 2,2 say“请请输输入入第第一一个个数数”get a default 0 read 4,2 say“请输入第二个数请输入第二个数”get b default 0 read c=a+b?”两数之和：两数之和：”,c return例例3：将表：将表STUDENT中的第二条记录和第三条记录互换。中的第二条记录和第三条记录互换。USE STUDENT DIME A(8),B(8)LIST GO 2 SCATT TO A GO 4 SCATT TO B GATH FROM A GO 2 GATH FROM B LIST USE 二分支结构二分支结构1条件语句条件语句 语句格式语句格式1（单条件选择结构）：（单条件选择结构）：IF ENDIF 功能：计算功能：计算的值，若值为真，执行的值，若值为真，执行IF和和ENDIF之之 间的语句，然后执行间的语句，然后执行ENDIF后面的语句后面的语句；若值为假，直；若值为假，直 接执行接执行ENDIF后面的语句。后面的语句。说明说明:IF和和ENDIF必须成对出现必须成对出现;为便于阅读为便于阅读,建议按建议按”分层缩进格式分层缩进格式”书写该语句书写该语句.即即IF和和 ENDIF 首字符对齐首字符对齐,结构内语句序列缩进若干格。结构内语句序列缩进若干格。逻辑表达式逻辑表达式为真为真语句序列语句序列ENDIF后面的语句后面的语句NY例例1：将：将STUDENT表中第一个女生的入学总分减少表中第一个女生的入学总分减少10%。*xgfenshu.prgCLEARUSE STUDENTLOCATE FOR 性别性别=女女IF FOUND()DISP 总学分总学分 REPL 总学分总学分 WITH 90%*总学总学 DISP 总学分总学分ENDIFUSERETURN 语句格式语句格式2：双分支条件语句：双分支条件语句IF ELSE ENDIF功能：计算功能：计算的值，若值为真，执行语句的值，若值为真，执行语句 序列序列1，然后执行，然后执行ENDIF后面的语句；若值为后面的语句；若值为 假，执行语句序列假，执行语句序列2，然后执行，然后执行ENDIF后面的语后面的语 句。句。逻辑表达式逻辑表达式为真为真语句序列语句序列1语句序列语句序列2ENDIF后面的语句后面的语句NY例例1：编编写写程程序序实实现现：输输入入一一个个待待找找学学生生的的学学号号,若若在在STUDENT表表中中找到相应记录，则显示该生信息，否则提示查无此人。找到相应记录，则显示该生信息，否则提示查无此人。Chaxs.prg *程序功能：按学号查找学生程序功能：按学号查找学生 open database jiaoguan use student clear 2,2 say”请输入学号：请输入学号：”get xuehao default space(6)read locate for 学号学号=xuehao if not eof()disp else?”查无此人查无此人”endif close database return IF语句嵌套语句嵌套例例2：计算函数：计算函数 1 X0 Y=0 X=0 -1 X=0 if x0 y=1 else y=0 endifelse y=-1endif?y=,yIIF函数函数语法结构：语法结构：IIF（逻辑表达式，真部分，假部分）逻辑表达式，真部分，假部分）例例1：计算函数：计算函数 Y=4x X=0 15-2x X=0,4*x,15-2*x)?y=,y2多分支语句多分支语句 语句格式：语句格式：DO CASE CASE CASE CASE OTHERWISE ENDCASE 功能：系统依次判断逻辑表达式值是否为真，若某个逻功能：系统依次判断逻辑表达式值是否为真，若某个逻 辑表达式值为真，则执行该辑表达式值为真，则执行该CASE段的语句序段的语句序 列，列，然后执行然后执行ENDCASE后面的语句。后面的语句。说明：说明：do case endcase必须必须成对出现成对出现;遇到多个条件为遇到多个条件为真时真时,也只按第一个条件为也只按第一个条件为真的情况处理；真的情况处理；Otherwise只只能放在所有条件之后，不能能放在所有条件之后，不能插入中间；建议缩进格式写插入中间；建议缩进格式写例例:计算函数计算函数 1 X0 Y=0 X=0 -1 X0 Y=1 CASE X=0 Y=0 CASE X0 Y=-1 ENDCASE?Y=,Y三三.循环结构循环结构1条件循环条件循环 语句格式：语句格式：DO WHILE&设置循环条件设置循环条件&循环体循环体 exit&辅助循环语句辅助循环语句 loop&辅助循环语句辅助循环语句 ENDDO 功能：先判断逻辑表达式，条件为真，执行循环功能：先判断逻辑表达式，条件为真，执行循环 体，遇到体，遇到ENDDO就自动返回到就自动返回到DO WHILE重新重新 判断循环条件是否成立；判断循环条件是否成立；若循环条件为假若循环条件为假,循环就结束。循环就结束。说明：说明：DO WHILE ENDDO须成对出现；须成对出现；循环体内有修正循环条件趋于结束的语句。循环体内有修正循环条件趋于结束的语句。例例1：统计：统计85分以上的学生分以上的学生 人数。人数。CLEARUSE CJN=0DO WHILE NOT EOF()IF 成绩成绩=85 N=N+1ENDIFSKIPENDDO?N例例2：显示最高和最低成绩：显示最高和最低成绩。CLEARUSE CJMAX=成绩成绩MIN=成绩成绩DO WHILE NOT EOF()IF 成绩成绩MAX MAX=成绩成绩ENDIFIF 成绩成绩=90 K1=K1+1 CASE 成绩成绩=80 AND 成绩成绩=70 AND 成绩成绩=60 AND 成绩成绩70 K4=K4+1 ENDDO?”优秀：优秀：”,K1?”良好：良好：”,K2?”中等：中等：”,K3?”及格：及格：”,K4?”不及格：不及格：”,K5 CASE 成绩成绩60 K5=K5+1 ENDCASE SKIP2步长循环步长循环 语句格式：语句格式：FOR=TO STEP EXIT&辅助循环语句辅助循环语句 LOOP&辅助循环语句辅助循环语句 ENDFOR|NEXT 功能：语句执行时，通过比较循环变量值与终值来决定是功能：语句执行时，通过比较循环变量值与终值来决定是 否执否执 行行。步长为正数时步长为正数时，若循环变量，若循环变量 值不大于终值就执行循环体；值不大于终值就执行循环体；步长为负数时步长为负数时，若循，若循 环变量值不小于终值环变量值不小于终值 就执行循环体。执行一旦遇就执行循环体。执行一旦遇 到到ENDFOR或或NEXT，循环变量值即加上步长，然循环变量值即加上步长，然 后返回到后返回到FOR重新与终值比较。重新与终值比较。步长的缺省值为步长的缺省值为1。循环变量增加一个步长值循环变量增加一个步长值ENDIF的下一个语句的下一个语句计算初值、终值、步长计算初值、终值、步长循环变量循环变量=初值初值循环变量超循环变量超过终值过终值语句体序列语句体序列1是是否否例例1：编写计算：编写计算S=1+2+3+100的程序的程序CLEARSUM=0FOR I=1 TO 100 SUM=SUM+IENDFOR?SUM例例2：编写计算：编写计算N！的程序的程序CLEARINPUT N=TO NFACT=1FOR I=1 TO N FACT=FACT*IENDFOR?FACT例例3：从键盘任意输入从键盘任意输入10个数，输出其中的最大数和最小数。个数，输出其中的最大数和最小数。*程序功能：求最大、最小数程序功能：求最大、最小数 zuida.prgDime a(10)ClearFor i=1 to 10 input to a(i)EndforStore a(1)to max,minFor i=2 to 10 if a(i)max max=a(i)endif if a(i)min min=a(i)endifEndfor?”最大数是：最大数是：”,max?”最小数是：最小数是：”,min3扫描循环扫描循环 语句格式：语句格式：SCAN FOR EXIT&辅助循环语句辅助循环语句 LOOP&辅助循环语句辅助循环语句 ENDSCAN 功能：针对当前表进行循环，语句执行时在功能：针对当前表进行循环，语句执行时在 中依次寻找中依次寻找 满足满足FOR条件的记录，并对找到条件的记录，并对找到 的记录的记录 执行执行。缺省的范围是。缺省的范围是ALL。例例1：编一程序，显示所有男同学姓名：编一程序，显示所有男同学姓名。Chaming.prg USE STUDENT SCAN FOR 性别性别=“男男”DISPLAY 姓名姓名 ENDSCAN USE4循环辅助语句循环辅助语句(1)LOOP语句：执行转向循环语句头部继续循环。语句：执行转向循环语句头部继续循环。DO WHILE LOOP ENDDO(2)EXIT语句：退出循环。语句：退出循环。DO WHILE EXIT ENDDO例例:编程计算编程计算S=1+2+3+100，并求并求100之内的之内的 奇数之和。奇数之和。STORE 0 TO I,S,T DO WHILE I100 I=I+1 S=S+I IF INT(I/2)=I/2 LOOP ENDIF T=T+I ENDDO?”1+2+3+100=”,S?”100之内的奇数和之内的奇数和:”,T5.三种循环语句的比较三种循环语句的比较1）控制对数据表中记录进行逐条操作，）控制对数据表中记录进行逐条操作，do while 和和 scan 均可实现，但均可实现，但scan 更方便；更方便；do while 需要借需要借 助助eof(),bof()测试状态，并借助测试状态，并借助continue或或skip移移 动记录指针动记录指针2）若循环次数预先知道，用）若循环次数预先知道，用for语句实现更简洁语句实现更简洁 作业作业 4-1,4-2,4-6,4-743多模块程序多模块程序一一.子程序子程序 1.对于两个具有调用关系的程序文件，称调用程序对于两个具有调用关系的程序文件，称调用程序 为主程序，被调用程序为子程序。为主程序，被调用程序为子程序。调用命令调用命令：DO WITH 功能：主程序执行时遇到功能：主程序执行时遇到DO命令，执行就转向子命令，执行就转向子 程序。调用子程序时参数表中的参数要传程序。调用子程序时参数表中的参数要传 送给子程序。送给子程序。子程序中参数接收命令子程序中参数接收命令：PARAMETERS 功能：指定内存变量以接收功能：指定内存变量以接收DO命令发送的参数值命令发送的参数值 ，返主时把内存变量值回送给调用程序中，返主时把内存变量值回送给调用程序中 相应的内存变量。相应的内存变量。说明：说明：PARAMETERS必须必须是被调用程序的是被调用程序的第第 一个语句一个语句；两者的两者的参数个数参数个数必须必须相同相同。例例:设计一个计算圆面积的子程序设计一个计算圆面积的子程序,并要求在主程序中带参数调用它并要求在主程序中带参数调用它主程序主程序:YMJ=05,10 SAY“请输入圆半径请输入圆半径:”;GET BJ DEFAULT 0READDO JS WITH BJ,YMJ?”YMJ=”,YMJRETURN子程序子程序:*JS.PRGPARAMETERS R,SS=PI()*R*RRETURN二自定义函数二自定义函数 1自定义函数的建立自定义函数的建立 自定义函数的格式：自定义函数的格式：FUNCTION PARAMETERS RETURN 说明：使用说明：使用FUNCTION语句来指出函数名，表示该语句来指出函数名，表示该 函数包含在调用程序中，若缺省，表示此函数函数包含在调用程序中，若缺省，表示此函数 是是一一个个独独立立文文件件;组组成成为为函函数数体体,可可 以为空；以为空；RETURN语句用于返回函数值，缺省语句用于返回函数值，缺省 该语句，则函数返回值为该语句，则函数返回值为.T.,一般必须有。一般必须有。自自 定定义义函函数数存存放放有有三三种种位位置置:调调用用程程序序所所在在文文件件中中 ,单单独独存存放放在在程程序序文文件件中中,存存放放在在过过程程文文件件中中。2 自定义函数的调用：自定义函数的调用：函数名函数名(参数表参数表)例例1：设计一个计算：设计一个计算N！的自定义函数，在主程序中调用的自定义函数，在主程序中调用 它计算它计算M！/N！。！。Jiecheng.prg fact.prg 主程序：主程序：CLEAR INPUT M=TO M INPUT N=TO N?FACT(M),FACT(N),;FACT(M)/FACT(N)RETURN *FACT.PRG PARAMETERS N PRIVATE ALL FA=1 FOR I=1 TO N FA=FA*I ENDFOR RETURN FA 例例2：计算：计算1到到10的立方值。的立方值。主程序：主程序：CLEAR X=1 DO WHILE X=10?X,CUBE(X)X=X+1 ENDDO RETURN *CUBE.PRG PARAMETERS V PRIVATE ALL VT=V*V*V RETURN VT例例3：自定义函数：自定义函数N！Jiecheng1.prgCLEARINPUT M=TO MINPUT N=TO N?FACT(M),FACT(N),FACT(M)/FACT(N)RETURNFUNCTION FACTPARAMETERS NPRIVATE ALLFACT=1FOR I=1 TO N FACT=FACT*IENDFORRETURN FACT例例2：自定义函数月日年和星期几：自定义函数月日年和星期几 DATE.PRG CLEAR?ZDATE()?ZCDOW()FUNCTION ZDATE()YY=STR(YEAR(DATE(),4)MM=STR(MONTH(DATE(),2)DD=STR(DAY(DATE(),2)RETURN YY+“年年”+MM+“月月”+DD+“日日”FUNCTION ZCDOW()DO CASE CASE CDOW(DATE()=MONDAY RETURN 星期一星期一 CASE CDOW(DATE()=TUESDAY RETURN 星期二星期二 CASE CDOW(DATE()=Wednesday RETURN 星期三星期三 CASE CDOW(DATE()=Thursday RETURN 星期四星期四 CASE CDOW(DATE()=Friday RETURN 星期五星期五 CASE CDOW(DATE()=Saturday RETURN 星期六星期六 CASE CDOW(DATE()=Sunday RETURN“星期日星期日”ENDCASE三过程三过程1定义：在一个定义：在一个.PRG文件中设置多个程序模块，文件中设置多个程序模块，并将主程序以外的每个模块定义为一个并将主程序以外的每个模块定义为一个 过程。过程。PROCEDURE PARAMETERS RETURN 过程调用：过程调用：DO WITH 说明：说明：过程存放在调用程序所在文件中，但过程存放在调用程序所在文件中，但 必须放在调用程序代码之后，必须放在调用程序代码之后，例：编写过程计算圆面积。例：编写过程计算圆面积。CLEARINPUT R=TO RAR=0DO AREA WITH R,AR?ARRETURNPROCEDURE AREAPARAMETERS R1,AR1AR1=PI()*R1*R1RETURN四变量的作用域四变量的作用域 1.根据变量的作用域分类，内存变量可分为根据变量的作用域分类，内存变量可分为公共公共 变量变量，私有变量私有变量和和本地变量本地变量3种。种。(1)公共变量公共变量 定义：在任何模块中都可使用的变量称为公共变量。定义：在任何模块中都可使用的变量称为公共变量。命令格式：命令格式：PUBLIC 功能：将内存变量表指定的变量设置为公共变功能：将内存变量表指定的变量设置为公共变 量，量，并将这些变量的初值均赋以并将这些变量的初值均赋以.F.。说明：若下层模块中建立的内存变量要供上层模块说明：若下层模块中建立的内存变量要供上层模块 使使 用，或供其并列模块使用；在命令窗口中用，或供其并列模块使用；在命令窗口中 定义定义 的变量都是公共变量，这些变量不能在的变量都是公共变量，这些变量不能在 程序方式下利用；程序方式下利用；公公 共变量只能用命令清共变量只能用命令清 除，除，RELEASE命令。命令。(2)私有变量私有变量 定义：程序中定义的变量，私有变量仅在定义定义：程序中定义的变量，私有变量仅在定义 它的模块及其下层模块中有效，而在它的模块及其下层模块中有效，而在 定义它的模块运定义它的模块运 行结束时自动清除。行结束时自动清除。命令格式：命令格式：PRIVATE 功能：声明私有变量并隐藏上级模块的同名变量功能：声明私有变量并隐藏上级模块的同名变量 ，使得对该私有变量的操作不影响上级模，使得对该私有变量的操作不影响上级模 块同名变量的值，直块同名变量的值，直 到声明它的程序，过到声明它的程序，过 程或自定义函数执行结束后，程或自定义函数执行结束后，才恢复使用才恢复使用 先前隐蔽的变量。先前隐蔽的变量。说明：参数接收命令说明：参数接收命令 PARAMETERS声明的参声明的参 变量也是私有变量；在一个程序模块中未变量也是私有变量；在一个程序模块中未 加任何说明而直接使用的内存变量；各模加任何说明而直接使用的内存变量；各模 块变块变PRIVATE声明为私声明为私 有变量，就能避有变量，就能避 免重名问题。免重名问题。例：例：A=3B=5DO PP WITH 2*A,B?A,BRETURN*PP.PRGPARA X,YY=X*Y?STR(Y,3)RETURN3本地变量本地变量定义：只能在建立它的模块中使用，而且不定义：只能在建立它的模块中使用，而且不 能在高层或底层模块使用，该模块运能在高层或底层模块使用，该模块运 行结束时，本地变量就自动释放。行结束时，本地变量就自动释放。命令格式：命令格式：LOCAL 功能：将功能：将指定的变量设置为本指定的变量设置为本 地变量，地变量，并将这些变量的初值均赋并将这些变量的初值均赋 以以.F.。注意：注意：LOCAL不能缩写。不能缩写。例：公共变量、私有变量、局部变量示例例：公共变量、私有变量、局部变量示例。clear public a&建立公共变量建立公共变量 dime b(2)&建立主程序的私有数组建立主程序的私有数组 a=1 b(1)=2 b(2)=3 do sub1?”main:”,a,b(1),b(2)procedure sub1 private a&声明声明sub1的私有变量，的私有变量，屏蔽公共变量屏蔽公共变量 local b(2)a=10 b(1)=20 b(2)=30 do sub2?”sub1:”,a,b(1),b(2)returnProcedure sub2a=100b(1)=200b(2)=300?”sub2:”,a,b(1),b(2)return例例:*EX2.PRG PUBLIC A A=1 C=5 DO SUB?”EX2:”,A,B,C RETURN*SUB.PRGPRIVATE CA=A+1PUBLIC BB=2C=3D=4?”SUB:”,A,B,C,DRETURN程序的三种控制结构：顺序结构、选择结构、和程序的三种控制结构：顺序结构、选择结构、和 循环结构是本章的重点内容。循环结构是本章的重点内容。难点：程序模块间的参数传递，以及解决具体问难点：程序模块间的参数传递，以及解决具体问 题的算法设计题的算法设计 本章小结本章小结 作业：作业：4-13,4-14