2012甘肃专升本计算机程序设计

2012甘肃专升本计算机程序设计1AX+BX+C=0A、B、C式是：X=-b±√b²-4ac/2acleartext一元二次方程求解ax^2+bx+c=0endtextinputatoinputbtoinputctom=b*b-4*a*cifm>=0x1=(-b+sqrt(m))/(2*a)x2=(-b-sqrt(m))/(2*a)?"x1的值是：",x1?"x2elseendif21-1007整除的整数输出clearfori=1to100ifi%3=0andi%7=0??iendifendfor3eee=1+1/1!+1/2!+1/3!+...+1/n!cleare=1n=1dowhile.t.k=1fori=1ton

k=k*iendform=1/ke=e+mifm<0.000001exitendifn=n+1enddo?"e=1+1/1!+1/2!+1/3!+…+1/n!=",e4编写程序计算1++3+. N!=？clearinput"n的值："tos=0t=1fori=1tont=t*is=s+tendfor?"1！+2！+3！+. N!=",s5列。cleardimea(10)fori=1to10input"请输入一个数："toa(i)endfor?"降序排列为："fori=1to9forj=i+1to10ifa(i)<a(j)k=a(i)a(i)=a(j)a(j)=kendifendfor??alltrim(str(a(i)))+" endfor??alltrim(str(a(i)))6（1）输出有号组成的图形：*************************clearfori=-3to3?space(abs(i))forj=1to7-abs(i)*2??"*"endforendfor（2）*************************clearfori=1to5?space(5-i)forj=1to2*i-1??"*"endforendfor720Fibonacci1前两项只和。cleara=1b=1??a,bfori=1to18

c=a+ba=bb=c??cendfor8、九九乘法表clearfori=1to9forj=1toi??alltrim(str(i))+"*"+alltrim(str(j))+"="+alltrim(str(i*j))+space(3)endfor?Endfor91－100的和。clears=0??"1100fori=2to100x=0forj=2toi-1ifi/j=int(i/j)x=1endifendforifx=0??alltrim(str(i))+"s=s+iendifendfor?"它们的和是：",s10100999clear?"100-999之间的水仙花数有："fori=100to999k=int(i/100)m=(int(i/10))%10n=i%10ifk^3+m^3+n^3=i??alltrim(str(i))+space(2)endifendfor11、从键盘输入10个数，找出其中的最大数和最小数。clearinput"请输入第1个数："toak=afori=2to10input"请输入第"+alltrim(str(i))+"个数："tobifa<ba=bendififk>bk=bendifendfor12、从键盘输入一个字符串，统计其中各个字符的个数，包括数字，大小写英文字母和特殊字符。clearaccept"请输入一串字符："toxstore0todyw,xyw,kg,sz,qtm=len(x)fori=1tomx1=substr(x,i,1)k=asc(x1)docasecasekg=kg+1casek>=48andsz=sz+1casek>=65andk<=90dyw=dyw+1casek>=97andk<=122

xyw=xyw+1otherqt=qt+1endcaseendfor?"其中空格有："+alltrim(str(kg))+"个""+alltrim(str(dyw))+""+alltrim(str(xyw))+"?"数字有："+alltrim(str(sz))+"个"?"其它字符有："+alltrim(str(qt))+"个"13、输入一个十进制数，将它转换为二进制数并显示出来。clears=""inputtodowhilea>0b=a%2a=int(a/2)s=alltrim(str(b))+senddo?"转换为二进制为：",s14VFP3×4cleardimea(3,4)fori=1to3forj=1to4input"请输入一个值："toa(i,j)endforendfork=a(1,1)form=1to3forn=1to4r=a(m,n)ifr>kk=rx1=mx2=nendifendforendfor?"其中最大的值是：",k?"它所在的位置是第"+alltrim(str(x1))+"行，第"+alltrim(str(x2))+"列1001、388455470079999等和。clears=0?"100010000fori=1000to10000m=alltrim(str(i))zx=""dx=""forj=1to4zx=zx+substr(m,j,1)dx=dx+substr(m,5-j,1)endforif??m+space(3)s=s+iendifendfor?"它们的和是：",s16clearinput1toainput2tobc=min(a,b)dowhilec>0ifa%c=0andb%c=0s=cexit

endifc=c-1enddo?"它们的最大公约数是：",s（2）输入两个数，求它们的最小公倍数。clearinput1toinput2toc=max(a,b)dowhile.t.ifc%a=0ands=cexitendifc=c+1enddo?"它们的最小公倍数是：",s17s=a+aa+aaa+aaaa...+aaaaaaa...a(na)，ana入clearinputatoinputntok=as=afori=2tonk=a*10^(i-1)+ks=s+kendfor?"s=a+aa+aaa+aaaa...+aaaaaaa...a(na)=",s18vf100clear?"1100fori=1to100s=0forj=1toint(i/2)ifi%j=0s=s+jendifendforif??iendifendfor19、用vf求s=1+1/2+2/3+3/5+. ,前10项之和clears=1a=1b=1fori=1toc=a+ba=bb=ck=a/bs=s+kendfor?"s=1+1/2+2/3+3/5+......,前10项之和是：",s20、1/2+2/3+3/5+5/8+......，前20项之后cleara=1b=2s=0fori=1to20s=s+a/bc=a+ba=bb=cendfor?"1/2+2/3+3/5+5/8+......的前20项之后为：",s1、求[10,100079少一个数整除的整数之个数。

