[开_102]一道趣味算术题

lolmuta

好有意思的題目，但這問題對我最難的地方是要如何找出階乘的全部排列結果(這個是關鍵)
先秀一下我的結果，全結果如附件文檔myAns.rar
只列出最主要的程式碼，附件test.rar有全部的程式碼

1. '初始化
   
2. '
   
3. Private Sub ini_ex()
   
4. '階乘陣列最小的N設為1
   
5. LowestStartNo = 1
   
6. '階乘陣列最小的N的排列的結果為LowestFactorial
   
7. ReDim LowestFactorial(1, 1)
   
8. LowestFactorial(1, 1) = 1
   
9. 
   
10. End Sub

复制代码

1. '1 2 3 ...N 取得所有的排列組合，將結果輸出至result
   
2. 'Parameters:
   
3. 'N - 就是上述的N
   
4. 'Result()  -將結果放到這個變數
   
5.     '這是二維陣列
   
6.     'for example
   
7.     '1 2 3的所有排列組合是 (123) (132) (213)(231)....
   
8.     '那Result的存法就是
   
9.     '(1,1)=(123)的1
   
10.     '(1,2)=(123)的2
    
11.     '(1,3)=(123)的3
    
12.     '(2,1)=(132)的1
    
13.     '(2,2)=(132)的3
    
14.     '以此類推....
    
15. 'HasLastFactorial - 布林值。是否有之前的排列結果。若要找N=5的所有排列組合，如果有N=4的排列組合的資料，將會運算快一些
    
16. 'LastNo - 如果HasLastFactorial為真，有之前的排列結果，那之前排列結果的N即為LastNo,如果HasLastFactorial為假，這個值就沒有意義，可隨便亂填@@
    
17. 'LastFactorial()  - 如果HasLastFactorial為真，這個就是有之前的排列結果,如果HasLastFactorial為假，這個值就沒有意義，可隨便亂填@@
    
18. 'Returns:
    
19. '如果有找1~N的排列組合，則為真，否則為假
    
20. 
    
21. Private Function getFactorial(N As Integer, ByRef Result() As Integer, HasLastFactorial As Boolean, LastNo As Integer, LastFactorial() As Integer) As Boolean

复制代码

1. '以2個1 之間有1個數，2個2 之間有2個數，2個3之間有3個數...為原則，找出由(1,1,2,2,3,3,4,4,5,5,6,6,..N,N) 2*N(N<=8) 個數組成的字符串滿足上述條件的所有組合，將結果輸出到result() as string
   
2. 
   
3. 'Parameters:
   
4. 'N - 就上述的N
   
5. 'Factorial - 1 2 3 ...N的所有排列組合，是二維陣列(第一維是
   
6.     'for example
   
7.     '1 2 3的所有排列組合是 (123) (132) (213)(231)....
   
8.     '那Factorial的存法就是
   
9.     '(1,1)=(123)的1
   
10.     '(1,2)=(123)的2
    
11.     '(1,3)=(123)的3
    
12.     '(2,1)=(132)的1
    
13.     '以此類推....
    
14. 'Result() - 將答案放到這個string
    
15. 
    
16. 'Returns:
    
17. '如果有答案，則為真，否則為否
    
18. Private Function FindAns(N As Integer, Factorial() As Integer, ByRef Result() As String) As Boolean
    

复制代码

1. '開始找答案
   
2. Sub FunQuestiong()
   
3. Call ini_ex
   
4. Dim noData() As Integer
   
5. Dim f1() As Integer
   
6. Dim f2() As Integer
   
7. Dim f3() As Integer
   
8. Dim f4() As Integer
   
9. Dim f5() As Integer
   
10. Dim f6() As Integer
    
11. Dim f7() As Integer
    
12. Dim f8() As Integer
    
13. Dim f9() As Integer
    
14. Dim f10() As Integer
    
15. 
    
16. 
    
17. Dim Ans1()  As String
    
18. Dim Ans2() As String
    
