VFP第3部分（程序算法及顺序分支）.pptVIP

程序的基本结构 Visual FoxPro系统的程序有两个特点：一是程序控制流模式，由顺序、分支（选择）、循环三种基本结构构成。二是面向对象可视化的结构程序模块，在每个模块的内部也是由程序控制流组成。  1．顺序结构 顺序结构是在程序执行时，根据程序中语句的书写顺序依次执行的命令序列。Visual FoxPro系统中的大多数命令都可以作为顺序结构中的语句。  EXM1：“ 鸡兔问题”，它起源于我国古代的一本数学书《孙子算经》。《孙子算经》卷下第三十一题是：“今有雉、兔同笼，上有三十五头，下有九十四足。问雉、兔各几何？该书给出了解法，最后的答案是：雉二十三，兔一十二”这里的“雉”俗称“野鸡”，这类题目在我国通常称为“鸡兔问题”，传到日本后，典型的题目变成了“龟鹤同笼”，因此他们对这一类型的题目通称为龟鹤问题。 鸡兔同笼，已知鸡兔的总头数为h ，总脚数为f ，求鸡兔各有多少只？ 分析：基本步骤如下： （1）定义变量，赋初值。 （2）算法 得到： x=(4*h-f)/2 y=(f-2*h)/2 本问题中，鸡兔的数目与鸡兔总头数、脚数的关系可以用一个二元一次方程解决： 2*x+4*y=f x+y=h 输入h，f x = ( 4*h-f ) / 2 y = ( f-2* h ) / 2 输出x，y 鸡兔同笼问题的算法如图所示。 （3）编码。 ?程序初始化 ?给变量赋初值 ?问题处理 ?结束 x为鸡的只数 y为兔的只数 输入部分 处理部分 输出部分 初始部分 结束 2．分支(选择）结构 分支结构是在程序执行时，根据不同的条件，选择执行不同的程序语句，用来解决有选择、有转移的诸多问题。 多路分支语句 常见的分支结构有： IF语句 流程图 1）IF语句 格式： 见教材P141 条件? 命令组1 命令组2 Y N ENDIF之后的命令 说明： 在IF语句中，ELSE选项可缺省，此时在如上图中去掉命令组2即可。当ELSE缺省时，如果条件表达式为.F.，则执行ENDIF后面的语句。 IF和ENDIF必须成对出现，否则程序将无法执行。 该语句可以嵌套使用，但是在嵌套使用时不能出现交叉现象。 EXM2：判断某一年是否是闰年。 假如年份用y表示，判断y是否是闰年的方法是：若y能够被400整除或y能够被4整除并且不能够被100整除 y/4=int(y/4) and y/100int(y/100) or y/400=int(y/400) 提示：判断一个整数M能否被另一个整数N整除，一般采用三种方法，即：判断MOD(M,N)是否等于0或INT(M/N) 是否等于M/N或M%N=0，若等于，则表明M能被N整除。 用IIF函数求解 CLEAR INPUT 请输入年份: to y IF y/4=int(y/4) and y/100int(y/100) or y/400=int(y/400) ?str(y,4)+年是闰年 ELSE ?str(y,4)+年不是闰年 ENDIF RETURN EXM3：假定邮政包裹的邮费计算如下，试计算任一邮包的应付邮费。 ①重量W≤500g，邮费fee=4+(W-1)/50 ②重量W＞500g，邮费 fee=25+(W-1)/1000*50 输入邮包的重量W W≤500 fee=4+(W-1)/50 fee=25+(W-1)/1000*50 输出邮包的邮费fee Y N EXM4：输入一个数，判断奇偶性。 输入一个数X X能被2整除 输出该数为偶数 输出该数为奇数 Y N EXM5：输入两个数，比较大小，并输出较大数。 输入两个数a,b ab? 把b的值赋给a Y N ？a EXM6：输入两个数，比较大小，并按从小到大的顺序输出。 输入两个数a,b ab? 交换a,b的值 Y N ？a,b 4）多分支语句 格式： （见教材141-142页） 流程图： 条件1 ENDCASE后面的语句 条件2 otherwise 命令序列1 命令序列2 命令序列N 命令序列Q 条件N 功能：从第一个CASE的条件开始判断，若条件表达式I(I=1、2、3…n)的值为.T.，则执行语句序列I(I=1、2、3…n)，然后执行ENDCASE之后的语句。所以在一个DO CASE结构中，最多只能执行一个CASE语句后面的语句序列。如果所有CASE语句后的条件表达式的值均为.F.，则执行OTHERWISE之后的语句序列Q。OTHERWISE