沈阳农业大学vf课件第六章PPT课件

1、 6.1 程序设计程序设计 6.2 VFP程序设计基础程序设计基础 6.3 程序的控制结构程序的控制结构 6.4 多模块程序多模块程序 第1页/共51页:（Program）是一组能够完成特定任务的指令序列，按照特定的逻辑关系以一定的结构组织在一起，并以文件的形式存储在计算机外部设备上。:根据特定的问题，使用某种程序设计语言编写的，计算机可以执行的指令序列。第2页/共51页程序基本操作步骤：1.文件新建程序2.输入程序语句3.保存文件名为：pro14.程序运行pro1x=34y=45z=67?x+y+z?(x+y+z)/3例：求三个数的总和及平均值。第3页/共51页命令方式：1.建立或修改程序：

2、modify command 程序名4.运行程序：do 程序名注意：程序文件扩展名：prg第4页/共51页 input 提示信息 to 内存变量 accept 提示信息 to 内存变量 wait 提示信息 to 内存变量输入命令注意：input命令可用于各种类型数据的输入,输入字符型数据需要加定界符。 Accept命令只限于输入字符型数据。输入时内容不需要加定界符。 Wait一般起到等待的作用。第5页/共51页ClearUse djksaccept “请输入考号:” to x &将accept 改成input 再运行Loca for 考号=xDisp 考号,姓名,笔试,上机,结论Use

3、 wait 谢谢使用! windows timeout 3 return例：成绩查询。第6页/共51页在程序开始使用note加注释。在语句前用*加注释。在语句后用& 加注释。加注释第7页/共51页ClearSet talk offUse xsdaaverage 成绩Set talk onaverage 成绩set talk on/off 作用：关闭对话状态。Set safety on/off 作用： 提供或取消安全保护。use xsdacopy to abcuse abczapset safety offzap第8页/共51页set heading on/off显示/不显示字段名use

4、 xsdadispset heading offdisp?date( )?time( )?date( )10,10 say date( )?不换行显示在第几行第几列显示内容 第9页/共51页顺序结构 选择结构循环结构第10页/共51页6. 3 程序的基本控制结构顺序，选择，循环三种基本结构一一.顺序结构顺序结构 按照程序语句一条一条的顺序的往下执行。按照程序语句一条一条的顺序的往下执行。二二.选择结构选择结构根据不同的条件，选择执行不同的程序语句，用来解决根据不同的条件，选择执行不同的程序语句，用来解决有选择，有转移的诸多问题。有选择，有转移的诸多问题。三三.循环结构循环结构使一些语名重复地执

5、行若干次。使一些语名重复地执行若干次。第11页/共51页顺序结构流程图顺序结构流程图程序语句程序语句1程序语句程序语句2顺序结构第12页/共51页双分支选择结构流程图双分支选择结构流程图条件？条件？语句序列语句序列1语句序列语句序列2其它语句其它语句YESNO第13页/共51页条件？条件？YES程序语句程序语句其它语句其它语句NO循环结构流程图循环结构流程图第14页/共51页例:查找djks表中有没有叫刘宁这个学生，显示有关信息。ClearUse djksLoca for 姓名=“刘宁Disp 考号,姓名,笔试,上机,结论Use return结束结束清除屏幕清除屏幕打开打开djks表表查找名为

6、刘宁的记录查找名为刘宁的记录显示该学生的情况显示该学生的情况 关闭表关闭表程序流程示意图第15页/共51页顺序结构课堂练习：顺序结构课堂练习：任意输入四个数，找出任意输入四个数，找出四个数的最大值和最小值。四个数的最大值和最小值。提示提示1：任意输入一个数用：任意输入一个数用input命令实现。命令实现。例如：例如：input “请输入第一个数请输入第一个数” to x提示提示2:利用利用MAX（ ），），MIN（ ）函数。）函数。 例如：例如： ？MAX（4，5，6，2）值为）值为6第16页/共51页clearInput 请输入第1个数 to x1Input 请输入第2个数 to x2Inp

7、ut 请输入第3个数 to x3Input 请输入第4个数 to x4m=max(x1,x2,x3,x4) n=min(x1,x2,x3,x4)?m,nreturn任意输入任意输入的四个数的四个数求出最大值求出最大值和最小值和最小值输出结果输出结果程序结束程序结束答案:第17页/共51页选择结构基本形式有三种:单分支、双分支、多分支。1.单分支结构IF 条件表达式条件表达式 命令行序列命令行序列 ENDIF语句格式：条件？条件？语句序列语句序列ENDIF后续语句后续语句YES流程示意图NO第18页/共51页ClearUse djksaccept 请输入考号请输入考号: to xLoca for

