程序填空.doc

程序填空 题目 答案 语言 百马驮百瓦古题：大马、小马和马驹共100匹，共要驮100瓦，大马一驮三，小马一驮二，马驹二驮一，三种马都驮，共有多少种组合? set talk off clear n=0 for x=1 to 33 for y=1 to 50 z=__________ if _____________ n=n+1 ? x,y,z endif endfor endfor ? n set talk on return 6 FOXPRO 百钱百鸡古题：用100钱买100只鸡，公鸡一只五钱，母鸡一只三钱，雏鸡三只一钱，求出共有几种买法(要求每种鸡至少要买1只)。 set talk off clear n=0 for x=1 to 19 for y=1 to 33 z=100-x-y if ____________ _______ endif endfor endfor ? n set talk on return 3 FOXPRO 编写程序，求所有符合算式ij*ji=1300的最大数ij（即i*10+j）。其中i、j是1~9之间的一位整数。 set talk off clea ________ for i=1 to 9 for j=1 to 9 if _______=1300 if ___________ max=10*i+j endif endif endfor endfor ? max return 52 FOXPRO 编写程序，求所有符合算式ij*ji=1300的最大数ij（即i*10+j）与最小值ij之和。其中i、j是1~9之间的一位整数。 set talk off clea max=0 min=100 for i=1 to 9 for j=1 to 9 if ___________=1300 if max 27 FOXPRO 编写程序，求所有符合算式ij*ji=1300的最小数ij（即i*10+j）。其中i、j是1~9之间的一位整数。 set talk off clea min=_______ for i=1 to 9 for j=1 to 9 if ____________=1300 if __________ min=10*i+j endif endif endfor endfor ? min return 25 FOXPRO 对自然数A、B、C，若AB 10 FOXPRO 对自然数A、B、C，若AB 2 FOXPRO 勾股弦数是满足公式： A^2+B^2=C^2 (假定AB 120 FOXPRO 勾股弦数是满足公式： A^2+B^2=C^2 (假定AB 26 FOXPRO 勾股弦数是满足公式： A^2+B^2=C^2 (假定AB=100的勾股弦数的个数。 set talk off clea n=0 for a=1 to 25 for b=1 to 25 for c=1 to 100 if a 11 FOXPRO 回文指的是正读和反读都一样的一串字符，如121、1221。试求出[1234,3412]内所有回文数的和。 set talk off clear s=0 for x=1234 to 3412 _________ b=int((x-a*1000)/100) c=int((x-a*1000-b*100)/10) d=x-a*1000-b*100-c*10 _______________ s=s+x ? x,s endif endfor ? s return 49269 FOXPRO 回文指的是正读和反读都一样的一串字符，如121、1221。试求出[1234,9876]内回文数的个数。 set talk off clear n=0 for x=1234 to 9876 a=int(x/1000) b=int((x-a*1000)/100) _______________________ d=x-a*1000-b*100-c*10 _____________ n=n+1 endif endfor ? n set talk on return 85 FOXPRO 记s(n)=1+2+3+…+n,求s(1),s(2),……,s(100)中能同时被3和7整除的数的个数。 set talk off clear k=0 s=0 for n=1 to 100 _____ if mod(s,3)=0 and mod(s,7)=0 _____ endif endfor ? k set talk on return 18 FOXPRO 将大于500且能被4和6中至少一个数整除的所有整数按从小到大顺序排列后，求前面20个数之和。 set talk off clear k=0 s=0 x=500