最新VF程序题练习一级Word文件下载.docx

1、=2 if mod（b,a）=0 s=s+b t=t+1 ENDIF ELSE loop108645、求559399的所有非平凡因子（即除1和它本身以外的约数）中最小的。a=559399for n=2 to a if mod（a,n）=0736、求179869和196037的最大公约数。a=179869b=196037for d=2 to a if mod（d,a）=0 and mod（d,b）=0 max=d max20217、求1,100内能被6或8整除的所有自然数的平方根的和（将第1位小数四舍五入，结果只保留整数）。for n=1 to 100 if mod（n,6）=0 and mod

2、（n,8）=0 s=sqrt（s+n） round（s,0）答案1628、求出100,999内恰有1位数字是7的所有整数之和。for x=100 to 999 a=int（x/100） b=INT（x-a*100）/10 c=MOD（x,10） if （a=7 AND b!=7 AND c!=7） or （a!=7 AND b=7 AND c!=7 AND b!=7 AND c=7）答案1377509、编写程序，计算10000以内有多少个这样的数，其个位数为6且该数能被9整除。cleafor i=1 to 10000 if mod（i,10）=6 if mod（i,10）=9答案11110、已

3、知24有8个正整数因子（即:1,2,3,4,6,8,12,24），而24正好被其因子个数8整除。求100,300之间能被其因子数目整除的数的个数。c=0for n=100 to 300 s=0 for i=1 to n if int（i/10）=0 s=s+1 endfor if mod（n,s）=0 c=c+1答案1911、闰年是指年号能被4整除，但不能被100整除，或者能被400整除的年份。求1000年到2050年之间共有多少闰年。for i=1000 to 2050 if mod（i,4）=0 or mod（i,100）#0 and mod（i,400）=0答案25512、求出20326

4、7的所有真因子（即小于它本身的约数）中最大的。a=203267for b=1 to a-1 step -1 exit b答案655713、将大于1000且能被3和5中至少一个数整除的所有整数按从小到大顺序排列后，求前面20个数之和。k=0x=1000do while k=5.6n答案15215、求500以内最小的自然数n，使得从102开始的连续n个偶数之和大于60000。for n=0 to 500 a=102+2*n s=s+a60000答案19916、求出100以内使得算式1+（1+2）+（1+2+n）的值小于1000的最大的自然数n。 s=s+n t=t+s if t1000n-1答案1

5、717、求出100以内最大的奇数n使得算式（1-1/2）+（1/3-1/4）+（1/n-1/（n+1）的值小于0.68。for n=1 to 100 step 2 a=1/n-1/（n+1） if s0.68 n-1答案3618、某国在2000年时人口总数为1亿，若以每年3%的速度递增，试求出至少要到哪一年该国人口总数才会翻一翻。s=1for n=2001 to 2100 s=s*1.03 if s=2答案202419、已知数列：1,2,4,7,11,16,，其规律是相邻两项之差依次是1,2,3,4,5,。试求出此数列中小于6000的最大的项。a=1for n=0 to 1000 if a+n

6、=0.1答案1628、已知数列f（n）:f（1）=1,f（2）=1,当n2时f（n）=3f（n-2）-f（n-1）。试求此数列的前15项中所有正数项之和。dimension f（20）f（1）=1f（2）=1for n=3 to 15 f（n）=3*f（n-2）-f（n-1） if f（n）#0 s=s+f（n）答案1229329、求方程3x-7y=1在条件|x|100且|y|40下的整数解的个数。for x=-99 to 99 y=int（3*x-1）/7） if 3*x-7*y=1 or abs（y）40答案2630、把一张一元钞票,换成一分、二分和五分硬币,每种至少11枚,问有多少种方案

7、?for yi=11 to 100 for er=11 to 20 for wu=11 to 20 if yi+er+wu=100答案1331、求方程3x-7y=1在条件|x|40下的所有整数解的|x|+|y|的最大值。max=0 y=int（3*x）/7） z=abs（x+y） if 3*x-7*y=1 and abs（y）40 max=z答案12732、编写程序，求所有符合算式ij*ji=2668的最大数ij（即i*10+j）。其中i、j是19之间的一位整数。max=10for i=1 to 9 for j=1 to 9 if ij+ji=2668 if maxx+y+z max=x+y+

8、z答案7134、求1001000内的所有素数的平均数。（素数是指只能被1和本身整除的数）for i=100 to 1000 f=1 for j=2 to i if mod（i,j）=0 f=0 if f=0 n=n+i n/t答案524.944135、一个大于6的偶数可以表示为两个素数之和，即C=A+B，其中C为偶数，A与B为素数。求出280的所有素数和表示中A*B的最大值。c=280for a=3 to c/2 STEP 2 f1=1 for j=2 to a-1 if mod（a,j）=0 f1=0 ENDFOR IF f1=1 b=c-a f2=1 for j=2 to b-1 if m

9、od（b,j）=0 f2=0 IF f1=1 or f2=1 IF maxa*b max=a*b答案1951936、设某四位数的各位数字的立方和等于100，问满足这种条件的四位数且是素数的数共有多少个？for x=1000 to 9999 for i=2 to int（sqrt（x） if mod（x,i）=0 a=int（x/1000） b=int（x-a*1000）/100） c=int（x/10） d=MOD（x,10） IF a*a*a+b*b*b+c*c*c+d*d*d=100 ? return答案193337、求1001000内的第10个素数。 if f=1 n=i k=k+i i

10、f k=10答案14938、梅森尼数是指能使2n-1为素数的数n，求1，21范围内的梅森尼数的个数？for I=2 to 21 flag=1 *下行有错 for j=2 to I if mod（2I-1）,j）=0 flag=0 if flag=039、一个大于6的偶数可以表示为两个素数之和，即C=A+B，其中C为偶数，A与B为素数。求出300的所有素数和表示中A*B的最大值。c=300max=10000000 IF max答案2249940、回文数指的是正读和反读都一样的数字，如121、1221。试求出1234,9876内奇数回文数的个数。for x=1234 to 9876 a=x/100

11、0 b=int（x-a*1000）/100） c=int（x-a*1000-b*100）/10） d=x-a*1000-b*100-c*10*下行有错 if a=d and b=c and mod（x,2）=0答案4541、勾股弦数是满足公式： A2+B2=C2 （假定ABC）的一组正整数（A，B，C），例如，（3，4，5）是勾股弦数，因为：32+42=52。求A，B均小于25且A+B+C=100的勾股弦数的个数。for a=1 to 25 for b=1 to 25 for c=1 to 100 if ab and bc if a+b+c=100答案1142、若一个四位正整数是另一个正整数的

12、平方，且各位数字的和是一个平方数，则称该四位正整数是四位双平方数。例如： 由于7396=862，且7+3+9+6=25=52，则称7396是求所有中最大的一个for i=1000 to 9999 a=i/1000 b=int（i-a*1000）/100） c=int（i-a*1000-b*100）/10） d=mod（i,10） x=a+b+c+d if sqrt（i）=int（sqrt（i） and sqrt（x）=int（sqrt（x） *下行有错 i max=i min答案902543、若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是且十位数字是3的数之和 d=mod