解二次方程（适用于教学站点）

领测软件测试网 <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²+<%=b%>X+<%=c%>=0<br>
<%
        if a=0 then%>
            这不是一个二次方程，
<%if b=0 then%>
您输入了0X²+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²+
  <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>

文章来源于领测软件测试网 https://www.ltesting.net/