VF程序设计编程题(完成)

1、第六章 程序设计编程题1. 求园的面积（要求判断半径是否合理）cleainpu r= to rif r0 s=3.14*r*r ?selse ?半径错误！endif2. 求分段函数y的值y=2x5 x0x x=0| x | x0 y=2*x+5else if x=0y=x elsey=abs(x) endifendif?y3. 输入一个百分制成绩判断其等级（优/良/中/及格/不及格）cleainpu cj= to cjdo case case cj=90?优 case cj=80?良 case cj=70?中 case cj=60?及格 orth?不及格endcase4. 输入若干个（个数不定

2、）百分制成绩判断其等级（优/良/中/及格/不及格）cleainpu 请输入处理几个人的成绩： to nfor i=1 to ninpu cj= to cjdo case case cj=90?优 case cj=80?良 case cj=70?中 case cj=60?及格 orth?不及格endcaseendfor5. 求s1+2+3. . . . . .+100cleas=0for i=1 to 100 s=s+iendfor?s 6. 求s123. . . . . .100cleap=1for i=1 to 100 p=p*iendfor?p7. 求s1+3+5. . . . .+99c

3、leas=0for i=1 to 99 step 2 s=s+iendfor?s8. 求s12+34. . . . . .100cleas=0for i=1 to 100 s=s+(-1)(i+1)*iendfor?s9. 求s1+1/2+2/3+3/5. . . . . .前10项之和cleas=0a=1b=1for i=1 to 10 s=s+a/b t=a a=b b=t+bendfor?s10. 求s1！+2！+3！. . . . . .+10！cleas=0p=1for i=1 to 10p=p*i s=s+p endfor?s11. 对学生表中所有入学成绩650分的学生免去贷款cl

4、eause 学生scan for入学成绩=650 .and. 贷款否=.t. repl贷款否 with .f.endscanuse* * * * * * * * * * * * * * * * * * * * *12. 输出图形cleafor i=1 to 4 for j=1 to i?* endfor ?endforcleafor i=1 to 4 for j=1 to 4-i? &有一个空格 endfor for j=1 to 2*i-1?* endfor ?endforcleafor i=1 to 4 for j=1 to 4-i? &有一个空格 endfor for j=1 to i?

5、* endfor ?endfor13. 判断一个整数是否素数cleainpu x= to xfor i=2 to x-1 if mod(x,i)0loop elseexitendifendforif ix-1 ?x,是素数else ?x,不是素数endif14. 判断十个整数是否素数cleafor j=1 to 10inpu x= to xfor i=2 to x-1 if mod(x,i)0loop elseexitendifendforif ix-1 ?x,是素数else ?x,不是素数endifendfor15. 找出两个数的大数和小数cleainpu x= to xinpu y to

6、yif xy ?x,大,y,小else ?y,大,x,小endif16. 找出三个数的最大数和最小数cleainpu x= to xinpu y to yinpu z to zif xy t=xx=yy=telse if xz t=xx=zz=t endifendifif yz t=yy=zz=tendif?x,是最大数,z,是最小数17. 找出十个数的最大数和最小数cleadime a(10)for i=1 to 10 inpu to a(i)endformax=a(1)min=a(1)for i=2 to 10 if maxa(i) min=a(i)endif endifendfor?ma

7、x,min18. 找出23矩阵中的最大数和最小数cleadime a(2,3)for i=1 to 2 for j=1 to 3input a(+str(i,2)+,+str(j,2)+)= to a(i,j) endforendformax=a(1,1)min=a(1,1)for i=1 to 2 for j=1 to 3if max a(i,j) min= a(i,j) endifendif endforendfor?max=,max,min=,min19. 对三个整数从大到小排序clearinput a= to ainput b= to binput c= to cif ab t=a a

8、=b b=telse if ac t=a a=cc=t endifendifif bc t=b a=c c=tendif?a,b,c20. 对十个整数从大到小排序（用选择法和起泡法两种方法）选择法:cleardime a(10)for i=1 to 10 input to a(i)endforfor i=1 to 9 max=a(i) num=i for j=i+1 to 10if maxa(j) max=a(j) num=jendif endfor if inum t=a(i) a(i)=a(num) a(num)=t endifendforfor i=1 to 10 ?a(i), endf

9、or起泡法：cleardime a(10)for i=1 to 10 input to a(i)endforfor i=1 to 9 for j=1 to 10-i if a(j)c and a+cb and b+ca p=(a+b+c)/2 s=sqrt(p*(p-a)*(p-b)*(p-c) ?selse ?三边不能组成三角形endif27. 求二元方程的根（分三种情况：两个不等实根，两个相等实根，无实根）cleainpu a= to a &a0inpu b= to b &b0inpu c= to ci=b*b-4*a*c if i0 ?方程无实根! else if i=0 r=(-b)/

10、(2*a) ?方程有两个相等实数根:,r else x1=(-b+sqrt(i)/(2*a) x2=(-b-sqrt(i)/(2*a) ?方程有两个不相等实数根:,x1,x2 endifendif28. 输入任意一个五位整数，前后对应位置上的数据进行交换重新排列（即逆序排列）（例：2598448952）cleadime a(5)inpu to ba(1)=int(b/10000)a(2)=mod(int(b/1000),10)a(3)=mod(int(b/100),10)a(4)=mod(int(b/10),10)a(5)=mod(b,10)for i=1 to int(5/2) t=a(i)

11、 a(i)=a(6-i) a(6-i)=tendforc=a(1)*10000+a(2)*1000+a(3)*100+a(4)*10+a(5)?b,c29. 找出一个3x3矩阵的“鞍点”，即该位置上的元素在该行上最大，在该列上最小（也有可能没有鞍点）cleadime a(3,3) flag=.t.for i=1 to 3 for j=1 to 3 input a(+str(i,2)+,+str(j,2)+)= to a(i,j) endforendfor for i=1 to 3 max=a(i,1) col=1 for j=2 to 3 if maxa(k,col) min=a(k,col) row=k endif endfor if max=min ?a(row,col),是鞍点，在,row,行,col,列 flag=.f. endifendf