用VF自定义函数编求一元二次方程两实根的程序
发布网友
发布时间：2024-09-08 19:02
共1个回答
热心网友
时间：2024-09-13 20:52
CLEAR
input "请输入二次项系数a：" to a
input "请输入一次项系数b：" to b
input "请输入常数项系数c：" to c
delta=b*b-4*a*c
IF delta<0
ans1=-b/(2*a)+SQRT(-1*delta)/(2*a)
ans2=-b/(2*a)-SQRT(-1*delta)/(2*a)
?"方程有2个共轭须根！"
?"第一个根是：",ans1,"i","第二个根是：",ans2,"i"
ELSE
ans1=-b/(2*a)+SQRT(delta)/(2*a)
ans2=-b/(2*a)-SQRT(delta)/(2*a)
?"第一个根是：",ans1,"第二个根是：",ans2
ENDIF
CANCEL
声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com
E-MAIL:11247931@qq.com