TC官方合作论坛

标题: 讨论这个一元二次方程求解~ [打印本页]

作者: li664841402 时间: 2013-1-1 16:05
标题: 讨论这个一元二次方程求解~

[attach]7077[/attach]

代码：
空间一元二次方程求解
//默认空间

//开始按钮_点击操作
功能开始_点击()
字符型 a
a=编辑框.获得文本("编辑框0")
字符型 b
b=编辑框.获得文本("编辑框1")
字符型 a,x1,x2
c=编辑框.获得文本("编辑框2")

如果((b*b-4*a*c)<0)
编辑框.设置文本("编辑框3","无实根")
编辑框.设置文本("编辑框4","无实根")
否则
x1=((-b)+数学.开方(b*b-4*a*c))/2*a
x2=((-b)-数学.开方(b*b-4*a*c))/2*a
编辑框.设置文本("编辑框3",x1)
编辑框.设置文本("编辑框4",x2)
返回 0
如果结束

功能结束

//空间结束语句

附：编辑框顺序01234

作者: 陌上青衣。 时间: 2013-1-1 18:07

有些筒子们要偷懒了

作者: li664841402 时间: 2013-1-1 18:54
回复 2楼陌上青衣。的帖子

问题是这懒沒有投成功啊！

作者: li664841402 时间: 2013-1-2 00:01
x1=((-b)+数学.开方(b*b-4*a*c))/(2*a)
x2=((-b)-数学.开方(b*b-4*a*c))/(2*a)
有问题还是要自己来~~~

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)