算24点

熊猫发表于 2007-4-4 12:44:00

天堂伞 发表于 2007-4-4 12:45:00

。。。3547

叶碧溪 发表于 2007-4-4 12:46:00

某人很能算的

熊猫发表于 2007-4-4 12:49:00

<div style="WIDTH: 800px; HEIGHT: 600px;"><embed pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" src="http://www3.flash8.net/uploadflash/29/flash8net_28149.swf" type="application/x-shockwave-flash" quality="high" style="WIDTH: 700px; HEIGHT: 600px;"></embed></div>
[此贴子已经被作者于2007-4-4 12:52:25编辑过]

︶ㄣ比目鱼︶ㄣ 发表于 2007-4-4 12:50:00

死细胞的....

叶碧溪 发表于 2007-4-4 12:51:00

。。。。

№西远￡訷話 发表于 2007-4-4 12:52:00

熊猫发表于 2007-4-4 12:54:00

//牌初始显示 p1.gotoAndStop(5); p2.gotoAndStop(18); p3.gotoAndStop(31); //表达式计算 ebtn.onPress = function() {  out2.text = evalString(input2.text); }; //随机产生四个数 RandBtn.onRelease = function() {  //预存52张牌，不含王。  var p54:Array=;  //抽四张牌  var p4:Array=[];  for(var i=0;i<4;i++){   p4.push(p54.splice(random(p54.length),1));  }  //牌显示  for(var i=0;i<p4.length;i++){   _root["p"+(i+1)].gotoAndStop(p4);  }  //数据显示  input.text =p4%13 +","+p4%13+","+p4%13+","+p4%13; }; //计算按钮 evalBtn.onRelease = function() {  var inStr:String = input.text;  //删除字串中的空格  var i = 0;  while (true) {   i = inStr.indexOf(" ", i);   if (i == -1) {    break;   }   inStr = inStr.slice(0, i)+inStr.slice(i+1);  }  var N4:Array = inStr.split(",");  //以“，”号撤分  var Lok = eval24(N4);  out.text = "";  if (Lok.length == 0) {   out.text = "我没算出来！";  } else {   for (var i = 0; i<Lok.length; i++) {    out.text += Lok+"\n";   }  } }; //计算函数 function eval24(Num4:Array) {  var Num4i;  var Num4j;  var Num4k;  var Num4m;  var res1:Array = [];  var res2:Array = [];  for (var i = 0; i<4; i++) {   Num4i = Number(Num4);   for (var j = 0; j<4; j++) {    if (i != j) {     Num4j = Number(Num4);     var PArray1:Array = [];     var PArray2:Array = [];     //A任取两个数运算     PArray1.push(Num4i+Num4j);     PArray2.push("("+Num4i+"+"+Num4j+")");     PArray1.push(Num4i-Num4j);     PArray2.push("("+Num4i+"-"+Num4j+")");     PArray1.push(Num4j-Num4i);     PArray2.push("("+Num4j+"-"+Num4i+")");     PArray1.push(Num4i*Num4j);     PArray2.push("("+Num4i+"*"+Num4j+")");     PArray1.push(Num4i/Num4j);     PArray2.push("("+Num4i+"/"+Num4j+")");     PArray1.push(Num4j/Num4i);     PArray2.push("("+Num4j+"/"+Num4i+")");     for (var k = 0; k<4; k++) {      if (j != k && i != k) {       Num4k = Number(Num4);       for (var m = 0; m<4; m++) {        if (k != m && j != m && i != m) {         Num4m = Number(Num4);         var kArray1:Array = [];         var kArray2:Array = [];         //B剩下两个数的运算         kArray1.push(Num4k+Num4m);         kArray2.push("("+Num4k+"+"+Num4m+")");         kArray1.push(Num4k-Num4m);         kArray2.push("("+Num4k+"-"+Num4m+")");         kArray1.push(Num4m-Num4k);         kArray2.push("("+Num4m+"-"+Num4k+")");         kArray1.push(Num4k*Num4m);         kArray2.push("("+Num4k+"*"+Num4m+")");         kArray1.push(Num4k/Num4m);         kArray2.push("("+Num4k+"/"+Num4m+")");         kArray1.push(Num4m/Num4k);         kArray2.push("("+Num4m+"/"+Num4k+")");         for (var a = 0; a<PArray1.length; a++) {          for (var b = 0; b<kArray1.length; b++) {           //（A#B）#（C#D）           res1.push(PArray1+kArray1);           res2.push(PArray2+"+"+kArray2);           res1.push(PArray1-kArray1);           res2.push(PArray2+"-"+kArray2);           res1.push(kArray1-PArray1);           res2.push(kArray2+"-"+PArray2);           res1.push(PArray1*kArray1);           res2.push(PArray2+"*"+kArray2);           res1.push(PArray1/kArray1);           res2.push(PArray2+"/"+kArray2);           res1.push(kArray1/PArray1);           res2.push(kArray2+"/"+PArray2);          }         }        }       }      }     }     //((A#B)#C)#D     for (var k = 0; k<4; k++) {      if (j != k && i != k) {       Num4k = Number(Num4);       for (var l = 0; l<PArray1.length; l++) {        var kArray1:Array = [];        var kArray2:Array = [];        kArray1.push(PArray1+Num4k);        kArray2.push("("+PArray2+"+"+Num4k+")");        kArray1.push(PArray1-Num4k);        kArray2.push("("+PArray2+"-"+Num4k+")");        kArray1.push(Num4k-PArray1);        kArray2.push("("+Num4k+"-"+PArray2+")");        kArray1.push(PArray1*Num4k);        kArray2.push("("+PArray2+"*"+Num4k+")");        kArray1.push(PArray1/Num4k);        kArray2.push("("+PArray2+"/"+Num4k+")");        kArray1.push(Num4k/PArray1);        kArray2.push("("+Num4k+"/"+PArray2+")");        for (var m = 0; m<4; m++) {         if (k != m && j != m && i != m) {          Num4m = Number(Num4);          for (var n = 0; n<kArray1.length; n++) {           res1.push(kArray1+Num4m);           res2.push(kArray2+"+"+Num4m);           res1.push(kArray1-Num4m);           res2.push(kArray2+"-"+Num4m);           res1.push(Num4m-kArray1);           res2.push(Num4m+"-"+kArray2);           res1.push(kArray1*Num4m);           res2.push(kArray2+"*"+Num4m);           res1.push(kArray1/Num4m);           res2.push(kArray2+"/"+Num4m);           res1.push(Num4m/kArray1);           res2.push(Num4m+"/"+kArray2);          }         }        }       }      }     }    }   }  }  var retArray:Array = [];  for (var m = 0; m<res2.length; m++) {   //if (Number(res1)>=23.99 && Number(res1)<=24.01) {   if (res1 == 24) {    var ok:Boolean = true;    for (var i = 0; i<retArray.length; i++) {     if ((res2+"="+res1) == retArray) {      ok = false;     }    }    if (ok) {     retArray.push(res2+"="+res1);    }   }  }  return retArray; } //计算字串表达式的值 //参数：字串计算表达式，只能有数字（可以是小数和负数），+ - * / ( )等符号，自动忽略空格。 function evalString(表达式:String):Number {  //删除字串中的空格  var i = 0;  while (true) {   i = 表达式.indexOf(" ", i);   if (i == -1) {    break;   }   表达式 = 表达式.slice(0, i)+表达式.slice(i+1);  }  var 堆栈:Array = ["@"];  //栈底标记"@"  var a, b, c, d:String, Err:String = "ok";  var _fh = 1;  //正负号  var posN = "";  // 扫描表达式  for (var i = 0; i<表达式.length; i++) {   switch (表达式.charAt(i)) {   case "(" :    //左括号前面是数字，就插入乘号，否则就直接入栈。即左括号前的乘号可以省略。    d = 表达式.charAt(i-1);    if ((d>"0" && d<"9") || d == ")") {     堆栈.push("*");    }    堆栈.push(表达式.charAt(i));    break;   case ")" :    //右括号则退栈计算，直到遇见一个左括号    b = 堆栈.pop();    c = 堆栈.pop();    a = 堆栈.pop();    if (堆栈.pop() == "(") {     堆栈.push(计算两数(a, c, b));    } else {     //请拖动“组件”Alert到舞台上，然后删除，它就出现在库中了     //这样才能利用下面的弹出提示信息窗口。     mx.controls.Alert.show("括号不匹配！", "表达式错误");     return Number("");    }    break;   case "*" :   case "/" :    //如果前一个运算符为*或/，则退栈计算，再入栈，否则直接入栈    d = 堆栈[堆栈.length-2];    if (d == "*" || d == "/") {     b = 堆栈.pop();     c = 堆栈.pop();     a = 堆栈.pop();     堆栈.push(计算两数(a, c, b));    }    堆栈.push(表达式.charAt(i));    break;   case "-" :    //判断是减号？还是负号？    d = 表达式.charAt(i-1);    if (i == 0 || d == "(" || d == "/" || d == "*") {     _fh = -1;     break;    }   case "+" :    //如果前一个运算符不是左括号也不是栈底，则退栈计算，再入栈    d = 堆栈[堆栈.length-2];    if (d != "(" && d != "@") {     b = 堆栈.pop();     c = 堆栈.pop();     a = 堆栈.pop();     堆栈.push(计算两数(a, c, b));    }    堆栈.push(表达式.charAt(i));    break;   default :    //如果是数字字符或者小数点则转化为数字    posN += 表达式.charAt(i);    //如果下一个字符是运算符则把当前数字压入栈中    d = 表达式.charAt(i+1);    if (!(d != "." && (d>"9" || d<"0"))) {     break;    }    堆栈.push(parseFloat(posN)*_fh);    posN = "";    _fh = 1;   }  }  //扫描完毕，计算栈中乘下数据  do {   b = 堆栈.pop();   c = 堆栈.pop();   a = 堆栈.pop();   堆栈.push(计算两数(a, c, b));  } while (堆栈.length>3);  var ret = Number(堆栈.pop());  if (Err == "除数为零") {   mx.controls.Alert.show("除数为零！", "错误：");  } else if (堆栈.pop() != "@" || isNaN(ret)) {   mx.controls.Alert.show("请检查计算表达式！", "错误：");  }  //返回结果   return ret;  //计算两个数  function 计算两数(a, 运算符, b):Number {   var ret = 0;   if (运算符 == "+") {    ret = a+b;   } else if (运算符 == "-") {    ret = a-b;   } else if (运算符 == "*") {    ret = a*b;   } else if (运算符 == "/") {    if (!b) {     Err = "除数为零";     return Number("");    } else {     ret = a/b;    }   }   return ret;  } }

熊猫发表于 2007-4-4 12:55:00

不是我写的,仅仅只是看的懂一部分,,感谢网友<a href="http://space.flash8.net/bbs/profile-uid-409182.html">ybzjllj</a>

冰封爱 发表于 2007-4-4 22:01:00

有几段素废的。。还可以再简洁一点。。。

猴子很忙 发表于 2007-4-4 22:10:00

4个数算24貌似大二的时候用C写过，递归一下，用不了几行

荷兰猪 发表于 2007-4-4 22:38:00

真长啊....没有特别需要的话...用basic不是更简洁?

⒎哖以後 发表于 2007-4-5 03:28:00

额。。。。。。

半只菜青虫 发表于 2007-4-5 07:45:00

捣蛋鬼 发表于 2007-4-5 08:51:00

伤脑筋啊

卑小鄙 发表于 2007-4-5 10:44:00

（5-1/5）*5=24

fimqad 发表于 2007-4-5 10:52:00

传说中的算牌器

页: [1]

下沙论坛's Archiver

算24点