2012甘肅專升本計(jì)算機(jī)程序設(shè)計(jì)

2012甘肅專升本計(jì)算機(jī)程序設(shè)計(jì)1AX+BX+C=0A、B、C式是：X=-b±√b2-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整除的整數(shù)輸出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編寫(xiě)程序計(jì)算1++3+. N!=？clearinput"n的值："tos=0t=1fori=1tont=t*is=s+tendfor?"1！+2！+3！+. N!=",s5列。cleardimea(10)fori=1to10input"請(qǐng)輸入一個(gè)數(shù)："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）輸出有號(hào)組成的圖形：*************************clearfori=-3to3?space(abs(i))forj=1to7-abs(i)*2??"*"endforendfor（2）*************************clearfori=1to5?space(5-i)forj=1to2*i-1??"*"endforendfor720Fibonacci1前兩項(xiàng)只和。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之間的水仙花數(shù)有："fori=100to999k=int(i/100)m=(int(i/10))%10n=i%10ifk^3+m^3+n^3=i??alltrim(str(i))+space(2)endifendfor11、從鍵盤(pán)輸入10個(gè)數(shù)，找出其中的最大數(shù)和最小數(shù)。clearinput"請(qǐng)輸入第1個(gè)數(shù)："toak=afori=2to10input"請(qǐng)輸入第"+alltrim(str(i))+"個(gè)數(shù)："tobifa<ba=bendififk>bk=bendifendfor12、從鍵盤(pán)輸入一個(gè)字符串，統(tǒng)計(jì)其中各個(gè)字符的個(gè)數(shù)，包括數(shù)字，大小寫(xiě)英文字母和特殊字符。clearaccept"請(qǐng)輸入一串字符："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))+"個(gè)""+alltrim(str(dyw))+""+alltrim(str(xyw))+"?"數(shù)字有："+alltrim(str(sz))+"個(gè)"?"其它字符有："+alltrim(str(qt))+"個(gè)"13、輸入一個(gè)十進(jìn)制數(shù)，將它轉(zhuǎn)換為二進(jìn)制數(shù)并顯示出來(lái)。clears=""inputtodowhilea>0b=a%2a=int(a/2)s=alltrim(str(b))+senddo?"轉(zhuǎn)換為二進(jìn)制為：",s14VFP3×4cleardimea(3,4)fori=1to3forj=1to4input"請(qǐng)輸入一個(gè)值："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?"它們的最大公約數(shù)是：",s（2）輸入兩個(gè)數(shù)，求它們的最小公倍數(shù)。clearinput1toinput2toc=max(a,b)dowhile.t.ifc%a=0ands=cexitendifc=c+1enddo?"它們的最小公倍數(shù)是：",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項(xiàng)之和clears=1a=1b=1fori=1toc=a+ba=bb=ck=a/bs=s+kendfor?"s=1+1/2+2/3+3/5+......,前10項(xiàng)之和是：",s20、1/2+2/3+3/5+5/8+......，前20項(xiàng)之后cleara=1b=2s=0fori=1to20s=s+a/bc=a+ba=bb=cendfor?"1/2+2/3+3/5+5/8+......的前20項(xiàng)之后為：",s1、求[10,100079少一個(gè)數(shù)整除的整數(shù)之個(gè)數(shù)。