答案：236num=0fori=10to1000ifmod(i,7)=0ormod(i,9)=0num=num+1endifendfor?num2、求[101,299]内所有能被2整除但不能同时被3和5整除的整数之和。答案：18630s=0fori=101to299ifmod(i,2)=0andnot(mod(i,3)=0mod(i,5)=0)s=s+iendiendf?s3、求100以内最大的自然数n，使得从1开始的连续n个自然数的倒数之和小于3.5。答案：18s=0fori=1to100s=s+1/iifs>=3.5exitendiendf?i-14、求100以内最小的自然数n，使得从1开始的连续n个自然数的立方之和大于30000。答案：25s=0fori=1to100s=s+i^3ifs>30000exitendiendf?i5、求出100以内使得算式1*2+2*3+…+n*(n+1)的值小于5000的最大的自然数。 9、求出45678的所有非平凡因子（即除1答案：23s=0fori=1to100s=s+i*(i+1)ifs>=5000exitendiendf?i-16、求出100以内使得算式1/(1*1)+1/(2*2)+…+1/(n*n)的值小于1.6的最大的自然数n。答案：21s=0fori=1to100s=s+1/i^2ifs>=1.6exitendiendf?i-17、某国今年的人口总数为1亿，若以每年4%的速度递增，试求出至少要再过几年该国人口总数才会翻一翻。n=0x=1dowhilex<2x=x*(1+0.04)n=n+1enddo?n8、设等比数列：1，3，9，27，…。求使得此数列的前n项之和大于2345678的最小的自然数n。s=0n=0dowhiles<=2345678s=s+3^nn=n+1enddo?n

和它本身以外的约数）中是奇数的因子个数。答案：7n=0s=45678fori=3to22839step2ifmod(s,i)=0n=n+1endifendfor?n10、求出203267的所有真因子（即小于它本身的约数）中最大的因子数。答案：6557s=203267fori=1toint(203267/3)ifmod(s,i)=0n=iendifendfor?n112067742067答案：713fori=20677to1step-1ifmod(20677,i)=0andmod(42067,i)=0exitendifendfor?i12、求前[1,100]内能被6或8整除的所有（1入，结果只保留整数。答案：162s=0fori=1to100ifmod(i,6)=0ormod(i,8)=0s=s+sqrt(i)endifendfor?round(s,0)18、回文指的是正读和反读都一样的一串字符，如121、1221。试求出[1421,4112]内所有回文数的和。答案：74250s=0fori=1421to4112if int(i/1000)=i%10 int(i/100)%10=int(i%100/10)s=s+iendifendfor?s19、求在[100,999]内所有不含数字0且各位数字之积被96整除的数之和。答案：26640s=0fora=1to9forb=1toforc=1to9if(mod(a*b*c,96)=0)s=s+a*100+b*10+cendiendfendfendf13、求所有符合算式ab*ba=2701两位数a（即a*10+。其中b是1~9之间的一位整数。答案：37fora=1to9forb=1toif(a*10+b)*(b*10+a)=2701?a*10+breturnendifendforendfor141,2,3,4,55000a=1n=1dowhilea<5000a=a+nn=n+1enddo

?a15100nn87654321。答案：20Dimensionf(1)=1f(2)=4n=2dowhilef(n)<87654321n=n+1f(n)=3*f(n-1)-f(n-2)enddo?n161003/4n，n次着地时在690h=100s=100n=1dowhiles<690h=h*3/4s=s+2*hn=n+1enddo?n-1172626a=1，b=1/(a+1)，c=1/(b+2)，…，z=1/(y+2526个字母中其值小0.1答案：16a=1n=0fori=1toa=1/(a+i)ifa<0.1n=n+1endifendfor?n?s2010004620答案：20610a=1001n=0s=0dowhilen<20ifmod(a,4)=0ormod(a,6)=0s=s+an=n+1endifa=a+1enddo?s2157625和5776。求[2,99999（xmx10mx）答案：101114s=0fori=2to999999ifmod(i*i,10)=iormod(i*i,100)=iormod(i*i,1000)=iormod(i*i,10000)=imod(i*i,100000)=is=s+iendifendfor?s22A*B=54321且使A+BB中较小的一个数（A<=B，当AA+B）答案：57s1=54322fori=1toint(sqrt(54321))if(54321%i==0)s=i+54321/iif(s<=s1)s1=s

a=iendifendifendfor?a23、、7、10、15其特点是：相邻两项之差恰好构成自然数45、…。求此数列的前1004m=0a=1forn=1to99a=a+nifa%4==0m=m+1endifendfor?m24、求出将十进制整数98765432为二进制形式表示后其中数字1）答案：13c=98765432n=0dowhilec>0if(c%2==1)n=n+1endifc=int(c/2)enddo?n25、对自然数A、B、C，若A<B<C且A*A+B*B=C*C，则称{A,B,C}为一组勾股弦数，其中A、B、C分别称为勾、股、弦。试求出弦为25000的勾股弦数组的个数。答案：5n=0forb=12500to25000fora=1tob-1ifa*a+b*b=25000*25000n=n+1endifendforendfor?n26、求方程3x-7y=1在条件|x|<100且