《湖南省VFP编程求取(2012-11-24)》由会员分享，可在线阅读，更多相关《湖南省VFP编程求取(2012-11-24)（14页珍藏版）》请在金锄头文库上搜索。
1、一、编程1、编程求取：121,200 之间的弦数的之和。 （若某正整数的平方等于另两个正整数平方之和，则称该数为弦数. 例如:32+42=52, 因此 5 是弦数） 。2set talk offClean=0for a=121 to 200 for x=1 to at=a-xif int(sqrt(t)*int(sqrt(t)=t*tn=n+1exitendifendforendfor? nset talk onreturn65042、编程求取：121,200 之间的第 10 个弦数。 （若某正整数的平方等于另两个正整数平方之和，则称该数为弦数. 例如:32+42=52, 因此 5 是弦数）
2、。2set talk offClean=1for a=121 to 200 for x=1 to a-1t=a*a+x*xif int(sqrt(t)*int(sqrt(t)=tn=n+1if n=10? aReturnEndifExitEndifEndforEndforset talk onreturn1453、勾股弦数是满足公式： A2+B2=C2 (假定 A2set talk offclean=0for a=1 to 25for b=1 to 25for c=1 to 100if a114、勾股弦数是满足公式： A2+B2=C2 (假定 A2set talk offclean=0for
3、a=1 to 60for b=1 to 60for c=1 to 60if a265、勾股弦数是满足公式： A2+B2=C2 (假定 A2set talk offcleamax=1000for a=1 to 50for b=1 to 50for c=1 to 50if a1206、编写程序，求所有符合算式 ij*ji=1300 的最小数 ij（即 i*10+j） 。其中 i、j 是 19 之间的一位整数。2set talk offcleamin=0for i=1 to 9for j=1 to 9if ij+ji=1300if minijmin=10*i+jendifendif endforen
4、dfor? minreturn257、编写程序，求所有符合算式 ij*ji=1300 的最大数 ij（即 i*10+j） 。其中 i、j 是 19 之间的一位整数。2set talk offcleamax=110for i=1 to 9for j=1 to 9if ij+ji=1300if max528、编写程序，求所有符合算式 ij*ji=1300 的最大数 ij（即 i*10+j） 。其中 i、j 是 19 之间的一位整数。2set talk offcleamax=110for i=1 to 9for j=1 to 9if ij+ji=1300if max279、若一个四位正整数是另一个正
5、整数的平方，且各位数字的和是一个平方数，则称该四位正整数是四位双平方数。例如： 由于 7396=862，且 7+3+9+6=25=52，则称 7396 是四位双平方数。求所有 四位双平方数中最小的一个四位双平方数。2set talk offcleamin=10000for i=1000 to 9999a=int(i/1000)b=int(i-a*1000)/100)c=mod(i,100)d=mod(i,10)x=a+b+c+dif sqrt(i)*int(sqrt(i)=i if minimin=iendifendifendfor? minset talk onreturn152110、若一
6、个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是四位双平方数。例如： 由于 7396=862，且 7+3+9+6=25=52，则称 7396 是四位双平方数。求所有 四位双平方数中最大的一个四位双平方数。2set talk offcleamax=0for i=1000 to 9999a=int(i/1000)b=int(i/100)c=int(mod(i,100)/10)d=mod(i,10)x=a+b+c+dif int(sqrt(x)*int(sqrt(x)=xif max902511、若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该
7、四位正整数是四位双平方数。例如： 由于 7396=862，且 7+3+9+6=25=52，则称 7396 是四位双平方数。求所有 四位双平方数的个数。2set talk offclean=1for i=1000 to 9999a=int(i/1000)b=int(i-a*1000)/100)c=mod(i,100)d=mod(i,10)x=a+b+c+dif int(sqrt(i)*int(sqrt(i)=i n=1endifendfor? nset talk onreturn1712、若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是四位双平方数。例如： 由
8、于 7396=862，且 7+3+9+6=25=52，则称 7396 是四位双平方数。求所有 四位双平方数的和。2set talk offclean=0for i=1000 to 5000a=int(i/1000)b=int(i-a*1000)/100)c=int(i/10)d=mod(i,10)x=a+b+c+dif int(sqrt(x)*int(sqrt(x)=xn=1endifendfor? nset talk onreturn8197713、若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是四位双平方数。例如： 由于 7396=862，且 7+3+9
9、+6=25=52，则称 7396 是四位双平方数。求所有 四位双平方数且十位数字是 3 的数的之和。2set talk offclean=1for i=1000 to 9999a=int(i/1000)b=int(i,100)c=int(mod(i,100)/10)d=mod(i,10)x=a+b+c+dif int(sqrt(i)*int(sqrt(i)=i and b=3n=n+iendifendfor? nset talk onreturn1306414、50 个小学生按至 50 序号顺时针围成一圈，做出局游戏，老师站在圈外顺时针从第一个人数起，每数到 5 时，这人从圈里出来，继续数 1
10、,2,3,4,5,数到第 5 个学生时，他就出局，已出局的位置不再参加计数，直至所有的学生出局为止，问最后一个出局的学生序号是多少号。2set talk offcleadime a(50)for i=1 to 50a(i)=0endfork=0for i=1 to 50p=1 &每趟报数 do while p50 k=0endifif ak1915、50 个小学生按至 50 序号顺时针围成一圈，做出局游戏，老师站在圈外顺时针从第一个人数起，每数到 3 时，这人从圈里出来，继续数 1,2,3 数到第 3 个学生时，他就出局，已出局的位置不再参加计数，直至所有的学生出局为止，问最后一个出局的学生序
11、号是多少号。2set talk offcleadime a(50)for i=1 to 50a(i)=0 &0 表示出队 endfork=0for i=1 to 50p=1do while p0p=p+1endifenddoap=0endfor? kset talk offreturn1116、设有一个 12*12 方阵 A（I,j）,其每个元素的值为该元素下标的平方和, 求出该矩阵所有元素的累加和. (注:I,j 从 1 开始)2set talk offs=1for i=1 to 12for j=1 to 10s=i+jendforendfor? sreturn 15600设有一个 12*1
12、2 方阵 A（I,j）,其每个元素的值为该元素下标的平方和, 求出该矩阵所有主对角线（i=j ）上的元素的累加和. (注:I,j 从 1 开始)2set talk offdime a(12,12)s=1for i=1 to 12for j=1 to 12a(i,j)=i+jif i130017、水仙花数是指这样的数，其各位数字的立方和等于该数本身，如:153=13+53+33。编写程序，计算从 100 年开始到 2000 年为止，共有多少个年号是水仙花数年号。2set talk offclean=1for i=100 to 2000a=int(i/1000)b=int(i-a*1000)/10
13、0)c=mod(i,100)d=mod(i,10)if a*a+b*b+c*c=in=n+1endifendfor? nreturn418、水仙花数是指这样的数，其各位数字的立方和等于该数本身，如:153=13+53+33。编写程序，计算从 100 年开始到 3000 年为止，最大的水仙花数年号为多少？2set talk offcleamax=0for i=100 to 3000a=int(i/1000)b=int(i-a*1000)/100)c=int(i/10)d=mod(i,10)if a*a+b*b+c*c+d*d=ii=i+1endifendfor? maxreturn40719、水
14、仙花数是指这样的数，其各位数字的立方和等于该数本身，如:153=13+53+33。编写程序，计算从 100 年开始到 3000 年为止，最大的水仙花数年号为多少？2set talk offcleas=100for i=100 to 3000a=int(i/1000)b=int(x/100)c=int(mod(i,100)/10)d=mod(i,10)if a*3+b*3+c*3=is=s+1endifendfor? sreturn130120、一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数。如 13，试求所有两位绝对素数的和。2set talk offcleas=0fo
15、r i=10 to 99j=mod(i,10)f1=1for k=2 to iif mod(i,k)=0f1=0endifendforf2=1for k=2 to j-1if mod(j,k)=0f2=0endifendforif f1=1s=s+iendifendfor? sreturn42921、一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数。如 13，试求所有两位绝对素数的个数。2set talk offcleas=0for i=10 to 99j=int(i/10)+mod(i,10)f1=1for k=2 to iif mod(i,k)=0f1=0endife
16、ndforf2=1for k=2 to jif mod(j,k)=0f2=0endifendforif f2=1s=s+1endifendfor? sreturn922、一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数。如 13，试求两位数中最大的绝对素数。2set talk offcleamax=0for i=10 to 99j=mod(i,10)f1=1for k=2 to iif mod(i,k)=0f1=0endifendforf2=1for k=2 to jif mod(j,k)=0f2=0endifendforif f1=1max=iendifendfor? maxreturn
