在下面算式中,添上两个括号,圈掉一个运算符号,使等式成立.9*8+7*6-5*4+3*2+1=2003
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 19:45:30
![在下面算式中,添上两个括号,圈掉一个运算符号,使等式成立.9*8+7*6-5*4+3*2+1=2003](/uploads/image/z/4519788-60-8.jpg?t=%E5%9C%A8%E4%B8%8B%E9%9D%A2%E7%AE%97%E5%BC%8F%E4%B8%AD%2C%E6%B7%BB%E4%B8%8A%E4%B8%A4%E4%B8%AA%E6%8B%AC%E5%8F%B7%2C%E5%9C%88%E6%8E%89%E4%B8%80%E4%B8%AA%E8%BF%90%E7%AE%97%E7%AC%A6%E5%8F%B7%2C%E4%BD%BF%E7%AD%89%E5%BC%8F%E6%88%90%E7%AB%8B.9%2A8%2B7%2A6-5%2A4%2B3%2A2%2B1%3D2003)
在下面算式中,添上两个括号,圈掉一个运算符号,使等式成立.9*8+7*6-5*4+3*2+1=2003
在下面算式中,添上两个括号,圈掉一个运算符号,使等式成立.
9*8+7*6-5*4+3*2+1=2003
在下面算式中,添上两个括号,圈掉一个运算符号,使等式成立.9*8+7*6-5*4+3*2+1=2003
(9*8+76-5)*(4+3)*2+1=2003
【9*(8+7*6)-5】*4+3*21百度地图
Private Sub Command1_Click()
Dim wz%(20)
Text2 = ""
t = Text1.Text
t = Replace(t, " ", "") & " "
u = t
t = Replace(t, "+", " ")
t = Replace(t, "-", " ")
t = Rep...
全部展开
Private Sub Command1_Click()
Dim wz%(20)
Text2 = ""
t = Text1.Text
t = Replace(t, " ", "") & " "
u = t
t = Replace(t, "+", " ")
t = Replace(t, "-", " ")
t = Replace(t, "*", " ")
t = Replace(t, "/", " ")
j = 0: wz(j) = 0
For i = 2 To Len(t)
If Mid(t, i, 1) = " " Then j = j + 1: wz(j) = i
Next i
For i = 0 To j - 2
For k = i + 2 To j
y = ScriptControl1.Eval(Mid(u, wz(i) + 1, wz(k) - wz(i) - 1))
If y < 0 Then y = "|" & (0 - y)
Label1.Caption = Left(u, wz(i)) & y & Mid(u, wz(k), wz(j) - wz(k))
Call wkh
Next k
Next i
End Sub
Private Sub wkh()
Dim wz%(20)
Text2 = ""
t = Label1.Caption
t = Replace(t, " ", "") & " "
u = t
t = Replace(t, "+", " ")
t = Replace(t, "-", " ")
t = Replace(t, "*", " ")
t = Replace(t, "/", " ")
j = 0: wz(j) = 0
For i = 2 To Len(t)
If Mid(t, i, 1) = " " Then j = j + 1: wz(j) = i
Next i
u = Replace(u, "|", "-")
For i = 0 To j - 2
For k = i + 2 To j
u1 = Left(u, wz(i)) & "(" & Mid(u, wz(i) + 1, wz(k) - wz(i) - 1) & ")" & Mid(u, wz(k), wz(j) - wz(k))
y = ScriptControl1.Eval(u1)
If Abs(y - 2003) < 100 Then Print u1; "="; y
Text2 = Text2 & u1 & vbCrLf
Next k
Next i
End Sub
Private Sub Form_Load()
ScriptControl1.Language = "VBScript"
End Sub
经过上面的程序逐个删除一个符号,运算得到2003的唯一解。
收起