答案：236num=0fori=10to1000ifmod(i,7)=0ormod(i,9)=0num=num+1endifendfor?num2、求[101,299]內(nèi)所有能被2整除但不能同時(shí)被3和5整除的整數(shù)之和。答案：18630s=0fori=101to299ifmod(i,2)=0andnot(mod(i,3)=0mod(i,5)=0)s=s+iendiendf?s3、求100以內(nèi)最大的自然數(shù)n，使得從1開(kāi)始的連續(xù)n個(gè)自然數(shù)的倒數(shù)之和小于3.5。答案：18s=0fori=1to100s=s+1/iifs>=3.5exitendiendf?i-14、求100以內(nèi)最小的自然數(shù)n，使得從1開(kāi)始的連續(xù)n個(gè)自然數(shù)的立方之和大于30000。答案：25s=0fori=1to100s=s+i^3ifs>30000exitendiendf?i5、求出100以內(nèi)使得算式1*2+2*3+…+n*(n+1)的值小于5000的最大的自然數(shù)。 9、求出45678的所有非平凡因子（即除1答案：23s=0fori=1to100s=s+i*(i+1)ifs>=5000exitendiendf?i-16、求出100以內(nèi)使得算式1/(1*1)+1/(2*2)+…+1/(n*n)的值小于1.6的最大的自然數(shù)n。答案：21s=0fori=1to100s=s+1/i^2ifs>=1.6exitendiendf?i-17、某國(guó)今年的人口總數(shù)為1億，若以每年4%的速度遞增，試求出至少要再過(guò)幾年該國(guó)人口總數(shù)才會(huì)翻一翻。n=0x=1dowhilex<2x=x*(1+0.04)n=n+1enddo?n8、設(shè)等比數(shù)列：1，3，9，27，…。求使得此數(shù)列的前n項(xiàng)之和大于2345678的最小的自然數(shù)n。s=0n=0dowhiles<=2345678s=s+3^nn=n+1enddo?n

和它本身以外的約數(shù)）中是奇數(shù)的因子個(gè)數(shù)。答案：7n=0s=45678fori=3to22839step2ifmod(s,i)=0n=n+1endifendfor?n10、求出203267的所有真因子（即小于它本身的約數(shù)）中最大的因子數(shù)。答案：6557s=203267fori=1toint(203267/3)ifmod(s,i)=0n=iendifendfor?n112067742067答案：713fori=20677to1step-1ifmod(20677,i)=0andmod(42067,i)=0exitendifendfor?i12、求前[1,100]內(nèi)能被6或8整除的所有（1入，結(jié)果只保留整數(shù)。答案：162s=0fori=1to100ifmod(i,6)=0ormod(i,8)=0s=s+sqrt(i)endifendfor?round(s,0)18、回文指的是正讀和反讀都一樣的一串字符，如121、1221。試求出[1421,4112]內(nèi)所有回文數(shù)的和。答案：74250s=0fori=1421to4112if int(i/1000)=i%10 int(i/100)%10=int(i%100/10)s=s+iendifendfor?s19、求在[100,999]內(nèi)所有不含數(shù)字0且各位數(shù)字之積被96整除的數(shù)之和。答案：26640s=0fora=1to9forb=1toforc=1to9if(mod(a*b*c,96)=0)s=s+a*100+b*10+cendiendfendfendf13、求所有符合算式ab*ba=2701兩位數(shù)a（即a*10+。其中b是1~9之間的一位整數(shù)。答案：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次著地時(shí)在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個(gè)字母中其值小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中較小的一個(gè)數(shù)（A<=B，當(dāng)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其特點(diǎn)是：相鄰兩項(xiàng)之差恰好構(gòu)成自然數(shù)45、…。求此數(shù)列的前1004m=0a=1forn=1to99a=a+nifa%4==0m=m+1endifendfor?m24、求出將十進(jìn)制整數(shù)98765432為二進(jìn)制形式表示后其中數(shù)字1）答案：13c=98765432n=0dowhilec>0if(c%2==1)n=n+1endifc=int(c/2)enddo?n25、對(duì)自然數(shù)A、B、C，若A<B<C且A*A+B*B=C*C，則稱{A,B,C}為一組勾股弦數(shù)，其中A、B、C分別稱為勾、股、弦。試求出弦為25000的勾股弦數(shù)組的個(gè)數(shù)。答案：5n=0forb=12500to25000fora=1tob-1ifa*a+b*b=25000*25000n=n+1endifendforendfor?n26、求方程3x-7y=1在條件|x|<100且