Toán cấp 1 nhờ các a chị giúp! (1 người xem)

[banhia]

có 9 số 6 dùng các phép toán cộng trừ nhân chia để đạt kết quả là 100

 

[hungpecc1]

có 9 số 6 dùng các phép toán cộng trừ nhân chia để đạt kết quả là 100

sao mình test thử không thấy trường hợp nào thỏa mãn nhj ??

Sub Tst()
    Dim Arr
    Dim Tong As String
        Arr = Array("+", "-", "*", "/")
        For Each i1 In Arr
            For Each i2 In Arr
                For Each i3 In Arr
                    For Each i4 In Arr
                        For Each i5 In Arr
                            For Each i6 In Arr
                                For Each i7 In Arr
                                    For Each i8 In Arr
                                        Tong = 6 & i1 & 6 & i2 & 6 & i3 & 6 & i4 & 6 & i5 & 6 & i6 & 6 & i7 & 6 & i8 & 6
                                        If Evaluate(Tong) = [COLOR=#ff0000][B]100[/B][/COLOR] Then
                                            msgbox Tong
                                            GoTo 1
                                        End If
                                    Next
                                Next
                            Next
                        Next
                    Next
                Next
            Next
        Next
1:
End Sub

 

[banhia]

èo! mình cần phép toán cộng trừ nhân chia cơ bản cơ!
Cảm ơn bạn nha!

 

[hungpecc1]

èo! mình cần phép toán cộng trừ nhân chia cơ bản cơ!
Cảm ơn bạn nha!

mình biết là như vậy rồi, với toán cấp 1 phải dùng phương pháp tư duy trừu tương + trực quan sinh đông ==> ở đây là mình muốn test thử xem có kết quả nào thỏa mãn không thôi !!
hix hình như là với 9 số 6 không có cách ghép nào sao cho tổng của nó = 100 thì phải !

 

[banhia]

bạn test thử với kết quả 1000 xem có được ko? mình ko biết test thế nào, vì mình không hiểu được cách của bạn!

 

[banhia]

Mình hiểu rồi! bạn test như thế nào vậy, bạn thử test với 1000 xem sao, giúp mình với!

 

[hungpecc1]

Mình hiểu rồi! bạn test như thế nào vậy, bạn thử test với 1000 xem sao, giúp mình với!

Bạn mở excel lên --> ấn Alt + F11 (vào được cửa sổ VBA ) chọn insert Moudle và đoạn code trên vào , ấn F5 rồi chạy thôi , nếu có kết quả thoả mãn máy tính sẽ báo !

 

[huuthang_bd]

sao mình test thử không thấy trường hợp nào thỏa mãn nhj ??

Sub Tst()
    Dim Arr
    Dim Tong As String
        Arr = Array("+", "-", "*", "/")
        For Each i1 In Arr
            For Each i2 In Arr
                For Each i3 In Arr
                    For Each i4 In Arr
                        For Each i5 In Arr
                            For Each i6 In Arr
                                For Each i7 In Arr
                                    For Each i8 In Arr
                                        Tong = 6 & i1 & 6 & i2 & 6 & i3 & 6 & i4 & 6 & i5 & 6 & i6 & 6 & i7 & 6 & i8 & 6
                                        If Evaluate(Tong) = [COLOR=#ff0000][B]100[/B][/COLOR] Then
                                            msgbox Tong
                                            GoTo 1
                                        End If
                                    Next
                                Next
                            Next
                        Next
                    Next
                Next
            Next
        Next
1:
End Sub

Làm sao thử với code này được. Trong công thức có thể có dấu ngoặc nên bạn không thể liệt kê hết các trường hợp của công thức được.

Về bài toán này tôi tìm thử có 2 đáp án như sau:

=(6+6+6)*6-6-6/6-6/6

=(6+6)*6+6*6-6-(6+6)/6

 

[banhia]

ra đáp án rồi bạn ạ
(6+6+6)*6-6-((6/6)+(6/6)) = 108-6-2=100

 

[Quang_Hải]

ra đáp án rồi bạn ạ
(6+6+6)*6-6-((6/6)+(6/6)) = 108-6-1-1=100

Ở đâu ra 2 con số 1 cho bạn trừ vậy?

 

[siwtom]

Ở đâu ra 2 con số 1 cho bạn trừ vậy?

Thì nó nằm ngủ trong ngoặc đấy thôi?
----------
Ngồi nghĩ thì ra cả đống. Vì có chỗ nào nói là giữa 2 số 6 bắt buộc phải có toán tử số học đâu nhỉ?
Ví dụ dùng 2 phép trừ, chia: (666 - 6) / 6 - (66 - 6) / 6