2至10个数，使用+，-，×，/，并运算=常数的程序

sheng_jianguo

　　有已知的几个有次序数（2至10个，每个数字≥1，≤99）（比如　9　８　７　６　５　４　３　２　１　），在数字间有空的地方填上适当的+，-，*，/，( )，使填后的算式=已知的常数（比如2009），不填处则认为进行“并”运算，即把两个数合起来（比如7　６＝７６），有这样简单程序能把所有情况都找出来吗？ （给出的程序最好经过考证，能算出具体结果）

wayne

要求要什么程序语言啊

gxqcn

包不包括逗号运算符本身啊？（就是 C 语言规定的，值为最后那条语句）

这类算法我没做过，只是帮大家问一下，呵呵。

sheng_jianguo

包不包括逗号运算符本身啊？（就是 C 语言规定的，值为最后那条语句）

gxqcn 发表于 2009-9-16 10:41

不包括逗号运算符本身。

sheng_jianguo

要求要什么程序语言啊
wayne 发表于 2009-9-16 10:32

什么程序语言都行，最好用常用的C 语言或FORTRAN语言。

wayne

大致的想法就是往字符串987654321里插入运算符
然后将新字符串解释为一条命令。

这个用Bash和Tcl里的expr可以实现

也可以用Scilab里的evstr， Mathematica里的ToExpression

wayne

x**y是不是就表示$x^y$

sheng_jianguo

x**y是不是就表示$x^y$
wayne 发表于 2009-9-16 13:51

不用考虑两个以上运算符组合运算（只需考虑+,-,*,/四种运算），当然能包括X**Y(即X^Y)最好了。

northwolves

老以前写的VBA的例子，不加括号的，仅供参考：

1. Sub calculate(ByVal target As Long, ParamArray s())
   
2.     Dim t As String, v As String, sign, temp As String
   
3.     Dim i As Long, j As Long, k As Long, n As Long, num As Long
   
4.     t = Join(s, " ")
   
5.     sign = Array("+", "-", "*", "/", " ")
   
6.     num = 5 ^ UBound(s)
   
7.     For i = 0 To num - 1
   
8.         k = i
   
9.         temp = s(0)
   
10.         For j = 1 To UBound(s)
    
11.             temp = temp & sign(k Mod 5) & s(j)
    
12.             k = k \ 5
    
13.         Next
    
14.         temp = Replace(Trim(temp), " ", "")
    
15.         If Abs(Evaluate(temp) - target) < 10 ^ -5 Then
    
16.             n = n + 1
    
17.             Debug.Print n & "."; vbTab; temp & "=" & target
    
18.         End If
    
19.     Next
    
20.     MsgBox n & " records were found."
    
21. End Sub
    
22. 
    
23. Sub main()
    
24.     calculate 2009, 9, 8, 7, 6, 5, 4, 3, 2, 1
    
25. End Sub
    
26. 
    

复制代码

返回：

1.    9*8-7+6*54*3*2*1=2009
2.    9+8*7+6*54*3*2*1=2009
3.    9*8-7+6*54*3*2/1=2009
4.    9+8*7+6*54*3*2/1=2009

mathe

http://bbs.emath.ac.cn/viewthrea ... ;fromuid=20#pid9081
中我的程序可以处理只有加减乘除的情况.
不过这里等于又添加了一层连接运算.使得情况更加复杂了.