程序设计实例(专升本)-精品文档.ppt

《程序设计实例(专升本)-精品文档.ppt》由会员分享，可在线阅读，更多相关《程序设计实例(专升本)-精品文档.ppt（44页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VFPVFP程序设计实例程序设计实例2009年专升本辅导年专升本辅导1、计算计算S=1+2+100的值。（求和、统计）的值。（求和、统计）程序设计二：程序设计二：程序设计二：程序设计二：set talk offset talk off s=0 s=0 I=1 I=1 Do while I=100 Do while I=100 S=S=s+Is+I I=I+1 I=I+1 EnddoEnddo?累加和累加和累加和累加和s=,ss=,sset talk onset talk onreturnreturn程序设计一：程序设计一：程序设计一：程序设计一：set talk offset talk off

2、 s=0 s=0 Do while I=100 Do while I=100 S=S=s+Is+I I=I+1 I=I+1 EnddoEnddo?累加和累加和累加和累加和s=,ss=,sset talk onset talk onreturnreturn1INPUT命令命令格式格式:INPUT TO 功能功能:显示提示信息显示提示信息,暂停程序运行暂停程序运行,等待用户从键等待用户从键盘输入盘输入除备注型除备注型、屏幕型屏幕型以外的任何类型数据以外的任何类型数据,以回以回车键结束输入。车键结束输入。字符型数据必须用定界符括起来字符型数据必须用定界符括起来;逻辑型数据必逻辑型数据必须用圆点定界符

3、括起来须用圆点定界符括起来;日期型数据按日期型数据按 CTOD()格式或格式或YYYY-MM-DD格式格式;数值型数据不需要任何定界符。数值型数据不需要任何定界符。二、二、VFPVFP交互式的输入语句交互式的输入语句 1INPUT命令命令例：例：INPUT命令使用示例命令使用示例 INPUT 请输入姓名请输入姓名:TO aa 请输入姓名请输入姓名:“夏天夏天”或或 夏天夏天 或或 夏天夏天 INPUT 请输入出生日期请输入出生日期:TO bb 请输入出生日期请输入出生日期:CTOD(09/12/85)或：或：1985/09/12 INPUT 请输入成绩请输入成绩:TO cc 请输入成绩请输入成

4、绩:92.5 INPUT 是否代培是否代培:TO dd 是否代培是否代培:.F.2ACCEPT命令命令格式格式:ACCEPT TO 功能功能:显示提示信息显示提示信息,暂停程序运行暂停程序运行,等待用户从键盘等待用户从键盘输入输入字符串字符串给给。例例6.3 键盘输入表文件名。键盘输入表文件名。ACCEPT 请输入数据表文件名请输入数据表文件名:TO FILEN USE&FILEN LIST运行后运行后：请输入数据表文件名：请输入数据表文件名:学生学生 程序执行时，屏幕上显示提示信息程序执行时，屏幕上显示提示信息“请输入数据表文件名请输入数据表文件名:”，当用户，当用户输入表文件名如：学生，程

5、序继续执行并打开输入表文件名如：学生，程序继续执行并打开“学生学生”表，并以列表的形式表，并以列表的形式显示表文件的全部记录及字段内容。显示表文件的全部记录及字段内容。3WAIT命令命令 格式格式:WAIT TO WINDOW AT，NOWAIT CLEAR/NOCLEAR TIMEOUT 功能功能:使正在运行的程序暂停使正在运行的程序暂停,直到用户从键盘输入直到用户从键盘输入任意字符或单击鼠标时，继续程序的执行。任意字符或单击鼠标时，继续程序的执行。例 6.2 WAIT命令使用示例 WAIT 请选择 06:TO K WINDOW TIMEOUT 10 请选择 06:当用户按键选择或等待时间超

