- 热门文章:
- · 一个很酷的程序javascript做的MID歌曲搜索播放器[IE](JS)_(转)
- · 一个查看ASP的javascript程序,方便大家学习ASP程序(JS)_转
- · 长串连续英文字符自动回行的方法(转)
- · 如何修复被修改的IE(1)
- · 如何修复被修改的IE(2)
- · 鼠标右键绝对禁止法
- · 改变浏览器的标题和加入收藏夹的js文件!
- · 零点的网页真黑!!
- · 超级Mailto功能
- · javascript的history对象
- · 又一个给浏览器的滚动条加上颜色的方法(转)
- · 动态计算还能够输入多少字节的表单(纯script,请吧昨天的精华替换成这个吧,那个中文也算1字节
上一篇:动态按钮生成器(下) >>
一全很经典的堆积演示程序(javascript)(转)
第一步:把如下代码加入<head>区域中
<SCRIPT LANGUAGE="JavaScript">
<!-- Original: 陆晓庆 (xiaoqinglu@263.net) -->
<!-- Begin
var MAXHEIGHT = 8;
var ndisk;
var timer = null;
var mvfrom = new Array(255);
var mvto = new Array(255);
var mv, imv;
var tower = new Array(3);
var h = new Array(3);
var spc = " ";
var dname = new Array(
"|",
"111",
"22222",
"3333333",
"444444444",
"55555555555",
"6666666666666",
"777777777777777",
"88888888888888888");
function init() {
if (!timer) {
s = document.formHanoi.disk.options[document.formHanoi.disk.selectedIndex].value;
if (s == "random") {
now = new Date();
ndisk = parseInt(now.getTime() / 1000) % 8 + 1;
delete now;
}
else ndisk = s;
mv = 0;
hanoi(0, 2, 1, ndisk);
for (i = 0; i < 3; i++)
tower[i] = new Array(MAXHEIGHT);
for (i = 0; i < ndisk; i++)
tower[0][i] = ndisk - i;
h[0] = ndisk;
h[1] = h[2] = 0;
imv = 0;
document.formHanoi.display.value = gentower();
timer = window.setTimeout("gennexttower()", document.formHanoi.delay.options
[document.formHanoi.delay.selectedIndex].value);
}
}
function stop() {
if (timer) {
window.clearTimeout(timer);
timer = null;
}
}
function hanoi(from,to,buf,nmv) {
if (nmv > 1) {
hanoi(from, buf, to, nmv - 1);
mvfrom[mv] = from;
mvto[mv++] = to;
hanoi(buf, to, from, nmv - 1);
}
else {
mvfrom[mv] = from;
mvto[mv++] = to;
}
}
function gennexttower() {
tower[mvto[imv]][h][mvto[imv]]++] = tower[mvfrom][imv]][--h][mvfrom][imv]]];
document.formHanoi.display.value = gentower();
if (++imv < mv)
timer = window.setTimeout("gennexttower()", document.formHanoi.delay.options
[document.formHanoi.delay.selectedIndex].value);
else {
for (i = 0; i < 3; i++)
delete tower[i];
timer = null;
}
}
function gentower() {
s = " \n";
for (i = MAXHEIGHT - 1; i >= 0; i--) {
for (j = 0; j < tower.length; j++) {
len = i < h[j] ? tower[j][i] : 0;
width = MAXHEIGHT - len;
s += " " + spc.substring(0, width) + dname[len] + spc.substring(0, width);
}
s += "\n";
}
return s+"=======================================================";
}
// End -->
</script>
第二步:把如下代码加入<body>区域中
<form name=formHanoi>
<textarea name=display rows=10 cols=56></textarea><br>
<table border=0 cellspacing=10 cellpadding=0>
<tr>
<td>堆积层数</td>
<td><select name=disk>
<option selected value=random>Random
<option value=1>1
<option value=2>2
<option value=3>3
<option value=4>4
<option value=5>5
<option value=6>6
<option value=7>7
<option value=8>8
</select></td>
</tr>
<tr>
<td>延迟时间</td>
<td><select name=delay>
<option value=100>100 milliseconds
<option value=200>200 milliseconds
<option value=300>300 milliseconds
<option value=400>400 milliseconds
<option selected value=500>500 milliseconds
<option value=600>600 milliseconds
<option value=700>700 milliseconds
<option value=800>800 milliseconds
<option value=900>900 milliseconds
<option value=1000>1000 milliseconds
</select></td>
</tr>
</table>
<input type=button value="Start" onClick="init();">
<input type=button value="Stop" onClick="stop();">
</form>
相关文章:
- · 动态计算还能够输入多少字节的表单代码^O^(申请入精华)
- · Vbscript教程一
- · vbscript教程三
- · vbscript教程四-常量
- · vbscript教程五-使用条件语句
- · vbscript教程六-循环语句
- · VBScript教程七-过程
- · VBScript教程九-页面
- · VBScript教程八-编码
- · VBScript 与窗体(十)
- · VBScript 中使用对象(十一)
- · VBScript错误信息列表
- · javascript[对象.属性]集锦(建议加入精华区)
- · 介绍一个判断plug-ins/ActiveX 是否存在的例子
- · 不用询问关闭一个独立的窗口代码
- · javascript修改注册表
- · 欢乐时光代码分析
- · 在网页中调用本地的应用程序(转自CSDN)
- · 类似WORD的文本风格设置技术大揭密
- · 可以输入的下拉框,我重新写了一下
- · 在线媒体播放器全新揭密
- · 使用WSH读取注册表
- · Behavior学习笔记(十)
- · Behavior学习笔记(十一)
- · 浅述HTML应用程序(一)
- · 浅述HTML应用程序(二)
- · Behavior学习笔记(七)
- · 浅述HTML应用程序(三)
- · Behavior学习笔记(八)
- · Behavior学习笔记(九)
- · Behavior学习笔记(五)
- · Behavior学习笔记(六)
- · Behavior学习笔记(三)
- · Behavior学习笔记(四)
- · Behavior学习笔记(二)
- · Behavior学习笔记(一)
- · 什么是ubb代码(转)?
- · 做WEB热键
