VFP程序设计.ppt

P=P*I ENDFOR ?P 问题：计算1!+2!+…+n!，上述程
序如何修改？
[例]编程计算1!+2!+…+n!
INPUT "N=" TO N
S=0 FOR X=1 TO N
P=1 FOR I=1 TO X
P=P*I ENDFOR
INPUT "N=" TO N S=0 P=1 FOR I=1 TO N
exit
enddo
endif
?"对折次数为:",n
enddo
?"对折次数为:",n
（1）穷举法
穷举法也称为枚举法，即将可能出现的 各种情况一一测试，判断是否满足条件， 一般采用循环实现。 用穷举法开密码锁：
XYZ
设该三位数的数码为：XYZ
000 …
999
各种可能的情况一一测试，最 多测试1000次。
B=T ENDIF IF A>C T=A A=C
C=T ENDIF
IF B>C T=B B=C C=T ENDIF ?A,B,C RETURN
开始
输入a,b,c
A>b? no
A>c? no
yes A,b交换 yes
A,c交换
B>c? no
yes B,c交换
输出a,b,c
结束
结构分支
Do case case <逻辑表达式1>
[例]求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个数中，先取第1个数为最小数的初值,然后 将每一个数与第1个数比较,若该数小于第1个数,将 该数与第1个数替换,依次逐一比较,全部比较完毕,第 1个数就是所有数中的最小数.
<语句序列1> case <逻辑表达式2>
<语句序列2> …… case <逻辑表达式n> <语句序列n> [otherwise] [<语句序列n+1>] Endcase
[例]编程进行肥胖程度的 测试：
公式 R=W/(H**3)*10**7，测试标准如 下 R<100瘦 100<=R<115稍瘦 115<=R<145标准 145<=R<160稍胖 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
[例]打开用Байду номын сангаас指定的表并显示其中记录的信息
Accept “请输入表名” to tbname
Use &tbname ?’&tbname.表中信息如下‘
Disp all
选择分支
IF <逻辑表达式> <语句序列1>
YES
NO
表达式成立否？
ELSE <语句序列2>
语句序列1
语句序列2
ENDIF
ENDIF之后的语句
VFP程序语言初步
程序控制结构
顺序结构 选择结构 循环结构
几个简单语句
CLEAR ACCEPT [指定提示信息] TO 内存变量
名 INPUT [指定提示信息] TO 内存变量名 USE [表名] SKIP
顺序结构
顺序结构是程序设计中最基本的结构。 该结构中，程序的执行是按命令出现的 先后顺序依次执行的
程序运行的结果有变化吗？
[例]有一张厚0.5mm面积足够大的纸，将它不断
对折。问对折多少次后其厚度超过珠穆朗玛峰的 高度（8848000mm）。 n=0
h=0.5
n=0
do while .t.
h=0.5
n=n+1
do while h<8848000
h=h*2
n=n+1
if h>8848000
h=h*2
Y=a*100+b*10+c
C=I-INT(I/10)*10
If y=a*a*a+b*b*b+c*c*c
IF I= a*a*a+b*b*b+c*c*c
??y
?I
Endif
ENDIF
Endfor
ENDFOR
Endfor
endfor
（2）递推法
递推法的基本思想是把一个复杂的计算 过程转化为简单过程的多次重复。每次 重复都从旧值的基础上递推出新值，由 新值代替旧值。
P=P*I S=S+P
S=S+P ENDFOR
ENDFOR ?S
？S
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：循环体中的两句调换位置，
[例]托运行李。
<20kg，0.5元/kg；>=20kg，1.5元/kg。
Input “行李重=” to x If x<20 K=x*0.5 Else K=20*0.5+(x-20)*1 .5 Endif ?“应收”,k,“元” RETURN
[例]输入任意三个数，按由小 到大排列输出。
INPUT “A=“ TO A INPUT “B=“ TO B INPUT “C=“ TO C IF A>B T=A A=B
设该三位数的数值为： N=X*100+Y*10+Z
[例]编程求水仙花数。所谓“水仙花数”是
指一个三位数，其各位数字的立方和等于
该数本身（如153=13+53+33）。
For a=1 to 9
FOR I=100 TO 999
for b=0 to 9
A=INT(I/100)
For c=0 to 9
B=INT((I-100*A)/10)
在命令方式下，用modify command <文 件名>命令创建命令（程序）文件，用 do <文件名>命令执行文件
顺序结构
[例]求当前日期的长度，并显示日期和长度值
a1=DTOC(DATE()) 串
＆＆将当前日期转换成字符
b1=LEN(a1)
＆＆求长度
?a1,b1
＆＆输出
CANCEL
＆＆终止程序的执行
input "w=" to w input "h=" to h r=w/h**h*10**7
do case case r<100 ?"瘦" case r<115 ?"稍瘦" case r<145 ?"标准" case r<160 ?"稍胖" otherwise ?"胖" endcase return