這題目我不會 拜託幫忙

sss86523

各位大大，我目前高一，剛接觸vb，略懂皮毛
之後想參加技藝競賽，所以有做一些題目，但

這題一直想不出來，請各位幫幫忙，題目如下

二帕斯卡三角形
由輸入盒輸入一整數，為三角形的層數如5則5層，三角形的數列均由前一層
的數字所產生最外最上均為1，裡面則由前兩項的盒所產生成為直角三角形即可...

瀏覽完整內容，請先 註冊 或 登入會員

k50402k

如果想參加技藝競賽這點程度的題目自己解不出來是不行的唷XD
不過這裡你沒PO出自己嘗試的過程
我只給提示
雙陣列當然是OK，不外乎就是迴圈怎麼跑而已

不過要是我看到第一時間會想到的是
一個字串+一個陣列
配合split 跟 join
當然甚麼方法都可以，反正技藝競賽是比速度不是比效率就是了

陣列 = split(string,字串)
把string用 字串 分割放入陣列中
...

瀏覽完整內容，請先 註冊 或 登入會員

ahway9988

那下一組數字是什麼? 150051 還是 15101051?

sss86523

ahway9988 發表於 2013-4-28 07:50 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

那下一組數字是什麼? 150051 還是 15101051?

150051  他說要直角三角形

ahway9988

如果沒有說明要指定用什麼方法寫出來話
是我會想用A跟B陣列(假定)
A陣列記上一組數
B陣列記新產生的數
數字前後都加上0,即010
記入陣列A(初始值)
配合迴圈使用取得A(i)與A(i+1)的和記入陣列B並於text物件列出數字
(和取個位數用Left指令)
最後陣列B值轉移至陣列A
以此類推

所謂以此類推也是利用迴圈使用,建議使用For...Next迴圈
...

瀏覽完整內容，請先 註冊 或 登入會員

k50402k

既然樓上都講出作法了
我就提供另一種吧XD
=========================================
如果有學過排列組合中的 組合
用組合的解法會更容易唷
C X Y (C X 取 Y)  = X! / ((X-Y)! * Y!)
X為第幾層，Y為該層的第幾個 (都從0開始)

以第4層來舉例好了 1 4 6 4 1
第0個跟第4個 = C 4 0 = C 4 4 = 1
...

瀏覽完整內容，請先 註冊 或 登入會員

bauann

剛好看到下面這篇，也許可以參考一下

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

ahway9988

1. Dim A() As Integer, B() As Integer
   
2. Dim VarCount As Integer
   
3. Dim VarString As String
   
4. 
   
5. Private Sub Form_Load()
   
6.     Form1.AutoRedraw = True
   
7.     VarCount = 10 '直角三角型高的值
   
8.     ReDim A(VarCount + 1) As Integer
   
9.     ReDim B(VarCount + 1) As Integer
   
10.     A(0) = 0
    
11.     A(1) = 1
    
12.     A(0) = 0
    
13.     Print "1"
    
14.     For i = 1 To VarCount
    
15.         B(0) = 0
    
16.         VarString = ""
    
17.         For j = 0 To i
    
18.             B(j + 1) = Right(A(j) + A(j + 1), 1)
    
19.             VarString = VarString & B(j + 1)
    
20.         Next
    
21.         Print VarString
    
22.         B(VarCount + 1) = 0
    
23.         For k = 0 To VarCount + 1
    
24.             A(k) = B(k)
    
25.         Next
    
26.     Next
    
27. End Sub

複製代碼

樓上提供的好像是C++版的
我貼上VB6版的
...

瀏覽完整內容，請先 註冊 或 登入會員

sss86523

ahway9988 發表於 2013-4-29 05:43 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

樓上提供的好像是C++版的
我貼上VB6版的

很謝謝你
redim的意思是指 使用者輸入數字後 重新宣告 士這樣嗎= =

k50402k

1. Public Class Form1
   
2.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
3.         Dim no As Integer = Val(TextBox2.Text)
   
4.         TextBox1.Text = ""
   
5.         For i = 0 To no - 1
   
6.             For j = 0 To i
   
7.                 TextBox1.Text &= nn(i) / (nn(i - j) * nn(j)) & " "
   
8.             Next
   
9.             TextBox1.Text &= vbNewLine
   
10.         Next
    
11.     End Sub
    
12. 
    
13.     'N! (階層)
    
14.     Function nn(ByVal n As Long) As Long
    
15.         If n < 2 Then
    
16.             Return 1
    
17.         Else
    
18.             Return n * nn(n - 1)
    
19.         End If
    
20.     End Function
    
21. End Class

複製代碼

利用組合的寫法
副程式部分，利用了遞迴的概念
如果不懂可以改用迴圈的寫法代替
(1 連乘到 N  例如， 4! = 1*2*3*4)
...

瀏覽完整內容，請先 註冊 或 登入會員