1、求素数1~100之间的素数 1、求素数1~100之间的素数 clear s=0 for i=2 to 100 for j=2 to sqrt(i) if i%j=0 exit endif endfor if j>sqrt(i) ?i endif endfor 2、求1~100的素数之和 clear s=0 for i=2 to 100 for j=2 to sqrt(i) if i%j=0 exit endif endfor if j>sqrt(i) s=s+i endif endfor ?s 3、输出100到999之间水仙花数 clear set talk off for i=100 to 999 s=str(i,3) s1=substr(s,1,1) s2=substr(s,2,1) s3=substr(s,3,1) a=val(s1) b=val(s2) c=val(s3) if i=a^3+b^3+c^3 ??i endif endfor 4、输出100到999之间水仙花数的个数 set talk off CLEAR n=0 for i=100 to 999 a=int(i/100) &&取百位数字 b=int(i%100/10) &&取十位数字 c=mod(i,10) &&取个位数字 if a^3+b^3+c^3=i n=n+1 endif ENDFOR ?n set talk on 5、排序 clear dimension s(10) for i=1 to 10 s(i)=int(rand()*100) &&产生两位数的随机整数 ?s(i) endfor for i=1 to 9 k=i for j=i+1 to 10 if s(j)0 s=s-1/(i*2) ELSE s=s+1/(i*2) ENDIF ENDFOR ?"1-1/2+1/4-1/6+1/8……的前10项的和S="+ALLTRIM(STR(s,15,4)) set talk on 10、计算1-1/3+1/5-1/7+1/9……的前20项的和，结果存放在变量s中，用?输出结果。 set talk off s=0 a=1 for i= 1 to 39 step 2 s=s+a/i a=-a endfor ?s set talk on 11、求斐波那契数列的前20项的和。斐波那契数列的第一、第二项均为1，从第三项开始，每一项都是前面两项之和。即1，1，2，3，5，8，13，21，34，55……。（程序中，第1、2项分别用a 和b表示，结果放在s中） set talk off clear i=1 a=1 b=1 s=1 c=0 Do while i<4 s=s+b c=a a=b b=c+a i=i+1 enddo ? s set talk on 12、编写程序，找出一个4位数的完全平方数，该数减去5555后，结果仍是一个完全平方数。（完全平方数是一个整数，它是另一个整数的平方。例如25是5的平方,则25是一个完全平方数）（请用单重循环实现，结果放在n中，并用?输出） SET talk OFF FOR i=5555 TO 9999 FOR j=1 TO 100 IF i=j*j a=i-5555 FOR k=1 TO 100 IF a=k*k ?i ENDIF ENDFOR ENDIF ENDFOR ENDFOR SET talk ON 13、求500到800之间能被11或13整除的数的和sum，并用?输出sum的值。（循环变量用i表示） set talk off sum=0 for i=500 to 800 if i%11=0 or i%13=0 sum=sum+i endif endfor ?sum set talk on 14、求5!+6!+7!+8!+9!+10!之和（循环结构必须使用for循环，结果放在s中,并用？输出)。 set talk off s=0 for i=5 to 10 a=1 for j=1 to i a=a*j endfor s=s+a endfor ?s set talk on 15、求500以内能被5整除且能被7整除的数的个数num，并用?输出num的值。（循环变量用i表示） set talk off num=1 for i=1 to 500 if i%5=0 and i%7=0 num=num+1 ENDIF ENDFOR ?num set talk on 16、计算1+3!+5!+7!+9!之和(利用循环结构,和用s表示,结果用?输出) set talk off s=0 for i=1 to 9 step 2 a=1 for j=1 to i a=a*j endfor s=s+a ENDFOR ?s set talk on 17、已知rsb.dbf中编号(C,5)、姓名(C,6)、性别(C,2)、出生日期(D,8)、职称(C,10)、是否党员(L,1)和基本工资(N,7,2)七个字段，关闭会话状态后，统计基本工资在大于500到小于等于1000之间的人数n并用?输出n的结果。 set talk off use rsb coun for 基本工资>=500 and 基本工资<=1000 to n use ?n set talk on 18、计算2+4+6+……+100的值,将结果保存在变量s中，用?输出s。(用for循环结构实现,循环变量用i表示) set talk off clear s=0 for i= 2 to 100 step 2 s=s+i endfor ?s set talk on 19、计算1-1/2+1/3-1/4+……+1/9-1/11-1/2+1/3-1/4+……+1/9-1/10的值，结果存放在变量s中，用?输出结果。(用循环语句实现,循环变量用i表示,程序运行结果保留4位小数)。 set talk off n=1 s=0 for i=1 to 10 s=s+n*(1/i) n=-n endfor ?s set talk on 20、计算1+1/5+1/10+1/15+……+1/100的值，结果存放在变量s中，用?输出结果。(用循环语句实现,循环变量用i表示,程序运行结果保留4位小数)。 set talk off clear s=1 for i=5 to 100 step 5 s=s+1/i endfor ?s set talk on 21、计算3+6+9+12+……+99的值，结果存放在变量s中，用?输出结果。(用循环语句实现,循环变量用i表示)。 set talk off clear s=0 for i=3 to 99 step 3 s=s+i endfor ?s set talk on 22、求数据列1/(1*1)，1/(2*2)，1/(3*3)，……的前10项之和，结果存放在变量s中，用?输出结果。(用循环语句实现,循环变量用i表示,结果保留四位小数)。 set talk off clear s=0 for i=1 to 10 s=s+1/(i*i) endfor ?s set talk on 23、求100到999之间个位数字与十位数字之和被10除，所得余数恰好是百位上的数字的所有数字的和sum，并用?输出sum的值。循环变量用i表示。（例如：293就是符合该条件的数，不允许使用字符转换函数）。 set talk off sum=0 for i=100 to 999 a=int(i/100) &&取百位数字 b=int(i%100/10)&&取十位数字 c=mod(i,10) &&取个位数字 if mod(b+c,10)=a sum=sum+i endif endfor ?sum set talk on 24、输出100至999之间的最大的水仙花数.(结果放在n中,并用?输出。注意:程序中不允许使用有关字符的命令) set talk off clear for i=100 to 999 a=int(i/100) &&取百位数字 b=int(i%100/10)&&取十位数字 c=mod(i,10) &&取个位数字 if a^3+b^3+c^3=i n=i endif ENDFOR ?n set talk on 25、求150以内所有能被7整除的数的个数num，并用?输出num的值。（循环变量用i表示） set talk off clear num=0 for i=1 to 150 if i%7=0 num=num+1 endif endfor ?num set talk on 26、求100到200之间所有能被3或5整除的数的个数,结果存放在num中，并用?输出num的值。（循环变量用i表示） set talk off clear num=0 for i=100 to 200 if i%3=0 or i%5=0 num=num+1 endif endfor ?num set talk on 27、求500到1000之间所有能同时被3和7整除的数的个数num，并用?输出num的值。（循环变量用i表示） set talk off clear num=0 for i=500 to 1000 if i%3=0 and i%7=0 num=num+1 endif endfor ?num set talk on 28、求数列: 1，1/(1*2)，1/(2*3)，1/(3*4)，……的前20项之和,，结果存放在变量s中，用?输出结果。(用循环语句实现,循环变量用i表示)。 set talk off s=1 for i= 1 to 19 s=s+1/(i*(i+1)) endfor ?s set talk on 29、计算1+3+5+……+99的值,将结果存在变量s中，用?输出s.(用循环语句实现，循环变量用i表示) set talk off s=0 for i= 1 to 99 step 2 s=s+i endfor ?s set talk on 30、计算1-1/3+1/5-1/7+1/9……的前20项的和，结果存放在变量s中，用?输出结果。(用for循环语句实现,循环变量用i表示,程序运行结果保留4位小数)。 set talk off s=0 a=1 for i= 1 to 39 step 2 s=s+a/i a=-a endfor ?s set talk on
本文档为【vfp程序设计】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483