<html>
<head>
<title>求二次方程的解</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF">
<div align="center"><font color="#FF0000"><b>求二次方程的解 </b></font><b></b> </div>
<%
if Request.Form("cal")="y" then
a=trim(Request("a"))
b=trim(Request("b"))
c=trim(Request("c"))
mynum=b*b-4*a*c
%>
您输入的方程是：<%=a%>X<sup>2</sup>+<%=b%>X+<%=c%>=0<br>
<%
if a=0 then%>
这不是一个二次方程，
<%if b=0 then%>
您输入了0X<sup>2</sup>+0X+<%=c%>=0这样的方程式！<br>
<%if c=0 then%>
有无限多个解。
<%else%>
<font color=red>条件不成立！</font>
<%end if%>
<%else%>
它的解是：X=<%=-(c/b)%><br>
<%end if%>
<%elseif mynum=0 then%>
它有两个相等的实根。X=<%=-b/(2*a)%><br>
<%elseif mynum>0 then%>
它有两个不相等的实根。<br>
X1=<%=FormatNumber((-b+sqr(mynum))/(2*a),,-1)%><br>
X2=<%=FormatNumber((-b-sqr(mynum))/(2*a),,-1)%><br>
<%else
realpart=FormatNumber(-b/(2*a),4,-1)
imagpart=FormatNumber(sqr(-mynum)/(2*a),4,-1)
%>
此方程有两个复根：<br>
<%=realpart%>+<%=imagpart%>i<br>
<%=realpart%>-<%=imagpart%>i<br>
<%
end if
end if
%>
<form method="post" action="try3.asp">
输入方程参数：
<input type="text" name="a" size="5">
X<sup>2</sup>+
<input type="text" name="b" size="5">
X+
<input type="text" name="c" size="5">
=0
<input type=hidden name=cal value=y>
<input type="submit" name="Submit" value="提交">
</form>
</body>
</html>