




已阅读5页,还剩79页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
第6章结构化程序设计基础,吉林大学计算机教学与研究中心,Welcome!,2/65,6.1样本程序分析,MODIFYCOMMANDExample_1INPUT“请输入数N:”TONIFN1?“输入的数:”,N,太小!CANCELENDIFSTORE1TOI,SDOWHILEI=NS=S*II=I+1ENDDO?N,“的阶乘是:”,SCANCEL,【例1】求数N的阶乘,3/65,6.2程序的建立与执行,VFP源程序是用VFP命令或程序中专用语句编写的文本文件,其扩展名是PRG。,6.2.1VFP专用程序编辑器,建立源程序文件,方法一:“文件”菜单项“新建”选择“程序”“新建文件”。,方法二:使用常用工具栏的“新建”按钮。,4/65,6.2.1VFP专用程序编辑器,说明1:此方法可以建立新程序文件,又可修改已有的程序文件。,方法三:在命令窗口中执行命令:ModifyCommand,说明2:文件的扩展名可缺省,系统默认扩展名为.PRG。,5/65,6.2.1VFP专用程序编辑器,方法四:在项目管理器中,进入“代码”选项卡,选择“程序”,单击“新建”。,说明3:一个命令行中只能写一条命令,若一行写不下,需使用分行符“;”。,6/65,6.2.1VFP专用程序编辑器,保存程序文件,方法一:单击“文件”菜单项“保存”。,方法二:单击“常用”工具栏里的“保存”按钮。,方法三:按Ctrl+W。,方法四:关闭程序编辑器,系统提示是否保存文件。,7/65,6.2.2打开源程序文件,方法一:“文件”菜单项“打开”“文件类型”为“程序”选择文件“确定”,方法二:单击“常用”工具栏里的“打开”按钮。,方法三:在命令窗口中执行命令:ModifyCommand|?,打开程序文件,8/65,6.2.3程序的编译与执行,在VFP中,可以执行源程序、编译程序、应用程序和可执行程序种程序文件。,(1)源程序(PRG):源程序是文本文件,可以对其内容进行修改。只要有源程序文件,就可以生成其他3种程序文件。,执行程序就是按照程序的内部控制结构执行文件中的相关语句序列。,程序文件的类型,9/65,6.2.3程序的编译与执行,(2)编译程序(FXP):每个源程序文件都有对应的编译程序文件,执行编译程序比执行源程序的速度快。,(3)应用程序(APP):由多个文件(包括程序、表单和菜单等)连接成一个应用程序文件。,注意:以上三种文件都是在VFP环境下运行。,10/65,6.2.3程序的编译与执行,(4)可执行程序(EXE):将多个文件(包括程序、表单和菜单等)连接成一个可执行程序文件,此种文件可以脱离VFP环境运行。,编译程序,当执行一个源程序时,系统自动将其编译为编译程序(FXP)。在VFP中允许只编译而不执行程序。,11/65,6.2.3程序的编译与执行,方法一:在程序编辑器中,单击“程序”菜单项“编译”。,方法二:单击“程序”菜单项“编译”选择“文件类型”为“程序”选择程序文件“编译”,编译方法为:,12/65,6.2.3程序的编译与执行,执行程序,方法一:在程序编辑器中,“程序”菜单“执行”或“运行”常用工具“!”。,方法二:“程序”菜单“运行”选择“文件类型”为“程序”选择或输入程序文件名“运行”。,方法三:在程序或命令窗口中执行:Do,13/65,6.2.3程序的编译与执行,说明:当源程序(PRG)和编译程序(FXP)文件同时存在时,系统将执行距当前时间最近的程序文件。,14/65,6.3.1输入字符串语句,语句格式:AcceptTo,“字符表达式”:作为执行到此语句时的提示信息。若无此项,则不输出任何信息。,内存变量:用来接收输入的字符串。若不输入任何字符,则将空字符赋值给内存变量。,例:Accept“请输入学号:”ToXH?”输入的学号是:”+XH,15/65,6.3.2等待语句,语句格式:WaitToWindowAt,NowaitClear|NoclearTimeout,“字符表达式”:提示信息。若无此项,则输出任何信息。,To内存变量:用来接收输入的字符。若不输入任何字符,则将空字符赋值给内存变量。,16/65,6.3.2等待语句,WindowAt,:使用Window项表示在VFP主窗口的右上角弹出提示信息窗口。也可以使用At,指定提示信息窗口的开始位置。,Window和Nowait:弹出提示窗口后,程序不暂停,即不等用户按键,就继续执行后面的语句。,Window和Noclear:在执行下一条WaitWindow或WaitClear语句之前,系统不关闭提示信息窗口。,17/65,6.3.2等待语句,Timeout:用于设定等待的秒数。在等待时间内按任意键或等待超时,程序将继续向下执行。,例:Wait显示时间:Timeout3?Time(),18/65,6.3.3输入表达式语句,语句格式:InputTo,说明:允许输入任何类型的表达式。Input输入字符串时必须加上定界符。,例6.5:N=2Input请输入数据:ToM?M,19/65,6.4.1If分支语句,语句格式:IfThenEndif,开始,语句序列,结束,条件?,Y,N,分支结构后面语句,单分支If语句,其中IF-ENDIF必须配对出现。,20/65,6.4.1If分支语句,例:Input请输入一个N:ToNIfN0N=-NEndif?N的绝对值是:,N,21/65,6.4.1If分支语句,双分支If语句,语句格式:IfThenELSEEndif,开始,语句序列1,结束,条件?,Y,N,语句序列2,分支结构后面语句,22/65,6.4.1If分支语句,例,求两个数中较小值:InputX=ToXInputY=ToYIfX0Y=1ElseIfX=0Y=0ElseY=-1EndifEndif?Y,25/65,6.4.2If语句的嵌套,控制程序是否继续执行,例6.8:?DATE()&输出系统日期CANCEL&结束本程序的执行?TIME()&此语句得不到执行,(1)Cancel:结束当前程序的运行。,26/65,6.4.2If语句的嵌套,控制程序是否继续执行,(2)Suspend:暂停程序的执行。暂停期间可以在命令窗口中执行交互命令。,(3)Resume:继续执行Suspend暂停的程序,从Suspend语句的下一条继续。,例6.9:X=1SuspendY=2?X+Y,27/65,6.4.3条件函数,函数格式:Iif(,),说明:若条件成立,则表达式1的值作为函数值;否则,表达式2的值作为函数值。,例如:Input输入一个数N:ToNM=Iif(N0Y=1CaseX=0Y=0OtherwiseY=-1Endcase?Y,32/65,6.5循环结构程序设计,循环结构指在执行程序过程中,重复执行某程序段。,在循环体中,可以利用Exit语句提前结束循环,也可利用Loop语句提前结束本次循环。,重复执行的程序段称为循环体,重复执行的次数称为循环次数。,33/65,6.5.1DoWhile(当型)循环语句,语句格式:DoWhileEnddo,开始,语句序列,结束,条件?,Y,N,循环前的语句,循环体后的语句,语句序列,Y,说明:DoWhile与Enddo必须成对使用。,34/65,6.5.1DoWhile(当型)循环语句,例6.14,求前100个自然数的和:S=0N=1DoWhileN=100S=S+NN=N+1Enddo,S=1+2+3+4+100,35/65,例:P174-6.15N=2S=1DoWhileN=5S=S*NN=N+1Enddo?”5!等于:”,S,思考:如何求任意数的阶乘?,36/65,例:P174-例6.17UseCJBN=0Dowhile!Eof()If重修?”重修学号:”,学号,Space(4),”重修课程码:”,课程码N=N+1EndifSkipEnddo?”共有:”+Str(N,4)+”人次重修”Use,37/65,6.5.1DoWhile(当型)循环语句,死循环,如果循环体中没有能执行到的、使条件趋于不成立的语句、结束循环或结束程序的语句,将永远执行不完循环体,即出现死循环。语句修改为:,DoWhileLoopExitEnddo,38/65,6.5.1DoWhile(当型)循环语句,(2)Exit:一旦执行到Exit语句,就结束整个循环。,(1)Loop:一旦执行到Loop语句,就提前结束本次循环。,例6.16,对键盘输入的每一个正数,输出其算术平方根;当输入的数小于或等于0时,结束程序。,39/65,开始,循环体前语句,循环体条件,Y,分支条件,Y,LOOP,N,分支结构下面的语句,N,循环体下面的语句,结束,无条件转向循环,语句格式(以当型循环为例)DOWHILEIFLOOPENDIFENDDO,40/65,例:计算1100的奇数和。*Ex3.prgstore0toi,tdowhilei100i=i+1ifint(i/2)=i/2loopendift=t+ienddo?1100奇数和为:,t,说明:int(N):取整函数此处用于判断i的奇偶性思考:利用mod(N1,N2)如何判断奇偶性?,41/65,开始,循环体前语句,循环体条件,Y,分支条件,N,EXIT,Y,分支结构下面的语句,N,循环体下面的语句,结束,无条件跳出循环,语句格式(以当型循环为例)DOWHILEIFEXITENDIFENDDO,42/65,例:P174_【例6.16】*E6_16.prgDOWHILE.T.CLEARINPUT“请输入一个数:”TOXIFVartype(X)!=NWAIT不是数值型数据LOOPENDIFIFX0EXITENDIF?X,的算术平方根为:,SQRT(X)WAITENDDO?输入的数不大于0,结束程序!,43/65,6.5.2For(步长型)循环语句,语句格式:For=ToStepEndfor|Next,说明2:若步长缺省,默认值为1。,说明1:初值、终值和步长应为数值型表达式,44/65,6.5.2For(步长型)循环语句,例6.19,求前100个自然数的和:S=0ForN=1To100S=S+NEndfor?1+2+3+98+99+100=,S,45/65,6.5.3Scan(扫描)循环语句,语句格式:ScanForWhileEndscan,说明1:Scan和Endscan必须成对使用。此循环语句用于处理与数据表有关的循环问题,功能等效于:,LocateForWhileDoWhileFound()ContinueEnddo,46/65,6.5.3Scan(扫描)循环语句,例6.20,使用Scan循环结构编程:UseCJBN=0ScanFor重修?重修学号:,学号,Space(4),?重修课程码:,课程码N=N+1Endscan?共有:+Str(N,4)+人次重修Use,47/65,6.5.4结构嵌套,为实现复杂的功能,VFP允许相互嵌套。但不允许交叉嵌套,即一个结构必须完整地包含在另一个结构中。,例如:ForM=1To9ForN=MTo9?Space(2),Str(M,1),*,?Str(N,1),=,Str(M*N,2)Endfor?Endfor,外层循环,内层循环,48/65,*Ex5.prgclearinput请输入数据个数:tondimensionX(n)store1tokdowhilekX(j)W=X(i)X(i)=X(j)X(j)=Wendifendfor?X(i)endfor?X(n)return,例:数组例子,假设输入数据为:n=4,X(1)X(2)X(3)X(4)1223521,i=1,j=2,1223521,j=3,5231221,j=4,5231221,i=2,j=3,j=4,5122321,5122321,i=3,j=4,5122123,5,12,21,23,49/65,练习题:试编写“从前有座山”的故事,使其分别完成下列要求:1、将故事重复显示5次。2、故事每重复显示5次后暂停,并询问是否继续,输入“Y”,继续重复显示,否则中止程序执行。3、令故事无限重复显示,当按任意键时暂停显示,并询问是否继续。(提示:INKEY()函数)INKEY(nSECONDS):返回所按键的ASCII码。,50/65,练习:请设计简单的数据表维护系统,界面及功能要求如下:,欢迎使用本系统!请输入数据表名:维护菜单:1修改记录2追加记录3删除记录4退出请输入操作代码(14):,51/65,6.6子程序及其调用,在实际应用中,经常将一个比较复杂的程序分解成多个功能相对独立的子程序模块。因此,一个应用程序可能包含多个程序模块,通常将调用其它模块的模块称为主程序,被其它模块调用的模块称为子程序。主程序与子程序的概念是相对的,一个程序可能是某个程序的主程序,同时是另一个程序的子程序。,子程序调用实例:编程实现该公式的功能。,52/65,6.6子程序及其调用,*主程序.prg,.,DO,DO,53/65,6.6.2过程子程序及其调用,过程子程序内部结构,(1)Parameters|Lparameters:用于指定形式参数,接收主程序传来的数据,可以是简单内存变量或数组说明。若使用此语句,必须在子程序中的第1行。,Parameters|Lparameters子程序体Retry|ReturnToMaster,54/65,6.6.2过程子程序及其调用,(3)Return:返回到主程序中调用语句的下一条语句继续执行。子程序中的最后一条Return语句可以省略。,(2)Retry:返回到调用程序中重新执行调用语句。,(4)ReturnToMaster:返回到主控程序(最顶层的程序,在命令窗口中用Do调用的程序)中调用语句的下一条语句继续执行,它可能直接或间接调用本子程序。,55/65,6.6.2过程子程序及其调用,过程子程序调用调用过程子程序就是转去执行过程子程序中的语句,当执行到返回语句时,再回到主程序的对应位置继续执行。,调用语句:DoWith,说明:若子程序中有Parameters或Lparameters语句,则调用语句应该带有实际参数(简称实参)表。,56/65,6.6.2过程子程序及其调用,参数传递方式,所谓参数传递,就是利用参数在主程序与子程序之间进行传递数据。主程序通过实参与形参的位置对应关系向子程序传递数据,有时也通过参数由子程序向主程序传递数据。,注意:在调用子程序时,实参个数不得超出形参个数;当实参个数少于形参个数时,多余的形参初值为逻辑假(.F.)。,57/65,*主程序.prg,DOWITHX,Y,Z,*子程序1.prg,RETURN,PARAMETERS|LPARAMETERSM,N,P,实际参数,形式参数,6.6.2过程子程序及其调用,58/65,6.6.2过程子程序及其调用,(1)值方式传递:调用子程序时,将实参值传递给对应的形参;当执行子程序结束时,形参变化后的值不能回送给实参。这种只能由实参传递给形参值的单向传递方式称为值传递。,参数传递的两种方式,(2)引用方式传递:调用子程序时,将实参值传递给对应的形参;当执行子程序结束时,形参变化后的值能回送给实参。这种双向传递值的方式称为引用传递。,59/65,6.6.2过程子程序及其调用,(1)当形参是数组说明时:对应实参必须是数组名,与形参数组说明的维数和元素个数无关,实参与形参之间按引用方式传递数据。例如E6_25。,参数传递规则式,(2)当实参是数组名时:系统自动将形参转换成与实参等价的数组,并且实参与形参之间按引用方式传递数据。,60/65,6.6.2过程子程序及其调用,(3)当实参是简单内存变量(不含数组元素)时:实参与形参之间按引用方式传递数据。,参数传递规则式,(4)当实参是表达式(包括常数、数组元素和函数)时:实参与形参之间按值方式传递数据。例如E6_27。,61/65,6.6.3函数子程序及其调用,函数子程序也称用户自定义函数。函数子程序的编写方法与过程子程序没有太大的区别,只是为了使函数子程序具有返回值的能力,在返回语句中需要带值(如ReturnS)。,函数子程序内部结构,Parameters|Lparameters子程序体Return表达式,若省略表达式,则函数返回值为逻辑真,62/65,6.6.3函数子程序及其调用,函数子程序与系统函数的调用方法一样,都作为表达式的一部分。所谓调用函数子程序就是转去执行函数子程序中的语句,执行到返回语句时,转回到主程序中的调用语句并带回一个值。,函数子程序调用,调用格式:(),63/65,6.6.3函数子程序及其调用,参数传递,返回表达式的值,64/65,*Ex7.prgCLEARS=0FORi=1TO10S=S+F(i)ENDFOR?S=,S,*F.prgPARAMETERSNM=1FORj=1TONM=M*jENDFORRETURNM,例:计算阶乘的自定义函数,65/65,6.6.3函数子程序及其调用,系统默认函数子程序调用一律按值方式传递值。可以通过VFP命令重新设置参数的传递方式。,参数传递规则式,命令格式:SetUdfparmsToValue|Reference值引用,例如E6_28,66/65,6.6.4过程子程序与函数子程序区别,(1)在编写程序方面,函数子程序通常用Return语句返回到主程序;而过程子程序通常用ReturnToMaster或Retry语句返回到主程序或主控程序。,(2)在调用子程序方面,用函数形式调用函数子程序,使之成为表达式的一部分;用Do语句调用过程子程序,使之成为程序中的一条语句。,67/65,6.6.4过程子程序与函数子程序区别,在实际应用时,函数子程序和过程子程序可以互换调用方式。通过过程方式调用(Do语句)函数子程序时,系统将忽略函数的返回值,且返回到主程序中调用语句(Do)的下一条语句继续执行;通过函数方式调用过程子程序时,函数返回值为逻辑真(.T.),而返回到主程序中的调用语句。,68/65,6.7子程序存放形式,从存放形式上看,VFP子程序分为独立文件子程序、过程文件子程序和程序文件中子程序3种组织形式。,6.7.1独立文件子程序所谓独立文件子程序就是一个PRG文件对应一个子程序,文件主名也是子程序名。,69/65,6.7.2过程文件子程序,过程的格式:Procedure|FunctionParameters|Lparameters子程序体Retry|Return|ToMasterEndproc|Endfunc,在一个应用程序中,可将一些子程序存放到一个程序文件中,通常将这种文件称为过程文件,而将其中的子程序称为过程文件的子程序,简称过程。,开始语句,结束语句,70/65,6.7.2过程文件子程序,在调用子程序之前,应该先打开其所在的过程文件,随后的调用方法与独立文件子程序的调用方法完全相同。,打开过程文件,打开命令:SetProcedureToAdditive,71/65,6.7.2过程文件子程序,语句格式1:SetProcedureTo,关闭过程文件,语句格式2:ReleaseProcedure,注意:如果独立文件子程序与过程文件中的子程序重名,调用子程序时,若事先打开了过程文件,则系统调用过程文件中的子程序;否则系统调用独立文件子程序。,72/65,6.7.3程序文件中的子程序,在一个程序文件中也可以包含本程序的一些子程序,其结构为:,程序段Procedure|FunctionParameters|Lparameters子程序体Retry|Return|ToMasterEndproc|Endfunc,在本程序文件中可以直接调用这种子程序,如果将这种程序文件作为过程文件打开,也可以在其他程序文件中调用这种子程序。,73/65,过程文件,74/65,6.8变量的作用域,所谓变量的作用域就是变量的作用范围,即变量在多大范围内有效。根据变量的作用域,VFP将变量分为公共变量、私有变量和局部变量3种。,在整个程序(包括主程序、子程序和对象事件过程等)中都有效的变量是公共变量。,在命令窗口中定义的简单变量或数组变量都是公共变量。,此外,用Public语句也可以定义公共变量。,75/65,6.8.1公共变量,语句格式:Public,定义公共变量,说明1:已定义但未赋的公共变量初值为.F.,说明2:程序终止时公共变量不会被自动清除,需用RELEASE或CLEARALL命令清除,例如E6_31,76/65,6.8.2私有变量,仅在定义变量的程序及其子程序中有效的变量称为私有变量。如果私有变量与主程序中的变量重名,则主程序中同名的变量将被“隐藏
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025贵州金沙供销集团有限公司人才引进考察政审情况及拟聘用笔试历年参考题库附带答案详解
- 2025江西吉安市白鹭洲中学招聘文印室工作人员2人模拟试卷及1套参考答案详解
- 2025江苏泰州市卫生健康委员会所属部分事业单位招聘专业技术人员9人模拟试卷及答案详解(有一套)
- 2025福建新华发行(集团)有限责任公司南平地区招聘笔试历年参考题库附带答案详解
- 2025福建厦门市集美区国有资产投资有限公司招聘4人笔试历年参考题库附带答案详解
- 2025河南郑州城市职业学院招聘考前自测高频考点模拟试题附答案详解(模拟题)
- 2025年甘肃省兰州凯博药业股份有限公司招聘笔试历年参考题库附带答案详解
- 2025内蒙古万润水利工程设计有限公司招聘4人笔试历年参考题库附带答案详解
- 2025上海电力建设修造有限公司招聘2人笔试历年参考题库附带答案详解
- 2025杭州钱塘区紧缺岗位人才招聘23人考前自测高频考点模拟试题附答案详解(完整版)
- 河北省承德市隆化县第二中学2023-2024学年九年级上学期期中考试物理试题(无答案)
- 2024年新人教版八年级上册物理全册教案
- 伤口造口专科护士进修汇报
- MOOC 实验室安全学-武汉理工大学 中国大学慕课答案
- 彩钢房建造合同
- 2型糖尿病低血糖护理查房课件
- 医院物业服务投标方案
- 高压燃气管道施工方案
- 国家免疫规划疫苗儿童免疫程序说明-培训课件
- GB/T 13298-1991金属显微组织检验方法
- 劳动人事争议仲裁案例分析与问题探讨课件
评论
0/150
提交评论