VFP面向过程编程练习题(参考答案).docVIP

Visual FoxPro函授练习题 部分参考程序 求任一园面积； 解： 程序编写如下： CLEAR input 请输入园半径= to R S = 3.14159 * R * R ? 所求园面积为： , S 求任一梯形面积； 解： 程序编写如下： CLEAR input 请输入梯形的上底= to a input 请输入梯形的下底= to b input 请输入梯形的高= to h S = ( a + b )/ 2 * h ? 所求梯形面积为： , S 当判别式=0时，求方程 ax2+bx+c=0 的两个根（a0）； CLEAR input 请输入二次项系数 : TO a input 请输入一次项系数 : TO b input 请输入常数项 : TO c x1=(-b + SQRT(b*b-4*a*c) )/(2*a) x2=(-b - SQRT(b*b-4*a*c) )/(2*a) ? 方程的第一个根： , x1 ? 方程的第二个根： , x2 “ 特快专递”计费程序。 解法一： 程序编写如下： CLEAR input 请输入邮件重量 ： TO Ｘ IF Ｘ = 100 Y ＝ 0.05 * X ELSE Y ＝ 100 * 0.05 + 0.02 * （X—100） ENDIF ？ 邮费＝ + STR（Y） 解法二： 程序编写如下： CLEAR INPUT Ｘ= to Ｘ DO CASE CASE X = 100 Y ＝ 0.05 * X CASE X 100 Y ＝ 100 * 0.05 + 0.02 * （X—100） ENDCASE ？ Y＝ , Y “ 某种个人所得税”计税程序： 编写程序如下： clear input 请输入个人收入 ： TO Ｘ do case case 总收入=1200 ？ 免交个人所得税！ case 总收入1200 Y = (总收入－1200) * 0.08 ？ 应交个人所得税= , Y endcase 求分段函数值: － X2+3 X=10 y = 123 0=X10 －6X－9 X0 解： 程序编写如下： CLEAR input Ｘ= to Ｘ DO CASE CASE X =10 Y＝－X＊X+3 CASE X 0 Y＝－6＊X+9 OTHERWISE Y＝123 ENDCASE ？ Y＝ , Y 求 S = 1＋2＋3＋······＋100 解： 程序编写如下： CLEAR S=0 FOR i= 1 TO 100 S = S + i ENDFOR ? S= , S 求 S = 5＋10＋15＋······＋N 解： 程序编写如下： CLEAR INPUT N= TO N S=0 FOR i= 5 TO N step 5 S = S + i ENDFOR ? S= , S 求S=100+99+98+······+2+1 解： 程序编写如下： CLEAR S=0 FOR i= 100 TO 1 STEP —1 S = S + i ENDFOR ? S= , S 求 P = N ! 即 P = N×(N-1)×(N-2)×······×2×1 解法一 ： 用” 计数”循环（FOR --- ENDFOR语句） 编写程序如下： CLEAR P=1 INPUT N= TO N FOR K= N TO 1 STEP —1