<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> |