vfp 面向过程编程练习题 (参考答案)

《vfp 面向过程编程练习题 (参考答案)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VisualFoxPro函授练习题部分参考程序一、求任一园面积；解：程序编写如下：CLEARinput"请输入园半径="toRS=3.14159*R*R?"所求园面积为：",S二、求任一梯形面积；解：程序编写如下：CLEARinput"请输入梯形的上底="toainput"请输入梯形的下底="tobinput"请输入梯形的高="tohS=(a+b)/2*h?"所求梯形面积为：",S三、当判别式>=0时，求方程ax2+bx+c=0的两个根（a>0）；CLEARinput"请输入二次项系数:"TOainput"请输入一次项系数:

2、"TObinput"请输入常数项:"TOcx1=(-b+SQRT(b*b-4*a*c))/(2*a)x2=(-b-SQRT(b*b-4*a*c))/(2*a)?"方程的第一个根：",x1?"方程的第二个根：",x2四、“特快专递”计费程序。解法一：程序编写如下：CLEARinput"请输入邮件重量："TOＸIFＸ<=100Y＝0.05*XELSEY＝100*0.05+0.02*（X—100）ENDIF？"邮费＝"+STR（Y）解法二：程序编写如下：CLEARINPUT"Ｘ="toＸDOCASECASEX<=100Y＝0.05

3、*X4CASEX>100Y＝100*0.05+0.02*（X—100）ENDCASE？"Y＝",Y一、“某种个人所得税”计税程序：编写程序如下：clearinput"请输入个人收入："TOＸdocasecase总收入<=1200？"免交个人所得税！"case总收入>1200Y=(总收入－1200)*0.08？"应交个人所得税=",Yendcase二、求分段函数值:－X2+3X>=10y=1230<=X<10－6X－9X<0解：程序编写如下：CLEARinput"Ｘ="toＸDOCASECASEX>=10Y＝－X＊X+3CAS

4、EX<0Y＝－6＊X+9OTHERWISEY＝123ENDCASE？"Y＝",Y三、求S=1＋2＋3＋······＋100解：程序编写如下：CLEARS=0FORi=1TO100S=S+i4ENDFOR?"S=",S一、求S=5＋10＋15＋······＋N解：程序编写如下：CLEARINPUT"N="TONS=0FORi=5TONstep5S=S+iENDFOR?"S=",S二、求S=100+99+98+······+2+1解：程序编写如下：CLEARS=0FORi=100TO1STEP—1S=S+iENDFOR?"S="

5、,S三、求P=N!即P=N×(N-1)×(N-2)×······×2×1解法一：用”计数”循环（FOR---ENDFOR语句）编写程序如下：CLEARP=1INPUT"N="TONFORK=NTO1STEP—1P=P*KENDFOR?"P=",P解法二：用”当”循环（DOWHILE---ENDDO语句）编写程序如下：CLEARINPUT"N="TONS=0K=1DOWHILEK<=NS=S+KK=K+1ENDDO?"S=",S四、打印九九表4编写程序如下：clearfori=1to9forj=1toi??str(i,1)+"

6、×"+str(j,1)+"="+str(i*j,2)+""endfor?endfor4