冲刺程序设计答案.doc

冲刺程序设计答案一、 顺序程序设计1、set talk offclearinput “请输入球的半径：” to as=4*pi()*a2v=4*pi()*a3/3?”球的表面积为：”, s?”球的体积为：”, vset talk oncancel后面教学中，请各位老师的都要在每个程序上面加上set talk off 以及后面的set talk on。2、set talk offclearinput “a=” to ainput “b=” to binput “c=” to cp=-b/（2*a）q=sqrt(b2-4*a*c)/（2*a）x1=p+qx2=p-q?”方程的根为”,x1,x2set talk oncancel二选择结构1. clearinput 请输入一个数 to aif a%2!=0?a,为奇数else?a,为偶数endifcancel2.clear input 请输入一个数 to ainput 请输入一个数 to binput 请输入一个数 to cdo case case a=b .and. a=c ?最大数为：,a case b=a .and. b=c ?最大数为：,b case c=a .and. c=b ?最大数为：,c endcase cancel3.clearinput 三角形的边长： to ainput 三角形的边长： to binput 三角形的边长： to cif a+bc .and. a+cb .and. b+ca .and. a0 .and. b0. and. c0p=(a+b+c)/2s=sqrt(p*(p-a)*(p-b)*(p-c) ?三角形的面积为:,selse ?请重新运行程序！ endif cancel三循环结构for 循环（一般用于循环次数是确定的情况）1.clearfor i=1 to 100 if i%5=0 ?i endif nextcancel2. clears=0for i=1 to 100s=s+i(1/3)next?scancel3. clears=0input 请输入一个数： to nfor i=1 to n s=s+(i+1)/inext ?表达式的值为：,scancel4.clears=0input 请输入一个数： to nfor i=1 to 2*n s=s+(-1)(i-1)/i next ?表达式的值为：,scancel5.clears=0kk=0input 请输入数字 to nfor i=1 to ns=s+ikk=kk+1/snext?表达式的和为：,kkcanceldo while循环(或者while循环（c语言）)（一般用于循环次数不确定的情况）1. clears=0n=1k=1d=1do while 1/n=1e-6k=d*1/nn=n+2s=s+kd=-denddom=s*4?pi的值为：,mcancel2.clears=1n=1k=1input 请输入一个数 to xdo while xn/k=1e-6s=s+xn/kn=n+1 k=k*nenddo?数列的和为：,scancel3.clearn=1k=1s=0do while 1/k=1e-6s=s+1/kn=n+2k=k*n*(n-1)end do?scancel4.clears=0input 请输入一个数字 to ado while a!=0x=a%10a=int(a/10)s=s+xenddo?各位数字之和为：,scancel5.clearinput 请输入一个数 to as=0x=aif a0a=abs(a)endifdo while a!=0k=a%10a=int(a/10)s=s*10+kenddoif s=abs(x)?x,是一个回文数else?x,不是一个回文数endifcancel6.clearinput “请输入一个数” to ta=1b=1c=2do while cmaxmax=a(i)k=iendifif a(i)a(j)c=a(i)a(i)=a(j)a(j)=cendifnextnext?排序后的结果为：for i=1 to 10?a(i)nextcancel3.clearinput to ndimen a(n)for i=1 to ninput to a(i)nextfor i=1 to int(n/2)c=a(i)a(i)=a(n-i+1)a(n-i+1)=cnextfor i=1 to n? a(i)next二维数组1.cleardimen a(3,4)for i=1 to 3for j=1 to 4input to a(i,j)nextnextmax=a(1,1)min=a(1,1)for i=1 to 3for j=1 to 4if a(i,j)maxmax=a(i,j)endifif a(i,j)maxmax=a(i,j)endifnextb(i)=maxnextfor i=1 to 3？b(i)nextcancel3cleardimension a(3,3)dimension b(3,3)dimension c(3,3)for i=1 to 3for j=1 to 3input to a(i,j)nextnextfor i=1 to 3for j=1 to 3b(j,i)=a(i,j)nextnextfor i=1 to 3for j=1 to 3c(i,j)=a(i,j)+b(i,j)nextnextfor i=1 to 3for j=1 to 3?c(i,j)next?nextcancel五字符串处理专题字符串中字符个数的统计1.clearaccept 请输入一个字符串 to astore 0 to x,m,y,zfor i=1 to len(a)b=substr(a,i,1)do casecase b=a.and. b=A.and. b=0.and.b=k?”结果为：”，aelses=substr(a,1,m-k+n)?”结果为：”，sendif cancel3.clearaccept 请输入一个字符串 to as=for i=1 to len(a) b=substr(a,i,1) if asc(b)%2！=0 s=s+b endif next ?删除后的字符串为：,scancel 4.clears=accept 请输入一个字符串 to aaccept 请输入一个指定的字符 to bfor i=1 to len(a)x=substr(a,i,1)if x!=bs=s+xendifnext?删除指定字符后的字符串为：,scancel字符串的综合问题1. clearaccept to as=”n=len(a)for i=1 to ny=substr(a,i,1)if y=”0” and y=0.and. y=10-6 x0=x1 x1=cos(x0) enddo?方程的根为：,x1cancel3.cleariput to ns=0for i=1 to nif i%5=0. or. i%9=0s=s+1/iendifnext?scancel4.clear input to mk=abc(m)dimen a(k)n=1for i=1 to mif i%7=0 or i%11=0a(n)=in=n+1endifnextfor i=1 to k?a(i)nextcacelfuction abc(m)x=0for i=1 to mif i%7=0 or i%11=0x=x+1endifnextreturn xendfuc5.clearinput to ainput to binput to cm=abc(a,b,c) do casecase m=3?等边三角形case m=2?等腰三角形Case m=1?一般三角形Case m=0 ? “不能构成三角形”Endcasecancelfunction abc(a,b,c)if a+bc.and.a+cb.and.b+cado casecase a=b and b=c return 3case (a=b and c!=a) .or.( a=c and b!=c) .or. （b=c and b!=a）return 2case a!=b .and.b!=c .and.a!=creturn 1endcase else return 0endifendfunc6.clearinput to ns=0if n100 ?”请重新输入” cancelendiffor i=3 to nf=.t.for j=2 to i-1if i%j=0f=.f.endifnextif f=.t.s=s+sqrt(i)endifnext?scancel自定义1.clear input 请输入一个数 to minput 请输入一个数 to nc=fuc(m)/(fuc(n)*fuc(m-n) ?该组合的值为：,c cancelfunction fuc(x) s=1 for i=1 to x s=s*i next return s endfunc2.clear accept 请输入一个字符串 to saccept 请输入一个指定的字符 to c x=del(s,c) ?删除后的字符串为：,x cancelfunction del(s,c) k= for i=1 to len(s) y=substr(s,i,1) if y!=c k=k+y endif next return k endfunc3.clear c=fuc(3)/(fuc(2)*fuc(1)+fuc(5)/(fuc(3)*fuc(2) ?该式子的值为：,c cancelfunction fuc(x) s=1 for i=1 to x s=s*i next return s endfunc4.clear accept 请输入一个字符串 to a b=daozhi(a) ?倒置后的字符串为：,b cancelfunction daozhi(s) k= for i=len(s) to 1 step -1 y=substr(s,i,1) k=k+y next return k endfunc全真模拟题程序答案1.已知笼子中有兔子和鸡共36只，他们的脚总共有100只，编程计算出鸡和兔子各自有多少只。clearfor x=1 to 36for y=1 to 36if x+y=36.and.4*x+2*y=100?兔子的只数为：,x?鸡的只数为：,yendifnextnextcancel2、编写程序，运行时接收用户键盘输入的一个长字符串，统计其中包含字母a的个数（不区分大小写），并在屏幕上输出统计结果clearaccept 请输入一个字符串 to ax=0for i=1 to len(a)m=substr(a,i,1)if m=”a”.or.m=”A”x=x+1endifnext?指定字符出现的次数为：,xCancel3、编写程序，计算：，直到最后一项小于clearinput 请输入一个数 to xk=1s=1i=1do while xi/s=10-6 k=k+xi/s i=i+1 s=s*i enddo?ex的值为：,kcancel4、编写程序，从键盘上任意输入10个整数，将这10个数在屏幕上显示成一行，并在下一行显示其中最接近平均值的数。cleardimension a(10)s=0for i=1 to 10input to a(i) nextfor i=1 to 10 s=s+a(i) next ave=s/10 x=abs(ave-a(1) n=1for i=2 to 10if abs(ave-a(i)0a=int(a/10)n=n+1enddo?该数为,n,位数cancel6、设计一个函数 void delete(char *s, char c);函数delete将字符c从字符串s中删除。例如：假设有char s10=”acdf”;则执行delete（s,d）后s中内容为adf；clear accept 请输入一个字符串 to saccept 请输入一个指定的字符 to c x=del(s,c) ?删除后的字符串为：,x cancelfunction del(s,c) k= for i=1 to len(s) y=substr(s,i,1) if y!=c k=k+y endif next return k endfunc7、有5个英文单词，分别为：Word，Excel，PowerPoint，Type，Angle，要求设计出如下程序：（1）在键盘上输入n个数，（本例输入5），把英文单词放入名为X的数组中（5分）；（2）显示出X数组中的英文单词；（5分）；（3）对X数组中的英文单词从小到大排序；（10分）（4）显示出排序后X数组中英文单词。（5分）clearinput 请输入字符串总个数 to ns=dimension a(n)for i=1 to naccept 请依次输入字符串 to a(i)nextfor i=1 to n?a(i)next?排序后的字符串为：for i=1 to n-1 for j=i+1 to n if left(a(i),1)left(a(j),1) t=a(i) a(i)=a(j) a(j)=t endif next next for i=1 to n ?a(i) next cancel8、设计一个程序，要求是：（1）、在键盘上输入一个不小于8的自然数n（例输入10），要求1到第n个自然数中奇数的个数，并输出结果；（10分）（2）输出1到第n个自然数中所有质数之和。（15分）clearinput 请输入一个数 to ns=0k=0if n=10-6 k=k+(xi/s)*d i=i+2 s=s*i*(i-1) d=-d enddo?cos(x)的值为：,kcancel11、计算出1到100的平方根，将结果存于外存，其文件名字为“result.c”。clearfor i=1 to 100x=i（1/2）display memory like x* to file extcancel12、用梯形法求定积分： （a=0,b=/2）要求数据初始化，调用子函数及其输出计算结果用主函数（主程序）实现，其余用子函数（过程、子程序、类）实现。近似计算公式如下：sin(a)+2(sin(a+h)+sin(a+2h)+sin(a+nh)-sin(b)clear a=0 b=pi()/2 h=0.001 y=jifen(a,b,h) ?ycancelfunction jifen(a,b,h) s=0 n=1 do while a+n*h=10-6 k=k+1/s i=i+2 s=s*(i-1)*i enddo?s的值为：,kcancel14、编写一个程序，它的功能是：求出1到m之间（含m）能被7或11整除的所有整数。ClearInput “请输入一个数” to mfor i=1 to mif i%7=0.or.i%11=0?iendifnextcancel15、计算并输出下列多项式的值：，并输出结果。clear input 请输入一个数 to n s=0 for i=1 to n s=s+log(i) next kk=sqrt(s) ?kk Cancel16、编写程序，程序功能为：删除用户输入字符串中所有指定字符，