6、过10秒，提示窗口关闭，继续往下执行程序 顺序结构顺序结构：按语句排列顺序执行：按语句排列顺序执行分支结构分支结构：根据条件执行不同的：根据条件执行不同的 程序分支程序分支 循环结构循环结构：重复执行一段代码：重复执行一段代码三、程序三、程序三种基本的控制结构三种基本的控制结构1 1、顺序结构、顺序结构 语句语句1语句语句2语句语句3open database D:学生管理学生管理学生管理学生管理use 学生学生accept 请输入学生姓名请输入学生姓名:to namelocate for 姓名姓名=namedisplayuse按语句排列顺序执行，是三种结构中最基本、按语句排列顺序执行，是三种

7、结构中最基本、最简单的结构。最简单的结构。例例1：用姓名查询学生信息！：用姓名查询学生信息！条件成立？条件成立？语句块语句块1是是语句块语句块2否否2 2、分支结构、分支结构根据条件执行不同的程序分支，计算机进行逻辑判断的基本根据条件执行不同的程序分支，计算机进行逻辑判断的基本结构。结构。计算机具有逻辑判断的计算机具有逻辑判断的能力，能根据给定的条件成能力，能根据给定的条件成立与否而决定程序转向不同立与否而决定程序转向不同的方向，这些不同的转向就的方向，这些不同的转向就构成了分支结构。构成了分支结构。分支结构中总包含有逻分支结构中总包含有逻辑表达式，分支结构体现的辑表达式，分支结构体现的是计算

8、机的逻辑判断能力。是计算机的逻辑判断能力。常用的分支结构有常用的分支结构有简单简单分支分支、选择分支选择分支和和结构分支结构分支等。等。一、简单分支语句一、简单分支语句(IFENDIF)语句格式：语句格式：IF ENDIF语句语句序列序列Endif的后一条语句的后一条语句 if的前一条语句的前一条语句 逻辑表达式的值逻辑表达式的值.T.F.例例:查询某一学生成绩是否在查询某一学生成绩是否在60分以上。分以上。ACCEPT ACCEPT 学号学号:TO XH:TO XHUSE USE 成绩成绩 LOCATE FOR LOCATE FOR 学号学号=XH =XH CJ=CJ=成绩低于成绩低于 60

9、 60 分分 IFIF 成绩成绩=60 =60 CJ=CJ=成绩成绩 60 60 分以上分以上 ENDIFENDIF?CJ?CJ USEUSE语句格式：语句格式：IF ELSE ENDIF语句序列语句序列1Endif的后一条语句的后一条语句 if的前一条语句的前一条语句 逻辑表达式的值逻辑表达式的值.T.F.语句序列语句序列2二、选择分支语句二、选择分支语句(IFELSEENDIF)例：用选择分支语句例：用选择分支语句,重新编写上例程序。重新编写上例程序。ACCEPT “学号学号:”TO XHUSE 成绩成绩 LOCATE FOR 学号学号=XH IF 成绩成绩=60?成绩成绩 60 分以上分

10、以上 ELSE?成绩低于成绩低于 60 分分 ENDIF USE二、选择分支语句二、选择分支语句(IFELSEENDIF)三、分支语句嵌套三、分支语句嵌套 在解决许多复杂问题时在解决许多复杂问题时,需要需要将多个分支语句相互结合起来使用将多个分支语句相互结合起来使用,形成了分支语句的形成了分支语句的嵌套嵌套形式。形式。在分支语句中在分支语句中 IF 必须和必须和 ENDIF 配对。系统在执行分支语配对。系统在执行分支语句时句时,由由 IF 语句的最内层开始语句的最内层开始,逐层将逐层将 IF 和和 ENDIF 配对。所以配对。所以在多层分支嵌套时尤应注意配对关在多层分支嵌套时尤应注意配对关系系

