VF30道程序设计题参考答案.doc

1求圆的面积cleainpu 请输入半径=to rif r=0s=pi*r2?s=,selse ?此时半径无意义endifretu2求分段函数的值cleainpu 请输入x=to xdo casecase x0y=2*x+5case x=0y=-xcase x0y=x?y=,yendcaseretu3输入一个成绩判断等级cleainput 请输入成绩=to xif x=0do casecase x60?不及格case x70?及格case x80?中case x90?良otherwise?优秀endcaseendif?成绩无效retu4输入多个成绩判断等级cleadime a6for i=1 to 6inpu请输入成绩：to ai?：,strai,3if ai=0do casecase ai60?不及格case ai70?及格case ai80?中case ai=650?姓名,免去贷款endscanretu12.输出图形* * * * * * * * * * * * * * * * * * * * *下面是第六个图形五clea cleafor t=4 to 1 step -1 for t=4 to 1 step 1 ?space4-t?space4-t for i=1 to tfor i=1 to t ?*?* endfendf endf endf returetu 下面是第三个图形 四cleaclearfor t=1 to 4for t=4 to 1 step -1 ?space4-t?space4-t for i=1 to 2*t-1for i=1 to 2*t-1 ?*?* endf endf endfendf returetu13.判断一个整数是否素数cleainput请输入x= to xfor i=2 to x-1if modx,i=0?x,不是素数exitendifendforif ix-1?x,是素数endifretu14.判断十个整数是否素数cleadime a(10)for j=1 to 10 input请输入x= to a(j) for i=2 to aj-1 if aj/i=int(aj/i) wod(ai,i) exit endif endfor if iaj-1 ?aj,是素数 else ?aj,不是素数 endifendfretu15.找出两个数的大数和小数cleadime a2for i=1 to 2input请输入x= to aiendf if a1=a2 ?a1 else ?a2 endi retu16.找出三个数的最大数和最小数cleadime a3for i=1 to 3input请输入x= to aiendf if a1=a2 if a1=a3 ?a1 else ?a3 endi else if a2=a3 ?a2else ?a3 endi endi retu17.找出十个数的最大数和最小数cleadime a10for i=1 to 10input请输入x= to aiendffor j=9 to 1 step -1 for i=1 to j if ai=ai,j+1 t=ai,j ai,j=ai,j+1 ai,j+1=t endi endf endf for j=1 to 3 step 2 for i=1 to 1 if ai,j=ai+1,j t=ai,j ai,j=ai+1,j ai+1,j=t endi endf endf ?最小值=,a1,1 ?最大值=,a2,3 retu 19.对三个整数从大到小排序cleadime a10for i=1 to 10input请输入x= to aiendffor j=9 to 1 step -1 for i=1 to j if ai=ai+1 t=ai ai=ai+1 ai+1=t endi endfendffor i=1 to 10space2 ?ai endf retu20.对十个整数从大到小排序（用选择法和起泡法两种方法21.输出Fibonacci（斐波那契）数列的前十项cleadime a10for i=1 to 10 if i1.and.j0 x1=(-b+sqrt(j)/(2*a) x2=(-b-sqrt(j)/(2*a) ?x1 ?x2 case j=0 x=(-b)/(2*a) ?x otherwise ?存在两个不等虚根 endcase retu 28.输入任意一个五位数，前后对应位置上的数据进行交换重新排列（例：2598448952） cleainpu请输入一个五位数 to bdime a5 a5=intb/10000 i=intb/1000 a4=mod(i,10) j=intb/100 a3=modj,10 a1=modb,10 d=(b-a1)/10 a2=mod(d,10) ?space(2) for k=1 to 5 ?str(ak,1) endf retu 29.找出一个3x3矩阵的鞍点，即该位置上的元素在该行上最大，在该列上最小（也有可能没有鞍点） cleadime a(3,3)for m=1 to 3for n=1 to 3inpu请输入矩阵值=to am,nendfendf for i=1 to 3 max=ai,1 l=i k=1 for j=1 to 3 if max=az,k min=az,k l1=z endi endf if l1=l ?存在鞍点=,al,k endi endf 30.求S(n)=a+aa+aaa+.+aaa.aaa(其中有n个a)之值，a是一个数字，n和a由键盘键入(例如：2+22+222+22222+22222，此时n=5) cleainpu请输入a=to ainpu请输入n=to ns=0m=0for i=1 to n m=m