PHP计算24点源代码

webptr · 发表于 2007-9-8 14:01:52

<html>
<head>
<title>计算24点</title>
<meta name="author" content="dlpower@163.com">
<meta http-equiv="Content-Type" content="text/html; charset=GB2312">
</head>

<body>
<br>
计算24点(加、减、乘、除、括号) <br><br>
作者：<a href='mailto:sunhw0725@163.com'>sunhw0725@163.com</a> (转贴请注明作者)<br><br>
<br><br><br><br>
<form>
请输入四个数字(1-13)：<br><br>
<input type="text" name="fa" size="2">
<input type="text" name="fb" size="2">
<input type="text" name="fc" size="2">
<input type="text" name="fd" size="2">
<br><br><input type="button" name="btn" onclick="javascript:funCount()" value="  计算  ">
</form>

<br><br>
<br><br>
一副牌（52张）中，任意抽取4张可有1820种不同组合，其中有458个牌组算不出24点。
<br><br>
二十世纪80年代中期，孙士杰从上海到美国定居。孙士杰有几位邻居是美国人。邻居家<br>
的小孩到他家串门，他没有别的玩具供孩子们玩，就灵机一动，拿出一副扑克来教他们<br>
玩“24点”。谁知，这一玩，竟令美国孩子着了迷。这些孩子又把这种游戏带回家中和<br>
学校，人们发现这种游戏对开发智力十分有益，后来就在全美推广开了。

<script language="JavaScript">
function log(str)
{
document.write("<br>"+str);
}

//生成计算表达式
function genExpress(exp,a,b,c,d,m1,m2,m3)
{
var exp=exp.replace("a",a);
exp=exp.replace("b",b);
exp=exp.replace("c",c);
exp=exp.replace("d",d);
exp=exp.replace("m1",m1);
exp=exp.replace("m2",m2);
exp=exp.replace("m3",m3);
return exp;
}

var answer = new Array();//正确答案的表达式
var counter = 0;//答案的个数

//测试表达式是否正确
function test(expn,a,b,c,d,m1,m2,m3)
{
var exp;
var ret;
exp = genExpress(expn,a,b,c,d,m1,m2,m3);//生成计算表达式
eval("ret = "+exp);
if ( Math.abs(ret - 24) < 0.1 )
{
  exp = exp.replace(";","");
  exp = replaceAll(exp,"*","×");
  exp = replaceAll(exp, "/","÷");
  var have = false;
  for ( var i=0; i<counter; i++)
  {
if ( exp == answer )
{
have = true;
break;
}
  }
  if ( !have )
  {
answer[counter] = exp;
counter++;
log("<font color=red><b>"+counter+":  "+exp+"</b></font>");
  }
}
}

function replaceAll (streng, soeg, erstat)
{
var st = streng;
if (soeg.length == 0)
  return st;
var idx = st.indexOf(soeg);
while (idx >= 0)
{
  st = st.substring(0,idx) + erstat + st.substr(idx+soeg.length);
  idx = st.indexOf(soeg);
}
return st;
}

var n = new Array();//四个数字

//接收四个输入框的数字，调用主程序
function funCount()
{
n[0] = document.forms[0].fa.value;
n[1] = document.forms[0].fb.value;
n[2] = document.forms[0].fc.value;
n[3] = document.forms[0].fd.value;
if ( n[0] > 0 && n[1] > 0 && n[2] > 0 && n[3] > 0 && n[0] < 14 && n[1] < 14 && n[2] < 14 && n[3] < 14 )
{
  log("<font size=5><b>"+n[0]+", "+n[1]+", "+n[2]+", "+n[3]+"的24点答案：</b></font><br>");
  log("<input type='button' onclick='history.back(-1);' value=' 再来一次 '><br>");
  funMain();
  if ( counter == 0 )
  {
log("没有答案！");
  }
}
else
{
  alert("输入错误！");
}
}

//主程序
function funMain()
{
var m = new Array();
//四种运算符
m[0] = "+";
m[1] = "-";
m[2] = "*";
m[3] = "/";

//11种表达式
var exp1 = "a m1 b m2 c m3 d;";
var exp2 = "(a m1 b) m2 c m3 d;";
var exp3 = "(a m1 b m2 c) m3 d;";
var exp4 = "((a m1 b) m2 c) m3 d;";
var exp5 = "(a m1 (b m2 c)) m3 d;";
var exp6 = "a m1 (b m2 c) m3 d;";
var exp7 = "a m1 (b m2 c m3 d);";
var exp8 = "a m1 ((b m2 c) m3 d);";
var exp9 = "a m1 (b m2 (c m3 d));";
var exp10 = "a m1 b m2(c m3 d);";
var exp11 = "(a m1 b) m2 (c m3 d);";

var a,b,c,d;//四个数字
var m1,m2,m3;//三个运算符

for (var i=0;i<4;i++)
{
   a = n;
   for (var j=0;j<4;j++)
   {
if ( i == j ) continue;//从未选的三个数字中选择一个数字
   b = n[j];
   for (var x=0;x<4;x++)
   {
if ( x == j || x == i ) continue;//从未选的两个数字中选择一个数字
   c = n[x];
   for (var y=0;y<4;y++)
   {
   if ( y == x || y == j || y == i ) continue;//从未选的一个数字中选择一个数字
      d = n[y];

      for (var ta=0;ta<4;ta++)
      {
      m1 = m[ta];
      for (var tb=0;tb<4;tb++)
      {
      m2 = m[tb];
      for (var tc=0;tc<4;tc++)
      {
         m3 = m[tc];
         for (var k=1;k<12;k++)
         {
         eval("test(exp"+k+",a,b,c,d,m1,m2,m3);");
         }
      }
      }
      }
   }
   }
   }
}
}
</script>
</body>
</html>

		自动登录	找回密码
密码			注册

全国各地医院查询	重量转换换算	RGB颜色查询	交通标志大全	各类快递查询
简体繁体转换	黄金价格实时走势	万年历查询	实时汇率转换	列车时刻查询
在线翻译工具	CSS中文手册	HTML学习教程	MySQL中文手册	JavaScript中文手册
PHP安全基础手册	PHP5面向对象编程教程	正则表达式系统教程	SQL Server精华	Apache 2.2 中文手册
DOS命令全集指南	windows脚本技术中文版	股票行情查询	历史上的今天	邮编区号查询
长度转换换算	货币汇率转换	常用电话号码	体育彩票查询	手机位置查询
域名Whois信息查询	谷歌PR值查询	台州网站建设	台州网站开发	台州域名注册
天气预报查询	长度转换换算器	在线电子地图	车牌号码查询	中国百家姓查询

PHP计算24点源代码

相关帖子