Question

求两道VFP编程题步骤

1.求解ax^2+bx+c=0的实根,其中a,b,c三个参数由键盘输入。
2.用循环语句编写程序计算20！。

Answer 1

第一题：
clear
?"请输入一元二次方程ax^2+bx+c=0的参数a,b,c。"
input "请输入一元二次方程ax^2+bx+c=0的参数a：" to a
input "请输入一元二次方程ax^2+bx+c=0的参数a：" to b
input "请输入一元二次方程ax^2+bx+c=0的参数a：" to c
if a=0
?"参数a输入错误，该方程非一元二次方程！"
else
d=b^2-4*a*c
do case
case d<0
?"一元二次方程"+alltrim(str(a))+"x^2"+iif(b>=0,"+"+alltrim(str(b)),"-"+alltrim(str(-b)))+"x"+iif(c>=0,"+"+alltrim(str(c)),"-"+alltrim(str(-c)))+"=0无实数根！"
case d=0
?"一元二次方程"+alltrim(str(a))+"x^2"+iif(b>=0,"+"+alltrim(str(b)),"-"+alltrim(str(-b)))+"x"+iif(c>=0,"+"+alltrim(str(c)),"-"+alltrim(str(-c)))+"=0有一个实数根为"+alltrim(str(-b/2/a))+"！"
case d>0
?"一元二次方程"+alltrim(str(a))+"x^2"+iif(b>=0,"+"+alltrim(str(b)),"-"+alltrim(str(-b)))+"x"+iif(c>=0,"+"+alltrim(str(c)),"-"+alltrim(str(-c)))+"=0有二个实数根为"+alltrim(str((-b-sqrt(d))/2/a))+"、"+alltrim(str((-b+sqrt(d))/2/a))+"！"
endcase
endif
第二题
clear
s=1
for i= 1 to 20
s=s*i
endfor
?"20!="+alltrim(str(s,19))