VF程序的设计经典例题1.docVIP

. . Word格式 求园的面积（要求判断半径是否合理） Clea Inpu ‘r=’ to r If r0 S=3.14*r*r ?s Else ?’半径错误！’ Endif 求分段函数Y的值 Y Y= 2x＋5 x0 x x=0 | x | x0 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 L 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 L Else Exit Endif Endfor If ix-1