王彦祺版vfp课后实验编程题

《王彦祺版vfp课后实验编程题》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实用文档一.顺序结构1.从键盘输入长方体的长、宽、高，求长方体的表面积。input“输入长方体的长：”toxinput“输入长方体的宽：”toyinput“输入长方体的高：”tozs=2*x*y+2*x*z+2*y*z?”长方体的表面积为：”,s2.从键盘输入圆的半径，计算圆的面积。input“输入圆的半径：”tors=3.14*r^2?”圆的面积为：”,s二.选择结构1.从键盘输入一个数，若为正数则输出，非正数则结束。input“输入一个数：”toxifx>0?xendifreturn2.求一元二次方程AX2+BX+C=0的实根。input“输入系数A：”toainput“输入系数B

2、：”tobinput“输入系数C：”tocm=b^2-4*a*cifm>=0x1=(-b+sqrt(m))/(2*a)x2=(-b-sqrt(m))/(2*a)?”x1=”,x1,”x2=”,x2else?”方程无实根！”endif3.判断是否是闰年.CLEARinput"输入一个年份"toy&&请保证输入的是数字，不再做错误处理IFy%4==0.and.y%100!=0.or.y%400==0MESSAGEBOX("是闰年")ELSEMESSAGEBOX("不是闰年")ENDIF4.从键盘输入一个待查学生的学号，在表XSQK.DBF中查找。若能找到，则显示该记录，否则，显示信息“该学

3、号不存在”。usexsqkaccept“输入待查学生学号：”tox文案大全实用文档locatefor学号=xifnoteof()displayelse?“该学号不存在”EndifUse5.从键盘输入一个自然数，若为偶数则输出信息“偶数”，若为奇数则输出信息“奇数”。input“输入一个自然数：”toxifx%2=0?”偶数”else?”奇数”endifreturn6.计算函数Y的值。Y=3ex+2-12X+5x>=0X<06.答案input“输入X的值：”toxifx>=0y=3*x-1elsey=2*x+5endif?”y=”,yreturn7.计算运费。车站从甲地到乙地托运行李，收

4、费规定：若行李重量不超过50公斤，每公斤收费0.5元；若行李重量超过50公斤，其超重部分加收0.4元。编写计算运费的程序。clearinput"请输入行李的重量："tonifn<50s=n*0.5elses=n*0.5+(n-50)*0.4endif?"应收费用为：",s文案大全实用文档return8.编写根据当前日期显示当前季节的程序。clearinput"请输入日期："todm=month(d)docasecasem>=3andm<=5?"春季"casem>=6andm<=8?"夏季"casem>=9andm<=11?"秋季"otherwise?"冬季"endcasereturn9

5、．编写程序，输入一个数字（0～7），显示其对应星期几的中英文信息。clearinput"请输入一个数字："tondocasecasen=1M="星期一(Monday)"casen=2M="星期二（Tuesday）"casen=3M="星期三（Wednesday）"casen=4M="星期四（Thursday）"casen=5M="星期五（Friday）"casen=6M="星期六（Saturday）"casen=0M="星期日（Sunday）"otherwiseM="重新输入"endcase?"您输入的是："+Mreturn10.设计个人纳税计算程序。“税法”规定，使用超额累进税率，以

6、每月收入额减去1600元后的余额，为应纳税所得额，其税率见下表：文案大全实用文档级数全月应纳税所得额税率（%）1不超过500元52500～2000元1032000～5000元1545000～20000元20520000～40000元25640000～60000元30760000～80000元35880000～100000元409100000元以上45clearinput"请输入月收入："tons=n-1600docasecases<=500r=s*0.05cases<=2500r=s*10cases<=5000r=s*15cases<=20000r=s*20cases<=40000r=

7、s*25cases<=60000r=s*30cases<=80000r=s*35cases<=100000r=s*40otherwiser=r*0.45endcase?"应纳税额为：",rreturn三.循环结构1.求S=1+2+3+……+100settalkoffclears=0i=1dowhilei<=100s=s+ii=i+1文案大全实用文档enddo?"1~100的和为：",sReturn2.求N！的值。（N！=1*2*3*……*N）c