《冲刺程序设计答案》由会员分享，可在线阅读，更多相关《冲刺程序设计答案（45页珍藏版）》请在金锄头文库上搜索。
1、冲刺程序设计答案一、 顺序程序设计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,x2se
2、t 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 三角形的边
3、长： 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
4、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
5、=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
6、=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)ne
7、xtfor 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)nextcancel3cleardimensi
8、on 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 le
