中科新闻网蓝紫光波长:怎样用计算机运行一段程序
来源：百度文库 编辑：中科新闻网 时间：2024/04/27 21:42:27
----------------------------------------------------------------
<!--网页特效代码由驿站http://js.jojoo.net提供！-->
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
var rootparti;
var rootpart;
var det;
var rootparti1;
var rootparti2;
var a;
var b;
var c;
var x1;
var x2;
var i = "i";
function checkQuad() {
var a = document.fquad.fa.value;
var b = document.fquad.fb.value;
var c = document.fquad.fc.value;
if (a == 0 && c != 0) {
x1 = -c / b;
x2 = "Not a quadratic equation, but here is your answer for x";
document.fquad.x1.value=x1;
document.fquad.x2.value=x2;
}
else if (a == "" && c != 0) {
x1 = -c / b;
x2 = "Not a quadratic equation";
document.fquad.x1.value=x1;
document.fquad.x2.value=x2;
}
else {
quad();
}
}
function quad() {
var a = document.fquad.fa.value;
var b = document.fquad.fb.value;
var c = document.fquad.fc.value;
det = Math.pow(b,2) - 4 * a * c;
rootpart = Math.sqrt(det) / (2 * a);
rootparti = (Math.sqrt(-det) / (2 * a)) + i;
if (parseFloat(rootparti) < 0) {
rootparti1 = rootparti;
rootparti2 = (-1 * parseFloat(rootparti)) + i;
}
else {
rootparti1 = (-1 * parseFloat(rootparti)) + i;
rootparti2 = rootparti;
}
if (rootparti1 == "1i") {
rootparti1 = i;
rootparti2 = "-i";
}
else if (rootparti1 == "-1i") {
rootparti1 = "-i";
rootparti2 = i;
}
if (det == 0) {
x1 = x2 = -b / (2 * a);
}
else if (det > 0) {
x1 = (-b + Math.sqrt(det)) / (2 * a);
x2 = (-b - Math.sqrt(det)) / (2 * a);
}
else if ((-b / (2 * a)) == 0) {
x1 = rootparti1;
x2 = rootparti2;
}
else {
x1 = (-b / (2 * a) + " + " + rootparti1);
x2 = (-b / (2 * a) + " + " + rootparti2);
}
document.fquad.x1.value=x1;
document.fquad.x2.value=x2;
}
// End -->
</script>
<form name=fquad>
<table align="center">
<tr>
<td>
<h2>
<input name=fa size=4>
<font color="#33FF33">x<SUP>2</SUP>+</font>
<input name=fb size=4>
<font color="#33FF33"> x +</font>
<input name=fc size=4>
<font color="#33FF33">= 0</font>
<input type=button value="求值" onClick="checkQuad()">
<input type=reset value="重填">
</h2>
</td>
</tr>
<tr>
<td>
<h2> <font color="#33FF33">x<sub>1</sub>=</font>
<input name=x1 size=45>
<br>
<font color="#33FF33">x<sub>2</sub>= </font>
<input name=x2 size=45>
</h2>
</td>
</tr>
</table>
</form>
---------------------------------------------------------------
新建个记事本文档，在里面写上给你的东西加个头,如下所示：
<html>
<head></head>
<body>
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
var rootparti;
var rootpart;
var det;
var rootparti1;
var rootparti2;
var a;
var b;
var c;
var x1;
var x2;
var i = "i";
function checkQuad() {
var a = document.fquad.fa.value;
var b = document.fquad.fb.value;
var c = document.fquad.fc.value;
if (a == 0 && c != 0) {
x1 = -c / b;
x2 = "Not a quadratic equation, but here is your answer for x";
document.fquad.x1.value=x1;
document.fquad.x2.value=x2;
}
else if (a == "" && c != 0) {
x1 = -c / b;
x2 = "Not a quadratic equation";
document.fquad.x1.value=x1;
document.fquad.x2.value=x2;
}
else {
quad();
}
}
function quad() {
var a = document.fquad.fa.value;
var b = document.fquad.fb.value;
var c = document.fquad.fc.value;
det = Math.pow(b,2) - 4 * a * c;
rootpart = Math.sqrt(det) / (2 * a);
rootparti = (Math.sqrt(-det) / (2 * a)) + i;
if (parseFloat(rootparti) < 0) {
rootparti1 = rootparti;
rootparti2 = (-1 * parseFloat(rootparti)) + i;
}
else {
rootparti1 = (-1 * parseFloat(rootparti)) + i;
rootparti2 = rootparti;
}
if (rootparti1 == "1i") {
rootparti1 = i;
rootparti2 = "-i";
}
else if (rootparti1 == "-1i") {
rootparti1 = "-i";
rootparti2 = i;
}
if (det == 0) {
x1 = x2 = -b / (2 * a);
}
else if (det > 0) {
x1 = (-b + Math.sqrt(det)) / (2 * a);
x2 = (-b - Math.sqrt(det)) / (2 * a);
}
else if ((-b / (2 * a)) == 0) {
x1 = rootparti1;
x2 = rootparti2;
}
else {
x1 = (-b / (2 * a) + " + " + rootparti1);
x2 = (-b / (2 * a) + " + " + rootparti2);
}
document.fquad.x1.value=x1;
document.fquad.x2.value=x2;
}
// End -->
</script>
<form name=fquad>
<table align="center">
<tr>
<td>
<h2>
<input name=fa size=4>
<font color="#33FF33">x<SUP>2</SUP>+</font>
<input name=fb size=4>
<font color="#33FF33"> x +</font>
<input name=fc size=4>
<font color="#33FF33">= 0</font>
<input type=button value="求值" onClick="checkQuad()">
<input type=reset value="重填">
</h2>
</td>
</tr>
<tr>
<td>
<h2> <font color="#33FF33">x<sub>1</sub>=</font>
<input name=x1 size=45>
<br>
<font color="#33FF33">x<sub>2</sub>= </font>
<input name=x2 size=45>
</h2>
</td>
</tr>
</table>
</form>
</body>
</html>
然后将文件保存为.htm即可。
注意：别点记事本里的保存，点另存为，文件保存为任何类型，名字取为XXX.htm。
然后你会发现保存的是个网页，打开就行了。
你在打开我的电脑-工具-文件夹选项-查看-隐藏已知文件扩展名的勾去掉，确定。
然后建立个文本，把这些代码复制进去，然后把比如你建立的是1.TXT该名成1.html然后就可以打开了！
打开frontpage
把这段代码复制进去，保存后直接打开那个文件就OK了！
程序不完整，head什么的都没有呢。要结合表格和控件，最好装个IIS，把创建一个ASP，把东西插在里面，然后保存为*.asp，设置好目录就可以运行调试了。