vfp3-过程程序设计61张课件

21、没有人陪你走一辈子，所以你要适应孤独，没有人会帮你一辈子，所以你要奋斗一生。22、当眼泪流尽的时候，留下的应该是坚强。23、要改变命运，首先改变自己。24、勇气很有理由被当作人类德性之首，因为这种德性保证了所有其余的德性。-温斯顿丘吉尔。25、梯子的梯阶从来不是用来搁脚的，它只是让人们的脚放上一段时间，以便让别一只脚能够再往上登。vfp3_过程程序设计21、没有人陪你走一辈子，所以你要适应孤独，没有人会帮你一辈1vfp3-过程程序设计61张课件2vfp3-过程程序设计61张课件3vfp3-过程程序设计61张课件4vfp3-过程程序设计61张课件5程序的基本结构程序的基本结构 程序程序=输入输入+算法算法+输出输出 基本的输入基本的输入/输出命令输出命令1 1）INPUTINPUT命令命令 格式：格式：INPUT INPUT TO TO 功能：在屏幕上显示功能：在屏幕上显示 ，并，并等待用户通过键盘输入表达式，再把表达式等待用户通过键盘输入表达式，再把表达式的值赋给指定的的值赋给指定的 。程序的基本结构 程序=输入+算法+输出 基6 2 2）ACCEPTACCEPT命令命令格式：格式：ACCEPT ACCEPT TO TO 功能：该命令和功能：该命令和INPUTINPUT类似，不同的是它会把输入内类似，不同的是它会把输入内容作为字符串常量赋值给指定的容作为字符串常量赋值给指定的 。2）ACCEPT命令73 3）基本输出命令）基本输出命令?|?|?格式：格式：?|?|?1，2 功能：计算给定的一个或多个表达式的值，功能：计算给定的一个或多个表达式的值，并将结果显示在屏幕上。并将结果显示在屏幕上。说明：说明：“?”“?”表示在当前光标的下一行输出，表示在当前光标的下一行输出，而而“?”“?”表示在当前光标位置处输出。表示在当前光标位置处输出。3）基本输出命令?|?8 VFP程序的三种基本结构1 1 顺序结构顺序结构顺序结构始终按照程序中语句的先后顺序逐条执行。顺序结构始终按照程序中语句的先后顺序逐条执行。输入圆的半径，计算周长、面积，并显示结果输入圆的半径，计算周长、面积，并显示结果Set talk offClearInput “半径：半径：”to rL=2*r*pi()S=r2*pi()?“圆的周长：圆的周长：”，L?“圆的面积：圆的面积：”，Sreturn VFP程序的三种基本结构1 顺序结构顺序结构始终按照程9顺序结构顺序结构:是一种最基本、最简单的程是一种最基本、最简单的程序结构。如下图所示，先执行序结构。如下图所示，先执行A A，再执行，再执行B B，A A与与B B按照顺序执行。按照顺序执行。ABAB (a)(a)流程图流程图 （b b）N-SN-S图图 顺序结构:是一种最基本、最简单的程序结构。如下图所示，先执行102 2 选择结构选择结构 应用程序在进行数据处理时需要根据不同的条件应用程序在进行数据处理时需要根据不同的条件选择执行不同的操作，使程序的流程根据不同条件来选择执行不同的操作，使程序的流程根据不同条件来决定程序的走向，这种程序结构称为选择结构。在决定程序的走向，这种程序结构称为选择结构。在VFPVFP中是用中是用IFELSEENDIFIFELSEENDIF和和DO CASEENDCASEDO CASEENDCASE来实现的来实现的。2 选择结构 应用程序在进行数据处理时需要根据不同的11选择（或分支）结构选择（或分支）结构:根据条件是否成根据条件是否成立而执行不同的程序模块。立而执行不同的程序模块。P T F A B条件p A B Y N (a)(a)流程图流程图 （b b）N-SN-S图图 选择（或分支）结构:根据条件是否成立而执行不同的程序模块。121 1）IFIF语句语句格式：格式：IF IF 1ELSEELSE 2ENDIFENDIF功能：执行该语句时，若条件表达式的值为功能：执行该语句时，若条件表达式的值为.T.T.，则执行，则执行 1，否则执行，否则执行 2，然后再执行，然后再执行ENDIFENDIF之后的语句之后的语句.1）IF语句13EXM1EXM1：判断某一年是否是闰年。：判断某一年是否是闰年。假如年份用y表示，判断y是否是闰年的方法是：若y能够被400整除或y能够被4整除并且不能够被100整除 y/4=int(y/4)and y/100int(y/100)y/4=int(y/4)and y/100int(y/100)or y/400=int(y/400)or y/400=int(y/400)提示：判断一个整数提示：判断一个整数M M能否被另一个整数能否被另一个整数N N整除，一般整除，一般采用三种方法，采用三种方法，判断判断:MOD(M,N)MOD(M,N)是否等于是否等于0 0INT(M/N)INT(M/N)是否等于是否等于M/NM/NM%N=0M%N=0若等于，则表明若等于，则表明M M能被能被N N整除。整除。EXM1：判断某一年是否是闰年。假如年份用y表示，判14CLEARCLEARINPUT INPUT 请输入年份请输入年份:to y:to yIF y/4=int(y/4)and y/100int(y/100)or IF y/4=int(y/4)and y/100int(y/100)or y/400=int(y/400)y/400=int(y/400)?str(y,4)+?str(y,4)+年是闰年年是闰年 ELSEELSE?str(y,4)+?str(y,4)+年不是闰年年不是闰年 ENDIFENDIFRETURNRETURN结构化方法结构化方法程序设计及运行程序设计及运行CLEAR结构化方法程序设计及运行15编程：编程：1、输入一个数，判断是否为偶数，并显示结果。、输入一个数，判断是否为偶数，并显示结果。2、从键盘输入三个数、从键盘输入三个数a,b,c，按从大到小的顺序重，按从大到小的顺序重新排列，使新排列，使a最大，最大，c最小。最小。编程：16从键盘输入三个数从键盘输入三个数a,b,c，按从大到小的顺序重新排列，使，按从大到小的顺序重新排列，使a最大，最大，c最小。最小。(参考程序参考程序)SET TALK OFFINPUT“输入第一个数输入第一个数”TO AINPUT“输入第二个数输入第二个数”TO BINPUT“输入第三个数输入第三个数”TO CIF ABT=AA=BB=TENDIFIF ACT=AA=CC=TENDIFIF BCT=BB=CC=TENDIF?A,B,CRETUTN从键盘输入三个数a,b,c，按从大到小的顺序重新排列，使a最172 2）多路分支语句）多路分支语句格式：格式：DO CASEDO CASE CASE CASE 1 1 CASE CASE n n OTHERWISE OTHERWISE QENDCASEENDCASE 2）多路分支语句18EXMEXM 5 5：输入月份值，显示对应季：输入月份值，显示对应季节的中文名字（节的中文名字（3,4,53,4,5月为春季，月为春季，6,7,86,7,8月为夏季，月为夏季，9,10,119,10,11月为秋月为秋季；季；12,1,212,1,2月为冬季）。月为冬季）。(参考教材参考教材P56P56例例3-6)3-6)EXM 5：输入月份值，显示对应季节的中文名字（3,4,5月19Set talk offInput “输入月份：输入月份：”to yfdo casecase yf=3 or yf=4 or yf=5jj=春季春季case yf=6 or yf=7 or yf=8jj=夏季夏季case yf=9 or yf=10 or yf=11jj=秋季秋季case yf=12 or yf=1 or yf=2jj=冬季冬季 otherwise jj=“输入错误输入错误”Endcase?jjreturnSet talk off20【例】计算分段函数的值【例】计算分段函数的值21 循环结构能够使某些语句或程循环结构能够使某些语句或程序段重复执行若干次。序段重复执行若干次。3循环结构循环结构 循环结构能够使某些语句或程序段重复执行若干次。322常见的循环结构有：条件循环条件循环步长循环步长循环扫描循环扫描循环涉及数据表的循环，涉及数据表的循环，第第6章介绍章介绍常见的循环结构有：条件循环步长循环扫描循环涉及数据表的循环，231、条件循环结构、条件循环结构命令的基本格式命令的基本格式DO WHILE 条件条件ENDDO功能：可以使程序在功能：可以使程序在DO WHILE 条件条件ENDDO之间反复执行之间反复执行1、条件循环结构24条件条件语句序列语句序列EnddoEnddo之后的语句之后的语句NY条件语句序列Enddo之后的语句NY25循环的控制方式循环的控制方式循环的控制方式循环的控制方式 DO WHILE DO WHILE 条件条件条件条件 LOOP LOOP EXIT EXIT ENDDO ENDDO通过条件来控制循环的执行通过循环控制命令控制循环的执行循环的控制方式通过条件来控制循环的执行通过循环控制命令控制循26循环通常有限定次数的循环和不限定次数的循环两种情循环通常有限定次数的循环和不限定次数的循环两种情循环通常有限定次数的循环和不限定次数的循环两种情循环通常有限定次数的循环和不限定次数的循环两种情况。况。况。况。（1 1）、不限定次数的循环）、不限定次数的循环）、不限定次数的循环）、不限定次数的循环设计思想：循环是否结束由用户控制，方法是：由用户设计思想：循环是否结束由用户控制，方法是：由用户设计思想：循环是否结束由用户控制，方法是：由用户设计思想：循环是否结束由用户控制，方法是：由用户输入特殊信息，然后程序判断是否退出循环。输入特殊信息，然后程序判断是否退出循环。输入特殊信息，然后程序判断是否退出循环。输入特殊信息，然后程序判断是否退出循环。格式：格式：格式：格式：循环的三种使用方法循环的三种使用方法循环通常有限定次数的循环和不限定次数的循环两种情况。循环的三27 DO WHILE .T.ACCEPT “是否继续？（是否继续？（Y/N）”TO S IF UPPER（S）=“N”EXIT ENDIFENDDO DO WHILE .T.28S=“Y”DO WHILE UPPER(S)=“Y”ACCEPT “是否继续？（是否继续？（Y/N）”TO SENDDO S=“Y”29（2）、限定次数的循环限定次数的循环设计思想：循环的次数是固定的。方法是：设计思想：循环的次数是固定的。方法是：设置一个计数器，计算循环的次数，当设置一个计数器，计算循环的次数，当达到固定次数时，程序自动退出循环。达到固定次数时，程序自动退出循环。格式格式1：N=初值 DO WHILE N=终值 N=N+步长 ENDDO循环变量循环变量（2）、限定次数的循环循环变量30FOR N=初值 TO 终值 STEP 步长ENDFORNEXT2 2、步长循环（计数循环）、步长循环（计数循环）格式格式：循环变量循环变量2、步长循环（计数循环）循环变量31 教材P62确定循环变量并赋初值确定循环变量并赋初值(在在FOR中实现中实现)确定循环条件并判断？确定循环条件并判断？(在在FOR中实现中实现)执行循环体中语句序列执行循环体中语句序列循环体变量按步长变化循环体变量按步长变化(在在FOR中实现中实现)执行执行ENDFORENDFOR之后的语句之后的语句 教材P62确定循环变量并赋初值(在FOR中实现)确定32求所有的水仙花数。求所有的水仙花数。(所谓水仙花所谓水仙花数是指一个三位数，其各位数字的数是指一个三位数，其各位数字的立方和等于该数本身。立方和等于该数本身。求所有的水仙花数。(所谓水仙花数是指一个三位数，其各位数字的33循环中的几个重要表达式循环中的几个重要表达式1、计数表达式、计数表达式i=1n=0Do while i=10N=n+1 i=i+1EnddoN=0For i=1 to 10 N=n+1endfor程序举例：从键盘上任意输入程序举例：从键盘上任意输入ASCII字符串，统计大写字母的字符串，统计大写字母的个数。个数。计数变量循环中的几个重要表达式1、计数表达式i=1N=0程序举例：从342、累计表达式、累计表达式S=0N=1Do while n=100S=s+nN=n+1EnddoS=0For n=1 to 100S=s+nendfor程序举例程序举例:EXM7：计算：计算s=1+2+3+n。EXM8：求：求100以内的奇数和。以内的奇数和。累计变量2、累计表达式S=0S=0程序举例:累计变量35例：例：1 1到到n n的奇数和、偶数和的奇数和、偶数和 100 100以内能够被以内能够被X X整除的数之和。整除的数之和。请同学们自请同学们自己写出程序己写出程序例：1到n的奇数和、偶数和请同学们自己写出程序363、阶乘表达式、阶乘表达式S=1N=1Do while n8 Av56:YijB8 显示：显示：568568。请同学们自请同学们自己写出程序己写出程序从左到右逐个取出字符从左到右逐个取出字符x x判断判断x x是数字的条件：是数字的条件：Asc(x)asc(0)and Asc(x)asc(0)and Asc(x)asc(9)Asc(x)8 Av56:YijB8 显示：显示：AYB AYB。输入一串输入一串ASCIIASCII字符，显示小写字母串。假字符，显示小写字母串。假设输入：设输入：Av56:YijB8 Av56:YijB8 显示：显示：vijvij。请同学们自请同学们自己写出程序己写出程序例：输入一串ASCII字符，显示大写字母串。假设输入：Av541循环辅助语句循环辅助语句loop:通常又称为中途复始语句或短路语句。通常又称为中途复始语句或短路语句。exit：通常又称为中途退出语句或循环终止语句。：通常又称为中途退出语句或循环终止语句。注意：适用于注意：适用于3种循环种循环.并且只能用于循环结构语并且只能用于循环结构语句。句。循环辅助语句loop:通常又称为中途复始语句或短路语句。42流程图流程图：条件条件语句序列语句序列LOOPEXITenddoenddo的下一条命令的下一条命令NY流程图：条件语句序列enddo的下一条命令NY43EXMX1EXMX1：将将100100到到150150中中第一个第一个能被能被3 3整除的整除的数找出来。数找出来。For n=100 to 150For n=100 to 150 if n%3=0 if n%3=0?n?n exit exit endif endifendforendfor结束当前循环，跳出结束当前循环，跳出exit所在的循环结构所在的循环结构程序设计及运行程序设计及运行EXMX1：将100到150中第一个能被3整除的数找出来。44EXMX2EXMX2：将：将1010到到2020中所有中所有不能被不能被3 3整除整除的数的数找出来。找出来。for n=10 to 20 for n=10 to 20 if n/3=int(n/3)if n/3=int(n/3)loop loop endif endif?n?n endfor endfor结束本次循环，结束本次循环，转入下一次循转入下一次循环条件的判断环条件的判断程序设计及运行程序设计及运行程序设计及运行程序设计及运行方法方法1 1：不使用辅助语句：不使用辅助语句方法方法2 2：使用辅助语句：使用辅助语句EXMX2：将10到20中所有不能被3整除的数找出来。45x=.t.x=.t.s=0s=0do whil xdo whil xs=s+1s=s+1if s/8=int(s/8)if s/8=int(s/8)?s?selseelselooploopendiendiif s30if s30 x=.f.x=.f.endiendienddenddreturetu结果为结果为 EXMX3EXMX3：写出程：写出程序的结果序的结果x=.t.结果为 EXMX3：写出程序的结果46例：输入一个数，判断是否为质数（素数）。例：输入一个数，判断是否为质数（素数）。Set talk offInput“输入一个正整数输入一个正整数”to xFor i=2 to x-1If x/i=int(x/i)ExitEndifEndforIf ix-1?”该数是质数该数是质数”Else?”该数不是质数该数不是质数”Endifreturn例：输入一个数，判断是否为质数（素数）。47例：输入一个数，判断是否为质数（素数）。例：输入一个数，判断是否为质数（素数）。Set talk offInput“输入一个正整数输入一个正整数”to xM=.t.For i=2 to x-1If x/i=int(x/i)M=.f.ExitEndifEndforIf m=.t.?”该数是质数该数是质数”Else?”该数不是质数该数不是质数”EndifReturn例：输入一个数，判断是否为质数（素数）。48多重循环（了解执行过程）多重循环（了解执行过程）49EXMX5EXMX5：编程打印如下图形。编程打印如下图形。*clearclearfor i=1 to 5for i=1 to 5&控制行控制行 for j=1 to 2*i-1for j=1 to 2*i-1&控制列控制列?*?*endforendfor?endforendforreturnreturn程序设计及运行程序设计及运行EXMX5：编程打印如下图形。clear程序设计及运行50 for i=1 to 6 for i=1 to 6&用于控制行用于控制行?space(6-i)?space(6-i)for j=1 to for j=1 to 2*i-12*i-1?“*”?“*”endfor endfor endfor endfor *EXMX6EXMX6：编程打印图形。：编程打印图形。外循环控制行外循环控制行内循环控制列内循环控制列 for i=1 to 6&用于控制行 51数组在程序中的应用数组在程序中的应用52数组变量数组变量 数数组组是是一一组组有有序序内内存存变变量量的集合。的集合。【例】利用数组完成多个数的赋值并输出。【例】利用数组完成多个数的赋值并输出。(演示演示)教材P70数组变量【例】利用数组完成多个数的赋值并输出。教材P53定义后，它的定义后，它的初始值是初始值是，在使用数组时，一定要注意数在使用数组时，一定要注意数组的组的初始化，还要注意数组初始化，还要注意数组下下标的起始值是标的起始值是 。1 1逻辑值逻辑值.F.F.数组在使用前必须要通过数组在使用前必须要通过DIMENSION或或DECLARE定义。定义。定义后，它的初始值是1逻辑值.F.数组在使用54 命令格式命令格式 例如：例如：dime|decl dime|decl a(2),b(2,2)a(2),b(2,2)二维数组二维数组一维数组一维数组 注：在定义数组时，数组名不能注：在定义数组时，数组名不能与同一环境下的简单变量同名与同一环境下的简单变量同名。命令格式 二维数组一维数组 注：在定义数组时，数组55 数组元素的赋值及输出与简单内存变量相同。同一个数组元素在不同时刻可以存放不同类型的数据。在同一个数组中，每个元素的值可以是不同的数据类型。数组元素的赋值及输出与简单内存变量相同。56数组下标应使用圆括号，二维数数组下标应使用圆括号，二维数组的下标之间使用逗号隔开。组的下标之间使用逗号隔开。数组的下标可以是常量、变量和数组的下标可以是常量、变量和表达式。表达式。数组的使用（上机体会）数组的使用（上机体会）数组下标应使用圆括号，二维数组的下标之间使用逗号隔开。数组57每个数组元素可通过数组名及相应每个数组元素可通过数组名及相应的下标来访问的下标来访问 在赋值语句中也可使用数组名将在赋值语句中也可使用数组名将同一个值赋给数组的所有元素。同一个值赋给数组的所有元素。可用一维数组的形式访问二维数可用一维数组的形式访问二维数组。组。每个数组元素可通过数组名及相应的下标来访问 在赋值语句中也可58EXMX7EXMX7：定义数组、赋值并输出。：定义数组、赋值并输出。DIMENSION A(2),B(2,2),C(2)DIMENSION A(2),B(2,2),C(2)A(1)=ABCDA(1)=ABCDA(2)=.T.A(2)=.T.B(1,2)=A(1)B(1,2)=A(1)B(2,2)=123B(2,2)=123B(2,1)=11.1B(2,1)=11.1C=2C=2?A(1),A(2),B(1,2),B(2,2)?A(1),A(2),B(1,2),B(2,2)，B(3),C(1),C(2)B(3),C(1),C(2)结果结果仔细体会教科书仔细体会教科书P68【例【例3-13】EXMX7：定义数组、赋值并输出。仔细体会教科书P68【例359例：编程显示下列数组前例：编程显示下列数组前10项：项：1、1、2、3、5.Set talk offDIME a(10)A(1)=1A(2)=1?a(1)?a(2)For i=3 to 10A(i)=a(i-2)+a(i-1)?a(i)Endforreturn例：编程显示下列数组前10项：1、1、2、3、5.Set60骑封篙尊慈榷灶琴村店矣垦桂乖新压胚奠倘擅寞侥蚀丽鉴晰溶廷箩侣郎虫林森-消化系统疾病的症状体征与检查林森-消化系统疾病的症状体征与检查11、越是没有本领的就越加自命不凡。邓拓12、越是无能的人，越喜欢挑剔别人的错儿。爱尔兰13、知人者智，自知者明。胜人者有力，自胜者强。老子14、意志坚强的人能把世界放在手中像泥块一样任意揉捏。歌德15、最具挑战性的挑战莫过于提升自我。迈克尔F斯特利谢谢骑封篙尊慈榷灶琴村店矣垦桂乖新压胚奠倘擅寞侥蚀丽鉴晰溶廷61