VFP部分(程序算法及顺序分支).ppt

命令书写规则 任何命令必须以命令动词开头，命令中的各个子句可以按任意次序排列，各个子句以一个或多个空格隔开。 一条命令的最大长度为254个字符，一行写不下时，可以使用“；”续行。 命令动词和子句的动词可以用其前4个字母缩写表示，例如，DISPLAY可写成DISP。但从程序的可读性来考虑，不提倡略写命令动词。 命令中的字符大小写可以混合使用，系统不区分大小写，为了美观可以将命令关键字大写，而其他内容小写。 思考题： 编程求：S=1+2+….+100 第3次上机 准备 熟悉vfp环境，默认路径的设置 输入一个三位数，按逆序输出 学生完成判断奇偶性、输出季节的程序提交 输入三个数，按降序输出 实验11 任务1 实验11 任务2（1）（2）（3） （4）（５） 得到： 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 鸡兔同笼问题的处理流程如图所示。 其程序文件的代码为: x为鸡的只数 y为兔的只数 数据输入 数据处理 数据输出 程序初始化 结束 分支结构是在程序执行时，根据不同的条件，选择执行不同的程序语句，用来解决有选择、有转移的诸多问题。 分支（选择）结构程序实例 多路分支语句 常见的分支结构有： 双分支结构 单分支结构 1）IF语句 格式： 见教材P141 流程图 条件? 命令组1 命令组2 Y N ENDIF之后的命令 例2：判断某一年是否是闰年。 假如年份用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 例3：假定邮政包裹的邮费计算如下，试计算任一邮包的应付邮费。 ①重量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 input 请出入货物的重量: to w if w=40 fee=0.65*w else fee=40*0.65+(w-40)*0.85 endif ?fee=,fee return 例4：输入一个数，判断奇偶性。 输入一个数X X能被2整除 输出该数为偶数 输出该数为奇数 Y N 例5：输入两个数，比较大小，并输出较大数。 输入两个数a,b ab? 把b的值赋给a Y N ？a 例6：输入两个数，比较大小，并按从小到大的顺序输出。 输入两个数a,b ab? 交换a,b的值 Y N ？a,b 2）分支的嵌套 例7：比较任意三个数的大小，并输出较大数。 输入三个数a,b,c ab? ca? cb? 输出c 输出a 输出c 输出b 结束 N Y Y N N Y clea input “请输入第一个数：” to a input “请输入第二个数：” to b input “请输入第三个数：” to c if ab if ca ?”三个数中的较大数为：”,c else ?”三个数中的较大数为：”,a endif else if cb ?”三个数中的较大数为：”,c else ?”三个数中的较大数为：”,b endif endif return 例8：计算函数y= 0 x=0 2x+1 x0 2x2 x0 输入x x0?