11、,以免配对错误引起逻辑错误。以免配对错误引起逻辑错误。INPUT TO XINPUT TO YINPUT TO ZIF X=Y IF X=Z MAX=X ELSE MAX=Z ENDIFELSE IF Y=Z MAX=Y ELSE MAX=Z ENDIFENDIF?MAX例例4:求求 X、Y、Z 三个数中的最大值三个数中的最大值INPUT TO XINPUT TO YINPUT TO Z?Max(x,y,z)语句格式：语句格式：DO CASE CASE CASE CASE OTHERWISE ENDCASE逻辑表达式逻辑表达式1逻辑表达式逻辑表达式2语句序列语句序列1语句序列语句序列2逻辑表达

12、式逻辑表达式N语句序列语句序列N语句序列语句序列N+1.是是是是是是是是否否否否否否否否四、结构分支语句四、结构分支语句结结构构分分支支语语句句根根据据 N 个个条条件件表表达达式式的的逻逻辑辑值值,选选择择执执行行 N+1 个语句行序列中的一个。个语句行序列中的一个。执执行行 DO CASE-ENDCASE 语语句句时时,首首先先逐逐个个检检查查每每个个 CASE 项项中中的的条条件件表表达达式式,当当某某个个条条件件表表达达式式的的值值为为“真真”时时,就就执执行行这这一一 CASE 项项下下的的语语句句行行序序列列,然然后后结结束束整整个个 DO CASE-ENDCASE 语语句句,去去

13、执执行行 ENDCASE 后后面面的的语语句句。若若所所 有有 的的 CASE 项项 下下 的的 条条 件件 表表 达达 式式 都都 为为“假假”时时,则则 执执 行行 OTHERWISE 项项下下的的语语句句行行序序列列,然然后后去去执执行行 ENDCASE后后面的语句。面的语句。注意注意：在整个在整个 DO CASE-ENDCASE 语句中语句中,每次最多只有一个语句行序每次最多只有一个语句行序列被执行列被执行。在多个。在多个 CASE 项的条件表达式都为真时项的条件表达式都为真时,系统只能执行位置在最系统只能执行位置在最前面的前面的 CASE 项下的那个语句行序列。项下的那个语句行序列。