19. Dim Ans3() As String
    
20. Dim Ans4() As String
    
21. Dim Ans5() As String
    
22. Dim Ans6() As String
    
23. Dim Ans7() As String
    
24. Dim Ans8() As String
    
25. Dim Ans9() As String
    
26. Dim Ans10() As String
    
27. 
    
28. 'N=1
    
29. If getFactorial(1, f1(), False, 0, noData) = True Then
    
30.    
    
31.     If FindAns(1, f1, Ans1) Then
    
32.         Call ShowAns(1, Ans1)
    
33.     Else
    
34.         Call ShowNoAns(1)
    
35.     End If
    
36. End If
    
37. 
    
38. 'N=2
    
39. If getFactorial(2, f2(), True, 1, f1) = True Then
    
40.    
    
41.     If FindAns(2, f2, Ans2) Then
    
42.         Call ShowAns(2, Ans2)
    
43.     Else
    
44.         Call ShowNoAns(2)
    
45.     End If
    
46. End If
    
47. 'N=3
    
48. If getFactorial(3, f3(), True, 2, f2) = True Then
    
49.    
    
50.     If FindAns(3, f3, Ans3) Then
    
51.         Call ShowAns(3, Ans3)
    
52.     Else
    
53.         Call ShowNoAns(3)
    
54.     End If
    
55. End If
    
56. 'N=4
    
57. If getFactorial(4, f4(), True, 3, f3) = True Then
    
58.    
    
59.     If FindAns(4, f4, Ans4) Then
    
60.         Call ShowAns(4, Ans4)
    
61.     Else
    
62.         Call ShowNoAns(4)
    
63.     End If
    
64. End If
    
65. 
    
66. 'N=5
    
67. If getFactorial(5, f5(), True, 4, f4) = True Then
    
68.    
    
69.     If FindAns(5, f5, Ans5) Then
    
70.         Call ShowAns(5, Ans5)
    
71.     Else
    
72.         Call ShowNoAns(5)
    
73.     End If
    
74. End If
    
75. 'N=6
    
76. If getFactorial(6, f6(), True, 5, f5) = True Then
    
77.    
    
78.     If FindAns(6, f6, Ans6) Then
    
79.         Call ShowAns(6, Ans6)
    
80.     Else
    
81.         Call ShowNoAns(6)
    
82.     End If
    
83. End If
    
84. 'N=7
    
85. If getFactorial(7, f7(), True, 6, f6) = True Then
    
86.    
    
87.     If FindAns(7, f7, Ans7) Then
    
88.         Call ShowAns(7, Ans7)
    
89.     Else
    
90.         Call ShowNoAns(7)
    
91.     End If
    
92. End If
    
93. 
    
94. 'N=8
    
95. If getFactorial(8, f8(), True, 7, f7) = True Then
    
96.    
    
97.     If FindAns(8, f8, Ans8) Then
    
98.         Call ShowAns(8, Ans8)
    
99.     Else
    
100.         Call ShowNoAns(8)
     
101.     End If
     
102. End If
     
103. 
     
104. 
     
105. 
     
106. 'N=9
     
107. If getFactorial(9, f9(), True, 8, f8) = True Then
     
108.    
     
109.     If FindAns(9, f9, Ans9) Then
     
110.         Call ShowAns(9, Ans9)
     
111.     Else
     
112.         Call ShowNoAns(9)
     
113.     End If
     
114. End If
     
115. 
     
116. 'if u have good computer u can try run N=10
     
117. ''N=10
     
118. 'If getFactorial(10, f10(), True, 9, f9) = True Then
     
119. '
     
120. '    If FindAns(10, f10, Ans10) Then
     
121. '        Call ShowAns(10, Ans10)
     
122. '    Else
     
123. '        Call ShowNoAns(10)
     
124. '    End If
     
125. 'End If
     
126. Call writeTxt
     
127. 
     
128. End Sub

复制代码

zoopark

飘过飘过，学习了