8、 考号考号=xif found( )Disp 考号考号,姓名姓名,笔试笔试,上机上机,结论结论endifUse return单分支结构单分支结构例：成绩查询，找到则显示成绩。第19页/共51页2.双分支结构双分支结构语句格式：IF 条件表达式 命令行序列1ELSE 命令行序列2ENDIF功能:即根据用户设置的条件表达式的值,选择两个操作中的一个来执行.第20页/共51页ClearUse djksaccept 请输入考号请输入考号: to xLoca for 考号考号=xif found( )Disp 考号考号,姓名姓名,笔试笔试,上机上机,结论结论Else?无此人无此人“endifUse re

9、turn双分支结构双分支结构例：成绩查询，找到则显示成绩，没找到则显示无此人。第21页/共51页 课堂练习 任意输入一个数,如果这个数大于零则在屏幕上显示你好,否则在屏幕上显示再见。第22页/共51页答案input 请输入数: to xif x0?你好else?再见endif第23页/共51页clearinput 请输入三角形的第一边: to ainput 请输入三角形的第二边: to binput 请输入三角形的第三边: to cif a0 and b0 and c0 if a+bc and b+ac and a+cb p=(a+b+c)/2 s=sqrt(p*(p-a)*(p-b)*(p-

10、c) ?三角形的三边长分别为:,a,b,c ?三角形面积为:,round(s,2) else ?此三边不能构成三角形! endif else ?三角形边长必须大于0! endif例任意输入三个数，如果这三个数能构成三角形的三边，计算该三角形面积，否则输入错误信息。第24页/共51页DO CASECASE 条件表达式条件表达式1命令行序列命令行序列1CASE 条件表达式条件表达式2命令行序列命令行序列2CASE 条件表达式条件表达式N命令行序列命令行序列NOTHERWISE 命令行序列命令行序列N+1ENDCASE3.多分支结构第25页/共51页y=2*x-5 x1 y=2*x 1=x=10 练

11、习 （利用do case endcase 语句）计算y值。第26页/共51页clearinput 请输入X的值 TO Xdo case case X1 Y=2*X-5 case X=10 Y=2*X+5endcase?y第27页/共51页循环结构DO WHILE LOOPEXIT ENDDO第28页/共51页DO WHILE 型循环也叫当型循环，即根据型循环也叫当型循环，即根据条件表达式的值条件表达式的值,决定循环体内的执行次数。决定循环体内的执行次数。最简单的循环格式为最简单的循环格式为:DO WHILE ENDDO第29页/共51页cleari=5do while i0 ?LOVE i=i

12、-1enddo第30页/共51页X=1DO WHILE X50?XX=X*3ENDDO第31页/共51页计算1+2+100s=0i=1Do while ia(i) temp=a(1) a(1)=a(i) a(i)=temp endifendfor? 5个数中最小数是:,a(1)例2:任意输入5个数，找出最小值。第40页/共51页cleardime a(5)for i=1 to 5input 请输入第 + str(i,1) + 个数： to a(i)endforfor i=2 to 5 if a(1)a(i) temp=a(1) a(1)=a(i) a(i)=temp endifendfor?

13、5个数中最小数是:,a(1)例3:输出任意行数正三角。第41页/共51页调用子程序：do 子程序名 with 参数返回:return第42页/共51页例：任意输入一个数，计算以该数为半径的圆面积。cleararea=0input 请输入半径 to r if r=0 ?半径必须大于0! else do area with r,area endif?半径是:,r?面积是: ,areapara r1,ss=pi()*r1*r1return主程序main子程序area第43页/共51页44s=0for i=3 to 5 i=i+2 s=s+inext?s程序程序1程序程序2c=a=沈阳农大b=程序设计

14、for j=1 to 2 c=c+left(a,2)+right(b,2)next?c程序程序3n=3k=1 for i=1 to n k=k*i next?k第44页/共51页45store 0 to a,bdo while a30 a=(a+1)*(a+2) b=b+1enddo?b程序程序4程序程序5y=0do while y=10 y=y+1 if y/4=int(y/4) ?y endifenddo程序程序6x=int(rand( )+5)do case case x=3 ? 大 case x=4 ?小 case x=5 ?多 otherwise ?“少” endcase第45页/共

15、51页46x=0y=1do while x1 exit endif a=a+1 b=b+a*(a+1)enddo?b程序程序9cleara=-5input 输入c的值 to cdo case case a=-5 b=a+1 case a=0 b=a+2 otherwise b=a+3endcase ?b第46页/共51页47dime aa(4)s=0for n=1 to 4 aa(n)=nendforfor i=1 to 4 s=s+aa(i)endfor?s程序程序10第47页/共51页48input 请输入一个数： to xflag=1 for i=2 to x-1if mod(x,i)=0?不是