14、在处理多分支的问题时在处理多分支的问题时,最好使用结构分支语句最好使用结构分支语句,使程序结构层次清晰、使程序结构层次清晰、简明，减少编写的错误简明，减少编写的错误,增加程序的可读性。增加程序的可读性。四、结构分支语句四、结构分支语句结构分支举例结构分支举例计算分段函数的值：计算分段函数的值：CLEAINPUT “输入输入X值值:“TO xDO CASE CASE X0 F=X-1 CASE X3 F=2*X+5 CASE X5 F=X+1 CASE X8 F=5*X-3 OTHERWISE F=7*X+2ENDCASE?”F(“,X,”(=“,FRETURN 在处理实际问题的过程中在处理实际

15、问题的过程中,往往需要重复某些相同的步骤往往需要重复某些相同的步骤,即对一段程序进行重复的操作。实现重复操作的程序即对一段程序进行重复的操作。实现重复操作的程序,称为循称为循环结构程序。循环结构同分支结构一样环结构程序。循环结构同分支结构一样,是程序设计中不可缺是程序设计中不可缺少的语句。少的语句。条件满足？条件满足？是是循环体循环体否否循环体循环体条件满足？条件满足？是是否否根据条件或计数要求重复执行一段代码。根据条件或计数要求重复执行一段代码。3 3、循环结构、循环结构语句格式：语句格式：FOR=TO STEP NEXT语句功能：语句功能：重复执行重复执行，直到，直到的值的值大于大于执行执

16、行次数次数=Int(循环终止值循环终止值-循环起始值循环起始值)/步长）步长）+1 一、计数循环一、计数循环 FOR NEXT语句语句例例5:计算计算 1+2+3+100 的和。的和。S=0FOR I=1 TO 100 S=S+INEXT?1+2+3+100=,S一、计数循环一、计数循环 FOR NEXT语句实例语句实例例例 计算各阶乘之和计算各阶乘之和 S=1!+2!+3!+100!。首先，计算首先，计算n!的程序代码为：的程序代码为：T=1FOR I=1 TO N T=T*IENDFOR*此程序此程序代码代码段中，循环体重复执行段中，循环体重复执行N次，次，I的值依次取的值依次取1、2、N

17、，T的值依次为的值依次为1！、！、2！、！、N!。&计算各阶乘之和的程序代码为：计算各阶乘之和的程序代码为：S=0T=1FOR I=1 TO 100 T=T*I S=S+TENDFOR？”!+2!+3!+100!”,S一、计数循环一、计数循环 FOR NEXT语句实例语句实例:计算各阶乘之和的程序代码之二计算各阶乘之和的程序代码之二(方法二方法二)：S=0FOR n=1 TO 100 T=1 FOR m=1 TO n t=t*m ENDFOR S=s+tENDFOR？”!+2!+3!+100!”,S格式：格式：DO WHILE LOOP EXIT ENDDO二、条件循环二、条件循环DO WHI

18、LE ENDDO语句语句功能功能:重复判断重复判断的逻辑值的逻辑值,当其值为当其值为“真真”时时,反复执行反复执行 DO WHILE 与与EDNDO 之间之间的语句的语句;当其值为当其值为“假假”时时,退出循环并执行退出循环并执行 ENDDO 后面的语句。后面的语句。逻辑表达式的值逻辑表达式的值=？循循环环体体LOOPEXITENDDOENDDO后面的后面的语句语句.T.F.执行过程执行过程:(1)当当程程序序执执行行到到 DO WHILE 时时,计算条件表达式的值。计算条件表达式的值。(2)若若条条件件表表达达式式的的值值为为“假假”,结结 束束 循循 环环,执执 行行ENDDO后面语句。后

19、面语句。(3)若若条条件件表表达达式式的的值值为为真真,执执行行 DO WHILE 后后面面的的语句。语句。(4)遇遇到到LOOP或或ENDDO时时,返返回回DOWHILE,重重复复执执行行(1)-(3)。(5)遇遇到到EXIT时时,结结束束循循环环,转转到到ENDDO后后面面的的语语句句去去执行。执行。二、条件循环二、条件循环DO WHILE ENDDO语句语句例例6：计算计算1+2+3+100S=0N=1DO WHILE N=100S=S+NN=N+1ENDDO?1+2+3+.+100=,S 例例7:显示学生表中所有男生的记录。显示学生表中所有男生的记录。USE 学生学生DO WHILE.

20、NOT.EOF()IF 性别性别=男男 DISPLAY WAIT ENDIF SKIPENDDOUSE二、条件循环二、条件循环DO WHILE ENDDO语句实例语句实例语句格式：语句格式：SCAN FOR|WHILE ENDSCAN语句功能：语句功能：对当前数据表中指定范围内符合条件的记录，执行对当前数据表中指定范围内符合条件的记录，执行。：指定作用范围，：指定作用范围，缺省指数据表内的缺省指数据表内的所有记录所有记录。FOR：只有符合条件的记录才进行操作只有符合条件的记录才进行操作WHILE：当遇到第一个不符合条件的记录时终止当遇到第一个不符合条件的记录时终止三、条件循环三、条件循环SCA

21、N ENDSCAN语句语句例例8：显示：显示“学生学生”表表中所有男生中所有男生的记录的记录。USE 学生学生 SCAN FOR 性别性别=“男男”DISPLAY ENDSCAN三、条件循环语句（三、条件循环语句（SCAN ENDSCAN）实例实例例：显示例：显示“成绩成绩”表中所有成绩在表中所有成绩在60以上的记录。以上的记录。USE 成绩成绩 SCAN FOR 成绩成绩=60DISPLAY ENDSCAN 如果在一个循环程如果在一个循环程序的循环体内又包含着序的循环体内又包含着另一些循环另一些循环,就构成多就构成多重循环重循环,或称循环嵌套。或称循环嵌套。循环嵌套的层次不限循环嵌套的层次不

22、限,但内层循环必须完全嵌但内层循环必须完全嵌套在外层循环之中。用套在外层循环之中。用多重循环处理复杂问题多重循环处理复杂问题,逻辑性强逻辑性强,结构简单。结构简单。右边给出循环嵌套右边给出循环嵌套的一般结构示意图的一般结构示意图:四、多重循环四、多重循环(循环嵌套循环嵌套)DO WHILE DO WHILE DO WHILE ENDDO ENDDO ENDDO 下面的循环嵌套是正确的下面的循环嵌套是正确的:注意：循环不能交叉！注意：循环不能交叉！注意：下面的循环嵌套交叉，是错误的:例例9：显示九九乘法表。：显示九九乘法表。N=1DO WHILE N=9 M=1 DO WHILE MM?N EN

23、DIFENDFORRETURN 判断一个数判断一个数n是否为是否为素数的方法是：用素数的方法是：用3到到(n-1)的各个整数依的各个整数依次去除次去除n，如果除不，如果除不尽，尽，n就是素数。如就是素数。如果讲究效率果讲究效率,只需除只需除到到INT(SQRT(n)即可即可。素数素数:除了除了1和它本身外和它本身外不能被任何一个整数不能被任何一个整数所整除的自然数所整除的自然数典型的过程程序设计典型的过程程序设计1、累加：、累加：如：如：S=1+2+3+4+n S=2+4+6+2n S=1+3+5+2n-12、累乘（阶乘）：、累乘（阶乘）：如：如：P=1*2*3*n=n!P=1*3*5*7*(

24、2n-1)3、找出最大的数和最小数。、找出最大的数和最小数。4、分段函数的求解。、分段函数的求解。练习：练习：1、从键盘输入10个数，然后找出其中之一最大值和最小值。2、党费收取是按工资收入标准确定，假设基本工资500元以下，按1%缴；基本工资在500-1200元，按1.5%缴；基本工资在1200-1800元，按1.8%缴；基本工资在1800-2400元，按2.0%缴；基本工资在2400元及其以上，按2.5%缴。编写程序实现自动计算缴费金额。程序设计时常常有些运算和处理程程序设计时常常有些运算和处理程序是相同的序是相同的,只是每次可能以不同的参只是每次可能以不同的参数参与程序运行。因此数参与程

25、序运行。因此,将重复出现或将重复出现或能单独使用的程序写成可供主程序调用能单独使用的程序写成可供主程序调用的子程序或过程的子程序或过程。主程序中按一定方式。主程序中按一定方式调用其它程序调用其它程序(过程、自定义函数过程、自定义函数),在在执行完调用的程序后执行完调用的程序后,再返回到调用它再返回到调用它的主程序并继续往下执行。的主程序并继续往下执行。程序文件可以嵌套调用。在运行程程序文件可以嵌套调用。在运行程序文件的过程中序文件的过程中,当遇到当遇到 DO 命令命令,就要暂时终止当前程序文件的就要暂时终止当前程序文件的执行执行,转去运行另一个程序转去运行另一个程序(子程序或过子程序或过程程)

26、,当另一个程序执行完毕当另一个程序执行完毕,再返回程再返回程序终止处继续向下执行。序终止处继续向下执行。6.4 6.4 模块与模块调用模块与模块调用 在结构化的在结构化的程序中，程序程序中，程序被分为一个被分为一个主主模块模块和若干个和若干个子模块子模块，其中，其中各个子模块分各个子模块分别用于处理各别用于处理各个小问题个小问题，再再由主模块自顶由主模块自顶向下的调用各向下的调用各子模块来解决子模块来解决整个问题整个问题。do sub1Do sub2return return return子程序子程序sub1.prg子程序子程序sub1.prg主程序主程序子程序：子程序：供主程序调用的、独立存

27、储的程序文件供主程序调用的、独立存储的程序文件例如：有两个子程序例如：有两个子程序sub1.prg、sub2.prg，它它们被主程序们被主程序main.prg调用调用6.4.1 过程及过程调用过程及过程调用 一个完整的应用程序（对任何表进行录入、修一个完整的应用程序（对任何表进行录入、修改、查询、删除的程序），它由下列程序文件组成：改、查询、删除的程序），它由下列程序文件组成：主程序：主程序：Exam17.prg 显示文本菜单显示文本菜单子程序：子程序：e17input.prg 选择选择1，输入记录，输入记录 e17modi.prg 选择选择2，修改记录，修改记录 e17query.prg 选

28、择选择3，查询记录，查询记录 e17del.prg 选择选择4，删除记录，删除记录 一个独立的程序块，放在过程文件一个独立的程序块，放在过程文件中。中。过程的名字为过程的名字为 18 个字符个字符,没有没有扩展名扩展名,每个过程以每个过程以 PROCEDURE 语句起始语句起始,以以 RETURN 语句终止。过程不能作为一个程序来独语句终止。过程不能作为一个程序来独立运行立运行,因而称为因而称为内部过程内部过程。二、过程二、过程(内部过程内部过程)过程文件由若干各自独立的过程组成过程文件由若干各自独立的过程组成,形式形式如下：如下：PROCEDURE PROCEDURE PROCEDURE 6

29、.4.2 过程文件过程文件：存放过程的文件：存放过程的文件Set Procedure to 如果该命令没有参数，则关闭当前打开的如果该命令没有参数，则关闭当前打开的过程文件。过程文件。也可用下列命令关闭过程：也可用下列命令关闭过程：Close Procedure 或或 release procedure 过程文件的打开与关闭：过程文件的打开与关闭：在调用过程之前，必须先打开过程文件。在调用过程之前，必须先打开过程文件。打开过程文件的命令为：打开过程文件的命令为：带参数的调用语句带参数的调用语句:DO With 参数语句参数语句 PARAMETERS 以上两条语句必须配合使用以上两条语句必须配合

30、使用,前一条放在主程序中前一条放在主程序中,后一条放在被调用的过程中。后一条放在被调用的过程中。6.4.3 带参数的过程调用带参数的过程调用参数传递过程如下参数传递过程如下:在调用过程时在调用过程时,将将 DO 语句中的参数值传递给语句中的参数值传递给 PARAMETERS 语句中的参数语句中的参数;调用终止时调用终止时,返回对应参数的计算值。返回对应参数的计算值。通常通常 PARAMETERS 语句中的参数是语句中的参数是内存变量内存变量,为为形式参数形式参数,DO 语句中的参数为语句中的参数为实参数实参数。*子程序：子程序：YMJ.prgPARAMETERS R,SS=3.1416*R*R

31、RETURN*主程序主程序:S=0INPUT 半径半径=TO XDO YMJ WITH,Y?园面积园面积=,Y1.带参数过程调用带参数过程调用(实例实例)若若X=5园面积园面积=78.54例例11:计算园面积。计算园面积。2.自定义函数自定义函数*过程文件：过程文件：圆面积函数圆面积函数.prgprocedure circleS(x)return 3.1416*x*xendproc*主程序主程序Set procedure to 园面积函数园面积函数input 半径半径r=to r?半径半径=,r?面积面积=,circleS(r)set procedure toReturnprocedure circleS(x)return 3.1416*x*xendproc6.4.4 过程嵌套调用过程嵌套调用Visual FoxPro 中允许执行一个过程时中允许执行一个过程时,调调用第二个过程用第二个过程;执行第二个过程时执行第二个过程时,调用第三个过程。调用第三个过程。这样一个接一个地调用下去这样一个接一个地调用下去,称为过程嵌套调用。系统称为过程嵌套调用。系统允许这种嵌套最多允许这种嵌套最多126层。层。主程序主程序 过程过程1 过程过程2.DO 过程过程 1 DO 过程过程 2 DO 过程过程 3.RETURN RETURN RETURN