求助：vf编程 输入一元二次方程的系数a,b,c的值,编程求解一元二次方程ax^(2)+bx+c=0

求助：vf编程 输入一元二次方程的系数a,b,c的值,编程求解一元二次方程ax^(2)+bx+c=0
求助：vf编程 输入一元二次方程的系数a,b,c的值,编程求解一元二次方程ax^(2)+bx+c=0

求助：vf编程 输入一元二次方程的系数a,b,c的值,编程求解一元二次方程ax^(2)+bx+c=0
clear
text
一元二次方程求解
ax^2+bx+c=0
endtext
input "请输入a的值：" to a
input "请输入b的值：" to b
input "请输入c的值：" to c
m=b*b-4*a*c
if m>=0
x1=(-b+sqrt(m))/(2*a)
x2=(-b-sqrt(m))/(2*a)
?"x1的值是：",x1
?"x2的值是：",x2
else
?"此方程无实根!"
endif