专升本考修改版

Dowhilek=.T.If

ify>20.T. X=””+”15“=”15Y=19X=”15”+”20Y=24Y=25X=””1520“+”25”=”152025”一张试卷共有25道题，评分标准规定答对一道得4分，答错和不答倒扣1分，同学的答卷共得60分，编程计算答对了多少题。1234567。。。25答1234567。。。25答错以i示答对，j答错的Fori=1to25Forj=1toIfi+j=25and4*i-Fori=1toIfi*4-(25-某高校举行比赛，7个评委对一位参赛选手打分后，删除一个最高分，删除一个最低分，Dimsiona(7)Fori=2toIfIfFori=1to?(sum-max-min)/(7-常用算法有8方面3、查找算法（顺序查找、折半查找、统计、求和、计数一 顺序结Input“请输入园的半径：tor”,s36100forx=0to36fory=0toif二 选择结（一、4100Input“shuruyigeshuto”tonIfn%4=0andn%100<>0Fori=2000toIfi%4=0and?（二、doinputtoxifx>100orx<0then0-100docasecasex>=90A"casex>=80B"casex>=70C"casex>=60D"E"input"m="tomif三、n(一、dowhile循环（一般用于循环次数不确定的情况，当题目出现当……结束，直到……为止，至少，最少等字眼，应首先选择用dowhile循环（拆数）n2f(x)1x2

x x=2.5，则函数值为：12.182494。Sum=1Fori=1Ifx^i/jiecheng(i)<10^(-6)Functionjiecheng(n)Fori=1toReturns

n!直到

f(x)1xx22x nx

x=2.5，函数值为：1.917915Fori=1toFunctionjiecheng(n)Fori=1toReturns（二、for（一般用于循环次数是确定的情况Fori=1to1001-100

Fori=1to100step21-100Fori=2to100step2s=1+1/2+1/3+1/4+…+1/nInput“yigeshu”tonFori=1ton5Fori=1to5s求nFori=1tonfibnocsi1，1，2，3，5，8，13，21……，要求输出20Dimensiona(20)Fori=3toFori=1to计算t=1!+2!+……+10!即求阶乘之和（双循环）Fori=1toFunctionjiecheng(n)Fori=1toReturns

S1111 n=52.283333。input[n=]tonfori=1ton?S234n Input“”tonFori=1tonS1111 1

2n

S1

1

12

123nInput“”tonFori=1tonFunctionqiuhe(n)Fori=1toReturnsInput“”tonFori=1tonFunctionjicheng(n)Fori=1toReturns计算t=1!+2!+……+n!（即求阶乘之和Input“”tonFori=1tonFunctionjicheng(n)Fori=1toReturns计算t=1!+1/2!+1/3!……+1/n!（即求阶乘之和Input“”tonFori=1toFunctionjicheng(n)Fori=1toReturnsS1111

n15，a=2.718282，n1100。settalkoffinput[n=]tonfori=1ton?functionT(k)forj=1tokreturnFunctionjicheng(n)Fori=1toReturns223223S11

3)(1

nn20s=534.188884n1100。Input“”tonFori=1toFunctionsqrtqiuhe(n)Fori=1toReturns编写程序，其功能是：计算并输出下列多项式的值：SInput“”tonFori=1toS

1011|10k1

110 10k

（既10平均值。例如，给定的10个数为 Dimensiona(10)Fori=1to10Input“”toa(i)Fori=1toInput“”tonFori=mtom*nIfi%m=0andi%1-1005Fori=1toIfi%? yizhi3maoqianGongjiyizhi1.5Mujiyizhi2Fori=1to100Forj=1toFork=1toIfi+j+k=100and（三110007AbcFori=1toC=i%10Ifa%7=0orb%7=0 c%7=0andFori=1toIfa=”7”oAccept“”rosFori=1toIfsubstr(s,i,1)<>”*”Fori=len(s)to1step-1Ifsubstr(s,i,1)<>”*”

假定输入的字符串中只包含字母和*号。请编写程序，使字符串尾部的*号不得多于nn个，则删除多余的*号；若少于或等于n个，则什么也不做，字符串中间和前面的*号不删除。Fori=len(s)to1step-1Ifsubstr(s,i,1)<>”*”If

sASCIItABCDEFG12345ACEG135accept[请输入字符串：]toa dimeb(m) &&定义数组fori=1tom fori=1toif(asc(b(i)))%2!=0?cN（5），XNXXInputtondimefori=1tonaccepttoa(i)fori=1to5-1forj=1to5-1ifa(j)>a(j+1)inputtondimea(n)fori=1tonaccepttoa(j)fori=1tofori=1ton-1forj=1ton-iifa(j)>a(j+1)fori=1tonaboveacoveaka“bovecoveksettalkoffaccepttoaccepttob?asettalk请编写一个程序，统计在tt所指字符串中“a”到“z”26个小写字母各自出现的次数，并依次放在abcdefgabcdeabc3332211000000000000000000settalkoffaccepttottdimepp(26)fori=asc([a])topp(i-settalkab，cdsettalkoff &&空格的个数 accepttozfcdimex(n)fori=1to i=1tondocasecase(x(i)>=[a]andx(i)<=[z])or(x(i)>=[A]andx(i)<=[Z])casex(i)=[casex(i)>=[0]and?a,b,c,dsettalkaccepttottdimea(n)fori=1tonaccepttottdimea(n)fori=1tonfori=1toifa(i)>=[0]and?baccepttottdimea(n)fori=1ton fori=1toifa(i)>=[0]anda(i)<=[9] ?BDFHJaccepttottdimea(n)fori=1tonfori=2tonstepdimet(m)fori=1tom??t(i)abc4EFgaBc4EFgaccept[]tosdimea(n)fori=1tofori=2tonstep2fori=1to?编写程序，实现将s所指字符串中的所有数字字符移到所有非数字字符之后，并保持数字字符串和非数accept[]tossdimea(n)fori=1tofori=1toif(a(i)>=[0]anda(i)<=[9])?四、数（一）一维数Dimensiona1将一维数组（101－100rand（）函数产生）dimena(10)fori=1toinput"输入数据："toa(i) ‘a(i)=int(rnd()*100+1)fori=1to5fori=1to10（105为一组显示，i%5=0）dimena(10)fori=1toinputtoa(i)fori=2toifminnum>a(i)随机产生dimensiona(10)fori=1to10?fori=1toforj=1to10-ifa(j)>a(j+1)thenfori=1todimensiona(10)fori=1to10?fori=1toforj=1to10-ifa(j)>a(j+1)thenfori=1to【09年考题】：随机产生20个20-99之间的整数，先按照每行55dimensiona(10)fori=1to10a(i)=int(rand()*90+1)ifi%5<>0??fori=1to9forj=itoifminnum>a(j)ifminp<>ifori=1toif?7.（对字符串排序处理）有5个英文单词，分别为：Word，Excel，，Type，Angle，要求设计出5XX（二、二维数dimea(5,5)fori=1toforj=1todocasecase

nextjnextifori=1toforj=1to??a(i,j)nextj?nextiB=A+A 465 465

285 285

input[n=]to

dimea(n,n),b(n,n),c(n,n)fori=1tonforj=1toinputtoa(i,j)fori=1toforj=1tofori=1toforj=1tofori=1toforj=1to??c(i,j)?N×N元素中，右上三角元素置为0。例如，若N＝3，有下列矩阵： 465 465

605 605

input[n=]to

dimea(n,n),b(n,n),c(n,n)&&输入矩阵a的数据fori=1tonforj=1toinput[]toa(i,j)&&abfori=1tonforj=1to &&c&&cafori=1to&&abcfori=2toforj=1toi-&&cfori=1toforj=1to??c(i,j)?input[n=]tondimea(n,n),b(n)fori=1tonforj=1toinputtoa(i,j)forj=1tofori=1toiffori=1ton?forj=1to??a(i,j)fori=1ton??b(i)5×5（1－100）3×3编程求两个矩阵]和dowhilelow<=highpifk=a(mid)thenififf=1?"not五、数的整除运、从键盘输入dimea(10)fori=1to10inputtoa(i)fori=2to10ifa(i)>maxfori=2to10ifa(i)>mindimea(10)fori=1to10inputtoa(i)fori=1toforj=i+1to10ifa(j)<a(i)fori=1toa(10),a(9)3、编写一个程序，它的功能是：求出1到m之间（含m）能被7或11整除的所有整数，并放在数组n返回这些数的个数。例如，若传送给m50， input[m=]tomfori=1toifi%7=0ori%11=0dimea(n)fori=1toifi%7=0ori%11=0711forj=1ton?a(j)?[共有]+alltrim(str(n))+[个数能被7或11整除] &&?"能被7或11整除的个数",n411000711711数并将它们放在a所指的数组中，通过n返回这些数的个数。fori=1to1000 &&统计出满足条件的数据个数nifi%7=0ori%11=0)andnoti%7=0andi%11=0))dime fori=1to1000 if(i%7=0ori%11=0)and(not(i%7=0andi%11=0))forj=1to?a(j)?n5、程序的功能是：将两个两位数的正整数a．bca位和个位数依次放在c数的个位和百位上，b数的十位和个位数依次放在c数的千位和十位上。a=45，b=12c=1524input[a=]toainput[b=]tob?6s=aa…aa-…-aaa-aa-a（aa…aana，an19间）例如a=3，n=6，则以上表达式为：s=333333-33333-3333-333-33-3，其值是：296298input[a=]toainput[n=]tondimeb(n)fori=1tofori=n-1to1step-1?7n（n）59n入20后，输出为：s=0.583333。注意：要求n的值不大于100。input[n=]tonfori=1toifi%5=0ori%9=0?input[n=]tondimea(n),b(n-1)fori=1toninput[]toa(i)fori=1ton-fori=1ton-?input[a=]toainput[b=]tobinput[c=]toifa+b>canda+c>bandb+c>a a=bora=corb=cifa=band

10、编写程序，实现计算并输出3到n之间（含3和n）所有素数的平方根之和。例如，n=100，则输出s=148.874270，注意：要求n的值大于2但不大于100。input[n=]tonfori=3toforj=2tokifif?11FibonaccitFibonacciF（n）的定义为：F(0)=0，F(1)=1，F(n)=F(n-1)+F(n-2)。例如：当t=1000时，函数值为：1597。settalkoninput[t=]totdowhilec<tdimef(n)fori=3to?f(n)settalk12（除了1和它本身之外不能被任何一个整数所整除的自然数叫质数，除去ff=0f=1input"m="tomfori=2tom-ifm%i=0if1312fori=1to150step2forj=2toint(sqrt(i))ifmod(i,j)=0if14（输出100-1000以内的所有素数并计算这些素数之和（输出时按照每行5个数据方式输出form=2to100fori=2tom-1ifm%i=0ifif?、设计1到第Ninput"n=" tonifn<33fori=3tonstep2form=2tonfori=2tom/2ifm%i=0if、找出fori=100to999if17、水仙花数是一个三位正整数,它等于它的各位数字的立方之和.例如:153=1^3+5^3+3^3153花数.试求所有的水仙花数之积。settalkoff &&s=0s0s=1。form=100to999 &&也可以是b=int((m%100)/10)ifa^3+b^3+c^3=m?"s",ssettalkonVF11~99（保留小数点两位）661.46settalkofffori=1tosettalk2150005500时程序退出。550settalkofffori=10to5000step10ifs>500settalk330，0，1336settalkoff form=4tosettalk4、编程序求出2+4+8+16+32500时，则程序终止并输出结果。510settalkofffori=1to100ifs>500settalk52481,2,3,4,6,8,12,242481,100个能被其因子数目整除的正整数。56settalkofffori=1to100forj=1toiifi%j=0ifif &&9，k?"k",ksettalkon ,求出这个序列前第二位。settalkoffforj=1to24?"s=",round(s,2)settalk7、设某国今年的国民生产总值为45600亿元,若今后每年以8%的增长率增长,计算多少年后能实现国民生 dimef(1000) &&f(1)不算。forn=4to1000if8、若某整数N的所有因子之和等于NN28,1+2+4+7+14+28=56=2*28,281,500]之间有多少个多因子完备数。5settalkofffori=1to500forj=1toiififm%i=0?"s",ssettalkon9、找满足以下条件:X^2+Y^2+Z^2=41^2且X+Y+Z之值最大的三个正整数X,Y,Z,求X+Y+Z之值. settalkoffforx=1to41fory=1to41forz=1toifx^2+y^2+z^2=41^2ifk>s?"s",ssettalk10、一个14*14方阵A(i,j),其每个元素的值为该元素下标的立方和,求出该矩阵所有元素的累加和。(注：i,j从1到14). settalkofffori=1tofori=1toforj=1to14?"s=settalk11、求[100,200]之间最大的有奇数个不同因子的整数。196settalkofffori=100to200forj=1toiifi%j=0ifm%2=1?"s=settalk12、一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。例如，61，2，3，而6=1+2+3，因此，6是“完数”。求1000以内的所有完数之和。530settalkoffforfori=1toforj=1toi/2ifi%j=0ifm=i?"s=settalk131-1/2+1/3-1/4+1/5-1/6+…+1/99-1/100（4）0.6882dimef(50)f(3)=1/5-forn=1to5014A*B=718368，A+BA,B（A<B）A的值。672settalkofffora=1to10000forb=1toifa*b=718368.and.a<bifk<s?"j=settalk15、计算y=1+2/3+3/5+4/7+…+n/(2*n-1)(n=50),要求：按四舍五入的方式精确到小数点后第二位。26.47dimef(50)forn=1to5016m50t=1-1/(2*2)-1/(3*3)-…-1/(m*m)要求：按四舍五入的方式精确到小数点后第四位。0.3749dimef(2)=-forn=2to5017、(1^2/(1*3))+(4^2/(3*5))+(6^2/(5*7))+…+(2k)^2/((2k-1)*(2k+1（按四舍五入的方式精确到小数点后第三位）20.488dimef(20)forn=1to2018、求级数 +1/(N*(N+1))的和的近似值,直到级数中有一项的值小于1E－4为止.要求 forn=1to ifk<1/10000+S20forn=0to1920Y=1-1/2+1/3-1/4+...-1/2*n前30项之和。要求：按四舍五入的方式精确到小数点后第二位。0.68dimef(15)forn=1to15+S20dimef(20)forn=4to2022n=100S=(1-1/2)+(1/3-1/4)+……+(1/(2*n-1)-1/(2*n))按四舍五入的方式精确到小数点后第三位。0.691dimef(100)forn=1to10023n25时，计算下列公式的值s=1+1/1!+1/2!+1/3!+…+1/n!要求：按四舍五入的方式精确到小数点后第四位。2.7183dimef(25)forn=1to25forj=1ton &&sforfor24n50S的值。S=1+1/(1+2)+1/(1+2+3)+…+1/(1+2+3+…+N)要求：按四舍五入的方式精确到小数点后第四位。1.9608dimef(50)forn=1to5025m50t=1+1/(2^2)+1/(3^2)+…+1/(m^2)(按四舍五入的方式精确到小数点后第四位)。1.6251dimef(50)forn=1to5026m50T=1-1/2-1/3-1/4-…-1/m要求：按四舍五入的方式精确到小数点后第四位。-2.4992dimef(49)f(2)=-f(3)=-forn=1to492722ninput请输入第几天：tonfori=2ton一堆，然后再从剩下的桃中拿出一个解谗，等到第10天，它发现袋中只有一只桃可吃啦，问猴子总共摘了多少桃。1534dimef(10)forn=4to10到小数点后第二位。3.13dimef(50)forn=1to30A,BA<BA*B=5432，S=A+B的最小值。153fora=1to5432forb=1toifa*b=5432anda<bifk<s31n=100S=(1-1/2)+(1/3-1/4)+……+(1/(2n-1)-1/(2n))按四舍五入的方式精确到小数点后第三位。0.688dimef(50)f(3)=1/5-forn=1to40,30）。271settalkofffora=2to59forb=1to58ifa>banda+b>60and(a+b+60)%3=0?"s=settalkforx1=1toforx2=1to20if100=x1*10+x2*5+x3*1andx3>03435

nextx1*input"输入N："to fori=2tonnext*求数列2.prg"fibnocsifori=1to20nextdimea(5,5)fori=1to5forj=1to5docasecasenextjnextifori=1to5forj=1to??a(i,j)nextj?nextdimea(10)fori=1tonextiinputtofori=1toif *（2）折半查找.prg"（先排序，后查找dimea(10)fori=1to10*fork=1ton-1forj=k+1 tonif*

?inputtoxdowhilel<=hifa(m)=xifa(m)>xthenifl<=hinput"输入Mtominput"输入N"tonifn=0dowhileinput"输入Mtominput"输入N:"tonifn=0dowhile*有序序列插入操作.prg"settalkoff*定义数input'输入n=?' fork=1 toninputtoa(k)fork=1ton-1for toif?a(k)

*inputtoxfori=nto1step-1ifa(i)>xthennextfori=1ton+1??a(i)nexti*有序序列删除操作.dimea(11)fori=1tofori=1ton-forj=ntoi+1step-1ifa(j)<a(j-1)nextjnextfori=1ton??a(i)nextiinputtoxifx>10orx<1thenfori=xtoifa(i)>xnextfori=1ton-1??a(i)nexti考试程序设计题settalkoffdimena(10)fori=1toinput10toa(i) &&savefori=2toifabs(save-a(i))<xfori=1to??a(i)?"最接近平均值的数是：",an)settalk2（2004年）编写程序有五个人的学习成绩，分别为在键盘上输入N（5aaainputtoNdimena(N)fori=1to toa(i)fori