VFP6-综合程序设计(Y).ppt

数据库应用（VFP6.0）,,J,Company Logo,第四章 程序设计控制结构,第三节 综合程序设计,第四章 程序设计控制结构,J,杭商院计算机教研室,J,Company Logo,综合程序设计,数值,整除算法：,求余数算法,累加,累乘,涉及的主要函数及运算符：MOD(), INT(),%,INT(X/Y)=X/Y MOD(X,Y)=0 X%Y=0,X-Y*INT(X/Y)=0,X-INT(X/Y)*Y MOD(X,Y) X%Y,S=（0） (DO WHILE 或FOR) S=S+A ,S=（1） (DO WHILE 或FOR) S=S*A ,DEMO-整除1,给定正整数的所有因子,FOR I=2 TO N-1 IF N%I=0 ?I ENDIF ENDFOR,1.求因子的和？ 2.求因子的积？ 3.求因子的平方和？ 4.因子连乘式？P199T5-13 5.判断是否是完数？,输出给定正整数的质数因子,I=2 DO WHILE I=N IF N%I=0 ?STR(I,6) N = INT(N/I) LOOP ENDIF I=I+1 ENDDO,求质数因子！,DEMO-整除2,最大公约数,最小公倍数,X=MIN(M,N) FOR I=X TO 1 STEP -1 IF M/I=INT(M/I) and N%I=0 GYS=I EXIT ENDIF ENDFOR,既能被M整除又能被N整除的最大值,Y=MAX(M,N) FOR J=1 TO MIN(M,N) GBS=J*Y IF GBS%X=0 EXIT ENDIF ENDFOR,既能整除M又能整除N的最小值,如何既求最大公约数又求最小公倍数？ GBS=M*N/GYS,DEMO-求余数1,典型算法求数值型数据的每个数字； 书P178例题4.30,R=MOD(N,10),N=INT(N/10),结束,DEMO-求余数2,如求给定正整数的每个数字之和，如1234：1+2+3+4=10 算法：,如果给定的不是正整数而是实数？如1234.567？ 解题思路：把实数变成正整数 算法:,DO WHILE N0 R= MOD(N,10) S=S+R N=INT(N/10) ENDDO,先求余数，再取整抛个位,INPUT “M=“ TO M N=M DO WHILE INT(N)N N=N*10 ENDDO,如果求的不是和，而是最大、最小数？包含指定数码的个数？,DEMO-求极值问题,求最大最小值 给定一组数；（程序填空题DEMO1） 从键盘输入n个数； （程序填空题DEMO1） 2维数组； （程序填空题DEMO2） 排序 2个数的排序； 3个数的排序； （P199T5-10）,DEMO-累加、累乘,累加、累乘的基本算法,典型例题： 偶数个数P199T5-8； P193T3-3（讲）、P196T4-5、P199T5-10,字符,常用算法及函数 字符比较 包含比较：$ 或 AT() 精确比较： = =或SET EXACT ON 字符转换 大小写：UPPER()、LOWER() 类型：VAL()、ASC()、CTOD() 取子串：LEFT()、RIGHT()、SUBSTR() 字符截取空格：TRIM()、ALLTRIM() 字符连接：+ - 其他相关函数：LEN(),DEMO-倒置字符串,P181例题4.31，如ABCD- DCBA 从字符由后向前一个一个取后连接； 原字符串 L 第L个字符 倒置后字符串 ABCD 4 D D ABCD 3 C DC ABCD 2 B DCB ABCD 1 A DCBA 从字符由前向后一个一个取后连接； S=R+S,p=len(ch),R=Substr(ch,L,1),S=S+R,DEMO-数字字符转换,P183例题4.33 数字中文大写金额 1023.44 1023.45102345 零壹贰叁肆伍陆柒捌玖 分角元拾佰仟万拾佰仟亿 数字 末位 金额 单位 中文大写 102345 5 11 1 伍分 10234 4 9 3 肆角伍分 1023 3 7 5 叁元肆角伍分 102 2 5 7 贰拾叁元肆角伍分 10 0 1 9 零贰拾叁元肆角伍分 1 1 3 11 壹仟零贰拾叁元肆角伍分,DEMO-其他字符,密码翻译P194T4-1。读程序写结果DEMO 日期转换成中文大写形式P200T5-12(上机已讲) 图形输出问题 图形的形状 输出的内容（转换为字符型数据输出） 九九乘法表P200T5-7、星花输出P202、机考题一题,表,相关知识点 表文件操作：USE 表内容处理：REPLACE 查询LOCATE FOR 、SEEK 统计COUNT SUM AVERAGE 表内容浏览SCAN 、 DO WHILE !EOF() 典型例题 记录指针移动P80例题2.23 查询P154例题4.7、P155例题4.8-4.9、P159例题4.15、4.16、4.17 统计 P185例题4.33显示输出学生表中每个班级的男女同学的奖学金总额（经济09甲、国贸09甲讲）。,其他,4.3.3宏替换&、名表达式()和EVALUATE()的运用(P194T3-4) P186例4.34。显示指定表中的全部字段名，并由用户输入显示表信息的条件，最后列表显示满足条件的记录（字段数可以用函数FCOUNT()得到）。 ACCEPT “请输入表名（扩展名略）：“ TO TBN IF FILE(“&TBNDBF“) USE(TBN) ELSE WAIT “指定的表不存在！“ TIMEOUT 5 RETURN ENDIF ACCEPT “请输入显示表信息的条件表达式：“ TO EXPR LIST FOR EVALUATE(EXPR),程序填空题DEMO1,SET TALK OFF CLEAR INPUT “N= “ TO N INPUT “A= “ TO A STORE A TO X,Y (1) P=N-2 (2) INPUT “B=“ TO B S=S+B (3) X=B ENDIF (4) Y=B ENDIF ENDFOR R=S-X-Y ? R/P SET TALK ON,A. S=A B. S=0 C. S=N D. I=1,A. FOR I=1 TO N B. FOR I=2 TO N C. DO WHILE I=N D. FOR I=1 TO A,A. IF XB D. IF YX,A. IF XB D. IF YX,输入n个数，去掉最大、最小数，然后求平均值（练习P147-8）,Refs: 1. 从键盘输入n个数，并输出最大和最小值;P204-3-1 2. 从键盘输入3行4列的矩阵，查找并显示其中最大的元素及其下标。,程序填空题DEMO2,19,SET TALK OFF CLEAR DIME A(3,4) FOR L=1 TO 3 FOR J=1 TO 4 INPUT “P=” TO A(L,J) ENDFOR ENDFOR STORE 1 TO X,Y (1) FOR L=1 TO 3 FOR J=1 TO 4 IF (2) M=A(L,J) X= (3) Y= (4) ENDIF ENDFOR ENDFOR,A. M=0 B. M=A(X,Y) C. M=1 D. M=A(L,J),A. A(L,J)M B. MA(L,J) C. A(X,Y)M D. MA(X,Y),A. X+1 B. L C. Y+1 D. J,A. X+1 B. L C. Y+1 D. J,从键盘输入3行4列的矩阵，查找并显示其中最大的元素及其下标。,读程序写结果DEMO,20,*主程序* ACCEPT 请输入字符串: TO str1 ?原来的字符串为：,str1 str2=convert(str1) ?倒置后字符串为：,str2,* 字符串倒置函数* FUNC convert PARA con_str1 ch=SPACE(0) &附初值 k=LEN(con_str1) &取字符串长度 DO WHILE k0 ch1=SUBSTR(con_str1,k,1) ch=ch+ch1 k=