冲刺程序设计答案.docVIP

冲刺程序设计答案 顺序程序设计 1、set talk off clear input “请输入球的半径：” to a s=4*pi()*a^2 v=4*pi()*a^3/3 ?”球的表面积为：”, s ?”球的体积为：”, v set talk on cancel 后面教学中，请各位老师的都要在每个程序上面加上set talk off 以及后面的set talk on。 2、set talk off clear input “a=” to a input “b=” to b input “c=” to c p=-b/（2*a） q=sqrt(b^2-4*a*c) /（2*a） x1=p+q x2=p-q ?”方程的根为”,x1,x2 set talk on cancel 二．选择结构 1. clear input 请输入一个数 to a if a%2!=0 ?a,为奇数 else ?a,为偶数 endif cancel 2. clear input 请输入一个数 to a input 请输入一个数 to b input 请输入一个数 to c do case case a=b .and. a=c ?最大数为：,a case b=a .and. b=c ?最大数为：,b case c=a .and. c=b ?最大数为：,c endcase cancel 3. clear input 三角形的边长： to a input 三角形的边长： to b input 三角形的边长： to c if a+bc .and. a+cb .and. b+ca .and. a0 .and. b0. and. c0 p=(a+b+c)/2 s=sqrt(p*(p-a)*(p-b)*(p-c)) ?三角形的面积为:,s else ?请重新运行程序！ endif cancel 三．循环结构 for 循环（一般用于循环次数是确定的情况） 1. clear for i=1 to 100 if i%5=0 ?i endif next cancel 2. clear s=0 for i=1 to 100 s=s+i^(1/3) next ?s cancel 3. clear s=0 input 请输入一个数： to n for i=1 to n s=s+(i+1)/i next ?表达式的值为：,s cancel 4. clear s=0 input 请输入一个数： to n for i=1 to 2*n s=s+(-1)^(i-1)/i next ?表达式的值为：,s cancel 5. clear s=0 kk=0 input 请输入数字 to n for i=1 to n s=s+i kk=kk+1/s next ?表达式的和为：,kk cancel do while循环(或者while循环（c语言）)（一般用于循环次数不确定的情况） 1. clear s=0 n=1 k=1 d=1 do while 1/n=1e-6 k=d*1/n n=n+2 s=s+k d=-d enddo m=s*4 ?pi的值为：,m cancel 2. clear s=1 n=1 k=1 input 请输入一个数 to x do while x^n/k=1e-6 s=s+x^n/k n=n+1 k=k*n enddo ?数列的和为：,s cancel 3. clear n=1 k=1 s=0 do while 1/k=1e-6 s=s+1/k n=n+2 k=k*n*(n-1) end do ?s cancel 4. clear s=0 input 请输入一个数字 to a do while a!=0 x=a%10 a=int(a/10) s=s+x enddo ?各位数字之和为：,s cancel 5. clear input 请输入一个数 to a s=0 x=a if a0 a=abs(a) endif do while a!=0 k=a%10 a=int(a/10) s=s*10+k enddo if s=abs(x) ?x,是一个回文数 else ?x,不是一个回文数 endif cancel 6. clear input “请输入一个数” to t a=1 b=1 c=2 do while c=t a=b b=c c=a+b enddo ?c cancel 四．数组 一维数组 1. clear dimen a(10) for i=1 to 10 input t