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

数据库应用（VFP6.0）,J,CompanyLogo,第四章程序设计控制结构,第三节综合程序设计,第四章程序设计控制结构,J,杭商院计算机教研室,J,CompanyLogo,综合程序设计,数值,整除算法：,求余数算法,累加,累乘,涉及的主要函数及运算符：MOD(),INT(),%,INT(X/Y)=X/YMOD(X,Y)=0X%Y=0,X-Y*INT(X/Y)=0,X-INT(X/Y)*YMOD(X,Y)X%Y,S=（0）(DOWHILE或FOR)S=S+A,S=（1）(DOWHILE或FOR)S=S*A,DEMO-整除1,给定正整数的所有因子,FORI=2TON-1IFN%I=0?IENDIFENDFOR,1.求因子的和？2.求因子的积？3.求因子的平方和？4.因子连乘式？P199T5-135.判断是否是完数？,输出给定正整数的质数因子,I=2DOWHILEI0R=MOD(N,10)S=S+RN=INT(N/10)ENDDO,先求余数，再取整抛个位,INPUTM=TOMN=MDOWHILEINT(N)NN=N*10ENDDO,如果求的不是和，而是最大、最小数？包含指定数码的个数？,DEMO-求极值问题,求最大最小值给定一组数；（程序填空题DEMO1）从键盘输入n个数；（程序填空题DEMO1）2维数组；（程序填空题DEMO2）排序2个数的排序；3个数的排序；（P199T5-10）,DEMO-累加、累乘,累加、累乘的基本算法,典型例题：偶数个数P199T5-8；P193T3-3（讲）、P196T4-5、P199T5-10,字符,常用算法及函数字符比较包含比较：$或AT()精确比较：=或SETEXACTON字符转换大小写：UPPER()、LOWER()类型：VAL()、ASC()、CTOD()取子串：LEFT()、RIGHT()、SUBSTR()字符截取空格：TRIM()、ALLTRIM()字符连接：+-其他相关函数：LEN(),DEMO-倒置字符串,P181例题4.31，如ABCD-DCBA从字符由后向前一个一个取后连接；原字符串L第L个字符倒置后字符串ABCD4DDABCD3CDCABCD2BDCBABCD1ADCBA从字符由前向后一个一个取后连接；S=R+S,p=len(ch),R=Substr(ch,L,1),S=S+R,DEMO-数字字符转换,P183例题4.33数字中文大写金额1023.441023.45102345零壹贰叁肆伍陆柒捌玖分角元拾佰仟万拾佰仟亿数字末位金额单位中文大写1023455111伍分10234493肆角伍分1023375叁元肆角伍分102257贰拾叁元肆角伍分10019零贰拾叁元肆角伍分11311壹仟零贰拾叁元肆角伍分,DEMO-其他字符,密码翻译P194T4-1。读程序写结果DEMO日期转换成中文大写形式P200T5-12(上机已讲)图形输出问题图形的形状输出的内容（转换为字符型数据输出）九九乘法表P200T5-7、星花输出P202、机考题一题,表,相关知识点表文件操作：USE表内容处理：REPLACE查询LOCATEFOR、SEEK统计COUNTSUMAVERAGE表内容浏览SCAN、DOWHILE!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请输入表名（扩展名略）：TOTBNIFFILE(&TBN.DBF)USE(TBN)ELSEWAIT指定的表不存在！TIMEOUT5RETURNENDIFACCEPT请输入显示表信息的条件表达式：TOEXPRLISTFOREVALUATE(EXPR),程序填空题DEMO1,SETTALKOFFCLEARINPUT“N=“TONINPUT“A=“TOASTOREATOX,Y(1)P=N-2(2)INPUT“B=“TOBS=S+B(3)X=BENDIF(4)Y=BENDIFENDFORR=S-X-Y?R/PSETTALKON,A.S=AB.S=0C.S=ND.I=1,A.FORI=1TONB.FORI=2TONC.DOWHILEI=ND.FORI=1TOA,A.IFXBD.IFYA(L,J)C.A(X,Y)MD.MA(X,Y),A.X+1B.LC.Y+1D.J,A.X+1B.LC.Y+1D.J,从键盘输入3行4列的矩阵，查找并显示其中最大的元素及其下标。,读程序写结果DEMO,20,*主程序*ACCEPT请输入字符串:TOstr1?原来的字符串为：,str1str2=convert(str1)?倒置后字符串为：,str2,*字符串倒置函数*FUNCconvertPARAcon_str1ch=SPACE(0)&附初值k=LEN(con_str1)&取字符串长度DOWHILEk0ch1=SUBSTR(con_str1,k,1)ch=ch+ch1k=k-1ENDDOcon_str1=chRETURN