VFP程序设计1.pptVIP

VFP程序语言初步 程序控制结构 顺序结构 选择结构 循环结构 几个简单语句 CLEAR ACCEPT [指定提示信息] TO 内存变量名 INPUT [指定提示信息] TO 内存变量名 USE [表名] SKIP 顺序结构 顺序结构是程序设计中最基本的结构。该结构中，程序的执行是按命令出现的先后顺序依次执行的 在命令方式下，用modify command 文件名命令创建命令（程序）文件，用do 文件名命令执行文件 顺序结构 [例]求当前日期的长度，并显示日期和长度值 a1=DTOC(DATE()) ＆＆将当前日期转换成字符串 b1=LEN(a1) ＆＆求长度 ?a1,b1 ＆＆输出 CANCEL ＆＆终止程序的执行 [例]打开用户指定的表并显示其中记录的信息 Accept “请输入表名” to tbname Use tbname ?’tbname.表中信息如下‘ Disp all 选择分支 IF 逻辑表达式 语句序列1 ELSE 语句序列2 ENDIF [例]托运行李。 20kg，0.5元/kg；=20kg，1.5元/kg。 Input “行李重=” to x If x20 K=x*0.5 Else K=20*0.5+(x-20)*1 .5 Endif ?“应收”,k,“元” RETURN [例]输入任意三个数，按由小到大排列输出。 结构分支 Do case case 逻辑表达式1 语句序列1 case 逻辑表达式2 语句序列2 …… case 逻辑表达式n 语句序列n [otherwise] [语句序列n+1] Endcase [例]编程进行肥胖程度的测试：公式 R=W/(H**3)*10**7，测试标准如下R100瘦 100=R115稍瘦 115=R145标准145=R160稍胖 R=160肥胖 1.步长循环 FOR 循环变量=初值 TO 终值 [step 步长] 语句序列 [LOOP] [EXIT] ENDFOR [例]编程计算1+2+…+n S=0 INPUT N= TO N FOR I=1 TO N S=S+I ENDFOR ?S [例]编程计算n! INPUT N= TO N P=1 FOR I=1 TO N P=P*I ENDFOR ?P 问题：计算1!+2!+…+n!，上述程序如何修改？ [例]编程计算1!+2!+…+n! 2.条件循环 DO WHILE 逻辑表达式 语句序列 [LOOP] [EXIT] ENDDO [例]编程计算1+2+…+n STORE 0 to I,S INPUT N= TO N DO WHILE I=N S=S+I I=I+1 ENDDO ?S 问题2：循环体中的两句调换位置，程序运行的结果有变化吗？ [例]有一张厚0.5mm面积足够大的纸，将它不断对折。问对折多少次后其厚度超过珠穆朗玛峰的高度（8848000mm）。 （1）穷举法 穷举法也称为枚举法，即将可能出现的各种情况一一测试，判断是否满足条件，一般采用循环实现。 [例]编程求水仙花数。所谓“水仙花数”是指一个三位数，其各位数字的立方和等于该数本身（如153=13+53+33）。 For a=1 to 9 for b=0 to 9 For c=0 to 9 Y=a*100+b*10+c If y=a*a*a+b*b*b+c*c*c ??y Endif Endfor Endfor endfor （2）递推法 递推法的基本思想是把一个复杂的计算过程转化为简单过程的多次重复。每次重复都从旧值的基础上递推出新值，由新值代替旧值。 [例]求Fibonacci数列（1,1,2,3,5,8,…）的第n项。 INPUT N= TO N DIMENSION F(N) STORE 1 TO F(1),F(2) FOR I=3 TO N F(I)=F(I-1)+F(I-2) ?F(I) ENDFOR （3）求最小值或最大值 [例]求N个数中的最小数。 （4）排序（冒泡法） INPUT N= TO N DIMENSION X(N) FOR I=1 TO N INPUT DATA= TO X(I) ?X(I) ENDFOR 作业 P66-1. 编程求所有小于或等于100的自然数对。自然数对是指两个自然数的和与差都是平方数。如8与17