VF程序设计经典例题1.doc

求园的面积（要求判断半径是否合理） Clea Inpu ‘r=’ to r If r0 S=3.14*r*r ?s Else ?’半径错误！’ Endif 求分段函数Y的值 Clea Inpu ‘x=’ to x If x0 Y=2*x+5 Else If x=0 Y=x Else Y=abs(x) Endif Endif ?y 输入一个百分制成绩判断其等级（优/良/中/及格/不及格） Clea Inpu ‘cj=’ to cj Do case Case cj=90 ?’优’ Case cj=80 ?’良’ Case cj=70 ?’中’ Case cj=60 ?’及格’ Orth ?’不及格’ Endcase 输入若干个（个数不定）百分制成绩判断其等级（优/良/中/及格/不及格） Clea Inpu ‘请输入处理几个人的成绩：’ to n For i=1 to n Inpu ‘cj=’ to cj Do case Case cj=90 ?’优’ Case cj=80 ?’良’ Case cj=70 ?’中’ Case cj=60 ?’及格’ Orth ?’不及格’ Endcase endfor 求S＝1+2+3. . . . . .+100 Clea S=0 For i=1 to 100 S=s+i Endfor ?s 求S＝1×2×3. . . . . .×100 Clea p=1 For i=1 to 100 p=p*i Endfor ?p 求S＝1+3+5.. . . . .+99 Clea S=0 For i=1 to 99 step 2 S=s+i Endfor ?s 求S＝1－2+3－4. . . . . .－100 Clea S=0 For i=1 to 100 S=s+(-1)^(i+1)*i Endfor ?s 求S＝1+1/2+2/3+3/5. . . . . .前10项之和 Clea S=0 A=1 B=1 For i=1 to 10 S=s+a/b T=a A=b B=t+b Endfor ?s 求S＝1！+2！+3！. . . . . .+10！ Clea S=0 P=1 For i=1 to 10 P=p*i S=s+p Endfor ?s 对学生表中所有入学成绩≥650分的学生免去贷款 Clea Use 学生 Scan for入学成绩=650 .and. 贷款否=.t. Repl贷款否 with .f. Endscan Use 输出图形 Clea For i=1 to 4 For j=1 to i ??’*’ Endfor ? Endfor Clea For i=1 to 4 For j=1 to 4-i ??’ ’ 有一个空格 Endfor For j=1 to 2*i-1 ??’*’ Endfor ? Endfor Clea For i=1 to 4 For j=1 to 4-i ??’ ’ 有一个空格 Endfor For j=1 to i ??’*’ Endfor ? Endfor 判断一个整数是否素数 Clea Inpu ‘x=’ to x For i=2 to x-1 If mod(x,i)0 Loop Else Exit Endif Endfor If ix-1 ?x,’是素数’ Else ?x,’不是素数’ Endif 判断十个整数是否素数 Clea For j=1 to 10 Inpu ‘x=’ to x For i=2 to x-1 If mod(x,i)0 Loop Else Exit Endif Endfor If ix-1 ?x,’是素数’ Else ?x,’不是素数’ Endif Endfor 找出两个数的大数和小数 Clea Inpu ‘x=’ to x Inpu ‘y’ to y If xy ?x,’大’,y,’小’ Else ?y,’大’,x,’小’ Endif 找出三个数的最大数和最小数 Clea Inpu ‘x=’ to x Inpu ‘y’ to y Inpu ‘z’ to z If xy t=x x=y y=t Else If xz t=x x=z z=t endif endif if yz t=y y=z z=t endif ?x,’是最大数’,z,’是最小数’ 找出十个数的最大数和最小数 Clea Dime a(10) For i=1 to