下载

2下载券

加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VF程序设计编程题答案

VF程序设计编程题答案.doc

VF程序设计编程题答案

人鱼梅
2019-05-10 0人阅读 举报 0 0 暂无简介

简介:本文档为《VF程序设计编程题答案doc》,可适用于领域

第六章程序设计编程题求园的面积(要求判断半径是否合理)CleaInpu‘r=’torIfr>S=*r*rsElse’半径错误!’Endif求分段函数Y的值CleaInpu‘x=’toxIfx>Y=*xElseIfx=Y=xElseY=abs(x)EndifEndify输入一个百分制成绩判断其等级(优良中及格不及格)CleaInpu‘cj=’tocjDocaseCasecj>=’优’Casecj>=’良’Casecj>=’中’Casecj>=’及格’Orth’不及格’Endcase输入若干个(个数不定)百分制成绩判断其等级(优良中及格不及格)CleaInpu‘请输入处理几个人的成绩:’tonFori=tonInpu‘cj=’tocjDocaseCasecj>=’优’Casecj>=’良’Casecj>=’中’Casecj>=’及格’Orth’不及格’Endcaseendfor求S=CleaS=Fori=toS=siEndfors求S=×××Cleap=Fori=top=p*iEndforp求S=CleaS=Fori=tostepS=siEndfors求S=---CleaS=Fori=toS=s()^(i)*iEndfors求S=前项之和CleaS=A=B=Fori=toS=sabT=aA=bB=tbEndfors求S=!!!!CleaS=P=Fori=toP=p*iS=spEndfors对学生表中所有入学成绩≥分的学生免去贷款CleaUse学生Scanfor入学成绩>=and贷款否=tRepl贷款否withfEndscanUse************************************************************************输出图形CleaFori=toForj=toi’*’EndforEndforCleaFori=toForj=toi’’ 有一个空格EndforForj=to*i’*’EndforEndforCleaFori=toForj=toi’’ 有一个空格EndforForj=toi’*’EndforEndfor判断一个整数是否素数CleaInpu‘x=’toxFori=toxIfmod(x,i)<>LoopElseExitEndifEndforIfi>xx,’是素数’Elsex,’不是素数’Endif判断十个整数是否素数CleaForj=toInpu‘x=’toxFori=toxIfmod(x,i)<>LoopElseExitEndifEndforIfi>xx,’是素数’Elsex,’不是素数’EndifEndfor找出两个数的大数和小数CleaInpu‘x=’toxInpu‘y’ toyIfx>yx,’大’,y,’小’Elsey,’大’,x,’小’Endif找出三个数的最大数和最小数CleaInpu‘x=’toxInpu‘y’ toyInpu‘z’ tozIfx<yt=xx=yy=tElseIfx<zt=xx=zz=tendifendifify<zt=yy=zz=tendifx,’是最大数’,z,’是最小数’找出十个数的最大数和最小数CleaDimea()Fori=toInputoa(i)EndforMax=a()Min=a()Fori=toIfmax<a(i)Max=a(i)ElseIfmin>a(i)Min=a(i)EndifEndifEndformax,min找出×矩阵中的最大数和最小数cleadimea(,)fori=toforj=toinput ‘a(‘str(I,)’,’str(j,)’)=’ toa(I,j)endforendformax=a(,)min=a(,)fori=toforj=toifmax<a(I,j)max=a(I,j)elseifmin>a(I,j)min=a(I,j)endifendifendforendfor’max=’,max,’min=’,min对三个整数从大到小排序ClearInput‘a=’toaInput‘b=’tobInput‘c=’tocIfa<bT=aA=bB=tElseIfa<ct=aA=cc=tendifendifIfb<cT=bA=cc=tendifa,b,c对十个整数从大到小排序(用选择法和起泡法两种方法)选择法:ClearDimea()Fori=toInputtoa(i)EndforFori=toMax=a(i)Num=iForj=itoIfmax<a(j)max=a(j)Num=jEndifEndforIfi<>numt=A(i)a(i)=a(num)a(num)=tEndifEndforFori=toa(i),' 'Endfor起泡法:ClearDimea()Fori=toInputtoa(i)EndforFori=toForj=toiIfa(j)<a(j)t=A(j)a(j)=a(j)a(j)=tEndifendforEndforFori=toa(i),' 'Endfor输出Fibonacci(斐波那契)数列的前十项ClearDimea()a()=a()=Fori=toa(i)=a(i)a(i)EndforFori=toA(i)Endfor输出杨辉三角的前十行ClearDimea(,)Fori=toA(I,)=A(I,i)=EndforFori=toForj=toiA(I,j)=a(i,j)a(i,j)EndforEndforFori=toForj=toiA(I,j)EndforEndfor对×矩阵转置CleaDimea(,),b(,)fori=toforj=toinput toa(I,j)endforendforfori=toforj=tob(I,j)=a(j,i)endforendforfori=toforj=tob(I,j)Endforendfor求三位数中的所有水仙花数(即指一个三位数,其各位数字立方和等于该数本身)Cleaforx=toa=int(x)b=mod(int(x),)c=mod(x,)ifx==a*a*ab*b*bc*c*cxEndifendfor求以内的所有完数(即一个数恰好等于除它本身外的所有因子之和)Cleafori=tos=forj=toiifmod(i,j)==s=sjendifendforifi==siendifendfor已知三角形的三边(从键盘输入)求其面积(S^=p(pa)(pb)(pc),p=(abc))Cleainput'a='toainput'b='tobinput'c='tocifab>candac>bandbc>ap=(abc)s=sqrt(p*(pa)*(pb)*(pc))selse'三边不能组成三角形'

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/27

VF程序设计编程题答案

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利