资源描述:
《VF程序设计经典例题.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、.1.求园的面积(要求判断半径是否合理)..CleaInpu‘r=’torIfr>0S=3.14*r*r?sElse?’半径错误!’Endif2.求分段函数Y的值Y=2x+5x>0xx=0
2、x
3、x<0..CleaInpu‘x=’toxIfx>0Y=2*x+5ElseIfx=0Y=xElseY=abs(x)EndifEndif?y3.输入一个百分制成绩判断其等级(优/良/中/及格/不及格)..CleaInpu‘cj=’tocjDocaseCasecj>=90?’优’Casecj>=80?’良’Cas
4、ecj>=70?’中’Casecj>=60?’及格’Orth?’不及格’Endcase4.输入若干个(个数不定)百分制成绩判断其等级(优/良/中/及格/不及格)..CleaInpu‘请输入处理几个人的成绩:’tonFori=1tonInpu‘cj=’tocjDocase..Casecj>=90?’优’Casecj>=80?’良’Casecj>=70?’中’Casecj>=60?’及格’Orth?’不及格’Endcaseendfor1.求S=1+2+3......+100..C..leaS=0For
5、i=1to100S=s+iEndfor?s2.求S=1×2×3......×100..Cleap=1Fori=1to100p=p*iEndfor?p3.求S=1+3+5......+99..CleaS=0Fori=1to99step2S=s+iEndfor?s4.求S=1-2+3-4......-100..CleaS=0Fori=1to100S=s+(-1)^(i+1)*iEndfor?s5.求S=1+1/2+2/3+3/5......前10项之和..CleaS=0A=1..B=1Fori=1to
6、10S=s+a/bT=aA=bB=t+bEndfor?s1.求S=1!+2!+3!......+10!..CleaS=0P=1Fori=1to10P=p*iS=s+pEndfor?s2.对学生表中所有入学成绩≥650分的学生免去贷款CleaUse学生Scanfor入学成绩>=650.and.贷款否=.t.Repl贷款否with.f.EndscanUse************************************************************************3.
7、输出图形..CleaFori=1to4Forj=1toi??’*’Endfor?EndforCleaFori=1to4Forj=1to4-i??’’&&有一个空格EndforForj=1to2*i-1??’*’..Endfor?EndforCleaFori=1to4Forj=1to4-i??’’&&有一个空格EndforForj=1toi??’*’Endfor?Endfor1.判断一个整数是否素数..CleaInpu‘x=’toxFori=2tox-1Ifmod(x,i)<>0LoopElseEx
8、itEndifEndforIfi>x-1?x,’是素数’Else?x,’不是素数’Endif2.判断十个整数是否素数..CleaForj=1to10Inpu‘x=’toxFori=2tox-1Ifmod(x,i)<>0LoopElseExitEndifEndforIfi>x-1?x,’是素数’Else?x,’不是素数’Endif..Endfor1.找出两个数的大数和小数..CleaInpu‘x=’toxInpu‘y’toyIfx>y?x,’大’,y,’小’Else?y,’大’,x,’小’Endif
9、2.找出三个数的最大数和最小数..CleaInpu‘x=’toxInpu‘y’toyInpu‘z’tozIfxa(i)..Mi
10、n=a(i)EndifEndifEndfor?max,min1.找出2×3矩阵中的最大数和最小数cleadimea(2,3)fori=1to2forj=1to3input‘a(‘+str(I,2)+’,’+str(j,2)+’)=’toa(I,j)endforendformax=a(1,1)min=a(1,1)fori=1to2forj=1to3ifmaxa(I,j)min=a(I,j)endifendifendforendfo