解一元二次方程程序

发布网友发布时间：2022-12-10 03:47

共2个回答

热心网友时间：2023-10-15 14:32

可以编写这样的程序。二元一次方程组的标准形式是：
ax+by=e
cx+dy=f
那么：
y=(ec-af)/(bc-ad)
x=(e-by)/a
程序如下：

<style type=text/css>input {text-align:right}</style>
<form name=form1 onSubmit="return comp();">
<input type=text name=a value='1'> x + <input type=text name=b value='1'> y = <input type=text name=e value='9'> <br>
<input type=text name=c value='1'> x + <input type=text name=d value='-1'> y = <input type=text name=f value='3'> <br>
<input type=submit value='求解'> <br>
x=<input type=text name=x> <br>
y=<input type=text name=y>
</form>
<script language="JavaScript">
function comp(){
a=parseFloat(document.form1.a.value);
b=parseFloat(document.form1.b.value);
c=parseFloat(document.form1.c.value);
d=parseFloat(document.form1.d.value);
e=parseFloat(document.form1.e.value);
f=parseFloat(document.form1.f.value);
x=document.form1.x;
y=document.form1.y;
vy=(e*c-a*f)/(b*c-a*d);
vx=(e-b*vy)/a;
y.value=vy;
x.value=vx;
return false;
}
</script>

把上面的内容粘贴到记事本里面，保存为html文件（比如a.html)，然后鼠标双击就能在浏览器里面打开，你填充方程组的六个系数之后，点“求解”按钮就可以得出x,y。

------------------- 犯懒就帮你找了个与之相关的希望能帮助你吧追问拜托了，我要的是一元二次不是二元一次

追答vb代码如下：

Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
Dim d As Single, x1 As Single, x2 As Single
a = InputBox("请输入一元二次方程的系数a")
b = InputBox("请输入一元二次方程的系数b")
c = InputBox("请输入一元二次方程的系数c")
If a = 0 Then
a = InputBox("因为a≠0，你输入的a＝0，请重新输入系数a")
End If
d = b * b - 4 * a * c
If d >= 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Print "系数为"; a; b; c; "的一元二次方程的根分别为"; x1
Print "系数为"; a; b; c; "的一元二次方程的根分别为"; x2
Else
Print "此方程在实数范围内无解"
End If
End Sub

一、按钮“求一元二次方程”的vb代码如下：
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = b * b - 4 * a * c
If d >= 0 Then
X1 = (-b + Sqr(d)) / (2 * a)
X2 = (-b - Sqr(d)) / (2 * a)
Label4.Caption = X1
Label5.Caption = X2
Else
Label4.Caption = "在实数范围内无解"
End If
End Sub

二、按钮“重置”的vb代码如下：
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label4.Caption = ""
Label5.Caption = ""
End Sub

三、按钮“退出”的vb代码如下：
Private Sub Command3_Click()
End
End Sub

特殊例子（指定系数c的值为5）：

在窗体“Form1.frm”的“Command1_click“事件中编写代码（请不要随便更改其它代码），使之能够实现如下功能：在Text1输入整数a、、Text2输入b，判断一元二次方程ax2+bx+5=0有无实数根。并在Text3文本框中显示判断结果，即有实数根则在Text3文本框中输出“有”，否则输出“无”。

VB程序代码如下：

Private Sub Command1_Click()
dim a as single,b as single
a = Text1.Text
b = Text2.Text
d = b * b - 4 * a * 5
If d >= 0 Then
Text3.Text="有"
Else
Text3.Text="无"
End If
End Sub

如果不用dim定义变量，则上面的输入部分语句改为下面的语句，这样可以把字符变量类型转化为数值类型：
a =val(Text1.Text)
b =val(Text2.Text)

--------------------------------这个总是了吧

热心网友时间：2023-10-15 14:33

这个可以放在记事本里，代码如下：
dim a,b,c,d,e,x1,x2
a=inputbox("请输入一元二次方程中a的值")
b=inputbox("请输入一元二次方程中b的值")
c=inputbox("请输入一元二次方程中c的值")
d=b^2-4*a*c'("计算△")
if a=0 then
if b=0 then
msgbox("该算式不是一个方程")
else
x1=-c/d
msgbox("该方程不是一元二次方程，它的解只有一个为："&x1)
end if
else
if d>=0 then'("判断△是否大于或等于0")
e=sqr(d)
x1=(-b+e)/(2*a)
msgbox("x1的值为"&x1)
x2=(-b-e)/(2*a)
msgbox("x2的值为"&x2)
else
msgbox("该方程无解")
end if
end if
你应该学了一元二次方程解法了吧
这个程序你应该能看懂几个字吧

解一元二次方程 程序

解一元二次方程程序