VFP程序设计复习ppt课件

.,湖南省计算机等级考试一级VFP程序设计复习资料,一求某范围内满足某种条件的问题（整除）,.,例：求出10,1000以内同时满足除以7余5,除以5余3,除以3余1的所有整数的个数。,源程序如下：SettalkoffS=0*为求个数设立一个变量ForI=10to1000IfI%7=5andI%5=3andI%3=1S=s+IEndif?s*在屏幕上显示出结果,.,练习：,1.编程序求160所有整数的平方和并输出结果。2.编程序求185的平方根和并输出结果。（保留小数点两位）3.编程序求出100到200之间同时满足除3余2和除5余3条件的数的个数。4.编程序求出1到4000之间的能被5整除的前若干个偶数之和，当和大于400时退出并输出结果。5.求3333，6666之间所有能被5整除同时能被7整除的数,问共有多少个这样的数？,.,二数字分离,例1：编写程序，求四位数的奇数中，每位数字之和是15的倍数的数的和。,.,源程序如下：Sum=0ClearForI=1001to9999step2a4=int(i/1000)*取第四位上的数字a3=int(i/100)%10a2=int(i/10)%10a1=i%10If(a1+a2+a3+a4)%15=0Sum=sum+IEndifEndfor?sumreturn,.,例2：求100,10000中其各位数字之和能被7整除的数的个数,源程序如下：SettalkoffS=0*用来记数的变量，定义在循环体外Fori=1000to9999A4=int(i/1000)*取第四位上的数字A3=int(i/100%10)A2=int(i/10%10)A1=i%10If(a1+a2+a3+a4)%7=0*满足的条件表达式S=s+1*求个数累加1EndifEndfor?s*在循环结束后在显示要求的个数,.,例3：回文数是指正读和反读都一样的正整数。例如3773等都是回文数。所谓回文数是从左至右或从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求在10009000的范围内所有回文数个数。,.,源程序如下：clears=0stor0toa,b,c,d,ifori=1000to9999a=int(i/1000)b=int(i/100%10)c=int(i/10%10)d=i%10ifa=dandb=cs=s+1endifendfor?sreturn,.,例4：一个数出现在该数的平方数的右边，称这个数为“同构数”。例如，5出现在平方数25的右边，25出现在平方数625的右边，则5、25都是“同构数”。找出1，1000之间的所有“同构数”的个数。,.,源程序如下：ClearS=0ForI=1to1000B=I*2Ifb%10=Iorb%100=Iorb%1000=IS=s+1EndifEndfor?sreturn,.,例5：若某整数N的所有因子之和等于N的倍数，则N称为多因子完备数,如数28,其因子之和1+2+4+7+14+28=56=2*28,28是多因子完备数。求1,200之间有多少个多因子完备数。求在10，1000之间的所有完备数之和。各真因子之和（不包括自身）等于其本身的正整数称为完数。例如：6=1+2+3，6是完数。,.,源程序如下：ClearK=0Sum=0*用来保存结果即完数的和Fork=10to1000S=kForI=1tok-1If(k%i)=0&满足条件的表示I是k的一个因子S=s-I&将数k减去它的所有因子EndifEndfor,.,Ifs=0&s等于零表示s减去所有因子后为零，满足完数的条件Sum=-sum+kEndifEndfor？sumreturn,.,例6：求五位数各数字的平方和为100的最大的五位数。,.,源程序如下：ClearForI=99999to10000step1A5=int(i/10000)A4=int(i/1000%10)A3=int(i/100%10)A2=int(i/10%10)A1=I%10Ifa5*2+a4*2+a3*2+a2*2+a1*2=100?Ibreak&因为循环是从大到小，找到第一个即可跳出endifendfor,.,练习：,1、已知24有8个因子（即：1,2,3,4,6,8,12,24），而24正好被8整除。求100,300之间所有能被其因子数目整除的数之和。2、编写程序，求在四位数的偶数中，所有各位数字之积（且不为0）是18的倍数的数的和3、一个数如果刚好与它所有的因子之和相等，则称该数为一个“完数”，如：6=1+2+3，则6就是一个完数。求出1000以内的所有的完数之和。4、设某四位数的千位数字与十位数字的和等于百位数字与个位数字的积，例如，对于四位数：9512，9+1=5*2，试问所有这样的四位数之和是多少？,.,5、设某四位数的千位数字的平方与十位数字的平方之和等于百位数字的立方与个位数字的立方之和，例如，对于四位数：3201，32+02=23+13，试问这样的四位数有多少个？6、设某四位数的各位数字的立方和等于100，试问有多少个这样的四位数？7、若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是“四位双平方数”。例如：由于7396=862，且7+3+9+6=25=52，则称7396是“四位双平方数”。求所有“四位双平方数”的个数。,.,三素数勾股数等,.,例1：编写程序，求一正整数等差数列的前五项的立方和，该数列前四项之和是26，之积是880。,源程序如下：flag=0fordd=0to10forx=1to1000a=xb=x+ddc=x+2*ddd=x+3*dde=x+4*ddifa+b+c+d=26anda*b*c*d=880then,.,flag=1exitendifnextxifflag=1thenexitendifnextd?a,b,c,d,e?a3+b3+c3+d3+e3,.,例2：水仙花数是指这样的数，其各位数字的立方和等于该数本身，如:153=13+53+33。编写程序，计算从100年开始到2000年为止，共有多少个年号是水仙花数年号。,.,源程序如下：n=0foryear=100to2000a=mod(year,10)b=mod(int(year/10),10)c=mod(int(year/100),10)d=mod(int(year/1000),10)ifyear=int(a*a*a)+int(b*b*b)+int(c*c*c)+int(d*d*d)thenn=n+1?a,b,c,dendifnextyear?n,.,例3：有些偶数可以分解成多种素数对的和，如：10=3+7，10=5+5，即10可以分解成两种不同的素数对。试求1234可以分解成多少种不同的素数对（注：A+B与B+A认为是相同素数对）,源程序如下：clearstore1toa,b,i,jstore0ton,mfori=2to1234/2a=ib=1234-iifsusu(a)andsusu(b)n=n+1,.,endifendfor?nfunctionsusu(x)&验证一个数是不是一个素数forj=2toint(sqrt(x)ifx%j=0return(.f.)exitendifendforifj=int(sqrt(x)+1return(.t.)endifendfunc,.,四等差、等比、数列、阶乘、公式,.,例1：斐波那契数列的前二项是1，1，其后每一项都是前面两项之和，求：10000000以内最大的斐波那契数？,clearf1=1f2=1f3=f1+f2dowhilef3yz),则（x,y,z）称为方程的一个解。试求方程的所有整数解中，|x|+|y|+|z|的最大值。2、若（x,y,z）满足方程：x2+y2+z2=552(注：要求xyz),则（x,y,z）称为方程的一个解。试求方程的所有整数解中x+y+z的最大值。3、若（x,y,z）满足方程：x2+y2+z2=552(注：要求xyz),则（x,y,z）称为方程的一个解。试求方程的整数解（包括负整数解）的个数。4、已知S1=1,S2=1+2,S3=1+2+4,S4=1+2+4+8,S5=1+2+4+8+16，编制一个程序求S=S1+S2+S3+S4+S5+S20的值。5、找满足以下条件:X2+Y2+Z2=412且X+Y+Z之值最大的三个正整数X,Y,Z,求X+Y+Z之值.,.,七其它,.,例1：50个小学生按至50序号顺时针围成一圈，做出局游戏，老师站在圈外逆时针从最后一个人数起，每数到5时，这人从圈里出来，继续数1,2,3,4,5,数到第5个学生时，他就出局，已出局的位置不再参加计数，直至所有的学生出局为止，问最后一个出局的学生序号是多少号。,.,note：n为每数到5时flag=1为在圈内dimestu(50)为50个学生note：count1=1为报数器count2=0记数器dimestu(50)N=5flag=1fori=1to5