VFP程序的设计复习.pptVIP

例1：30个学生一起买小吃，共花钱100元，其中每个大学生花5元，每个中学生花3元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的解）？ n=0 for a=1 to 30 for b=1 to 30 for c=1 to 30 if a+b+c=30 .and. a*5+b*3+c*1=100 n=n+1 endif endfor endfor endfor ? n 例2：50元兑换成5元、2元和1元的计算方法有多少种。 note ：fy,ty,oy为5元、2元、1元的张数 note ：n 为兑换的种数 n=0 for fy=0 to 10 for ty=0 to 25 for oy=0 to 50 sum1=fy*5+ty*2+oy*1 if sum1=50 n=n+1 endif next next next ? 兑换的种数,n 六 方程问题  练习： 1、若（x,y,z）满足方程：x^2+y^2+z^2=55^2(注：要求 x y z),则（x,y,z）称为方程的一个解。试求方程的所有整数解中，|x|+|y|+|z|的最大值。 2、若（x,y,z）满足方程：x^2+y^2+z^2=55^2(注：要求 x y z),则（x,y,z）称为方程的一个解。试求方程的所有整数解中x+y+z的最大值。 3、若（x,y,z）满足方程：x^2+y^2+z^2=55^2(注：要求 x y z),则（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、找满足以下条件: X^2+Y^2+Z^2=41^2 且X+Y+Z之值最大的三个正整数X,Y,Z, 求X+Y+Z之值. 七 其它 　　 例1：50个小学生按１至50序号顺时针围成一圈，做出局游戏，老师站在圈外逆时针从最后一个人数起，每数到5时，这人从圈里出来，继续数1,2,3,4,5,数到第5个学生时，他就出局，已出局的位置不再参加计数，直至所有的学生出局为止，问最后一个出局的学生序号是多少号。 　　 　 note ：n为每数到5时　flag=1 为在圈内dime stu(50)为50个学生 note ：count1=1 为报数器　count2=0记数器 dime stu(50) N= 5 flag=1 for i=1 to 50 stu(i)=flag next count1=1 count2=0 i=1 flag=0 do while count249 if count1=N then 　　 count2=count2+1 stu(i)=flag count1=1 endif i=i+1 if i=51 then i=1 endif count1=count1+stu(i) enddo for i=1to 50 if stu(i)=1 then ?i endif endf ? 谢谢观看！ 2020 湖南省计算机等级考试一级VFP程序设计复习资料 一 求某范围内满足某种条件的问题（整除） 例：求出[10,1000]以内同时满足除以7余5,除以5余3,除以3余1的所有整数的个数。 源程序如下： Set talk off S=0 *为求个数设立一个变量 For I=10 to 1000 If I%7=5 and I%5=3 and I%3=1 S=s+I Endif ? s *在屏幕上显示出结果 练习： 1. 编程序求1~60所有整数的平方和并输出结果。 2. 编程序求1~85的平方根和并输出结果。（保留小数点两位） 3. 编程序求出100到200之间同时满足除3余2和除5余3条件的数的个数。 4.编程序求出1到4000之间的能被5整除的前若干个偶数之和，当和大于400时退出并输出结果。 5.求[3333，6666]之间所有能被5整除同时能被7整除的数,问共有多少个这样的数？ 二 数字分离 例1： 编写程序，求四位数的奇数中，每位数字之和是15的倍数的数的和。 源程序如下： Sum=0 Clear For I=1001 to 9999 step 2 a4=int(i/1000) *取第四位上的数字 a3=int(i/100)%10 a2=int(i/10)%10 a1=i%10 If (a1+a2+a3+a4)%15=0