日誌2012-04-02 20:01
【VB6】巴斯卡三角形作者：解凍豬腳
| xCy | y=1 | y=2 | y=3 | y=4 | y=5 | y=6 | y=7 | y=8 | y=9 | y=10 | y=11 | y=12 | y=13 | y=14 | y=15 | y=16 |
| x=1 | 1 | 1 | ||||||||||||||
| x=2 | 1 | 2 | 1 | |||||||||||||
| x=3 | 1 | 3 | 3 | 1 | ||||||||||||
| x=4 | 1 | 4 | 6 | 4 | 1 | |||||||||||
| x=5 | 1 | 5 | 10 | 10 | 5 | 1 | ||||||||||
| x=6 | 1 | 6 | 15 | 20 | 15 | 6 | 1 | |||||||||
| x=7 | 1 | 7 | 21 | 35 | 35 | 21 | 7 | 1 | ||||||||
| x=8 | 1 | 8 | 28 | 56 | 70 | 56 | 28 | 8 | 1 | |||||||
| x=9 | 1 | 9 | 36 | 84 | 126 | 126 | 84 | 36 | 9 | 1 | ||||||
| x=10 | 1 | 10 | 45 | 120 | 210 | 252 | 210 | 120 | 45 | 10 | 1 | |||||
| x=11 | 1 | 11 | 55 | 165 | 330 | 462 | 462 | 330 | 165 | 55 | 11 | 1 | ||||
| x=12 | 1 | 12 | 66 | 220 | 495 | 792 | 924 | 792 | 495 | 220 | 66 | 12 | 1 | |||
| x=13 | 1 | 13 | 78 | 286 | 715 | 1287 | 1716 | 1716 | 1287 | 715 | 286 | 78 | 13 | 1 | ||
| x=14 | 1 | 14 | 91 | 364 | 1001 | 2002 | 3003 | 3432 | 3003 | 2002 | 1001 | 364 | 91 | 14 | 1 | |
| 略 | - | - | - | - | - | - | - | - | - | - | - | - | - | - | - | - |
Dim tmp As Integer '預先宣告一個叫做tmp的整數用來循環 Private Function psc(x, y) If y = 0 Then psc = 0 '當要丟出第"0"個數字的時候總是傳回0 ElseIf y = 1 Then psc = 1 '當要丟出第"1"個數字的時候總是傳回1 ElseIf x = y - 1 Then psc = 1 '當第x行的第y行中，y=x+1(也就是要求某某行的最後一個數字)時，總是傳回1 Else psc = psc(x - 1, y - 1) + psc(x - 1, y) '其他情況則傳回"第(x-1)行的第(y-1)個數字"與"第(x-1)行的第y個數字"的和 End If End FunctionPrivate Sub Text1_Change() Text2.Text = "" For tmp = 1 To Val(Text1.Text) Text2.Text = Text2.Text + Str(psc(Val(Text1.Text), tmp)) + "," Next Text2.Text = Text2.Text + Str(psc(Val(Text1.Text), Val(Text1.Text) + 1)) If Text1.Text = "" Then Text2.Text = "" End If End Sub |
| xCy | y=0 | y=1 | y=2 | y=3 | y=4 | y=5 | y=6 | y=7 | y=8 |
| x=1 | 0 | 1 | 1 | ||||||
| x=2 | 0 | 1 | 2 | 1 | |||||
| x=3 | 0 | 1 | 3 | 3 | 1 | ||||
| x=4 | 0 | 1 | 4 | 6 | 4 | 1 | |||
| x=5 | 0 | 1 | 5 | 10 | 10 | 5 | 1 | ||
| 略 |
- | - |
- |
- |
- |
- |
- |
- |
- |
2012-04-07 23:06解凍豬腳：ㄎㄎ
2012-04-07 23:51解凍豬腳：OK 3Q[E16]
2012-04-07 23:57解凍豬腳：當然 C語言性能什麼的幾乎都比VB還要好
不過C語言太難我都看不懂[e42]
2012-04-07 23:57解凍豬腳：這我知道~很多都是調用API來的
例如ReadProcessMemory
2012-04-08 00:05解凍豬腳：C/C++才算是吧[e34]
2012-04-08 12:34解凍豬腳：那這我等有空再來研究看看好了[e5]
2012-04-08 12:38解凍豬腳：我連C++的基礎都只有打一半而已[e36]
2012-04-08 12:42解凍豬腳：哈 不過這壓力也比較不會那麼大
2012-04-27 20:14解凍豬腳：啊??!如果有問題是歡迎問的 我現在國三
6冊也都教完了應該沒什麼問題
2012-04-28 14:36解凍豬腳：可是你突然叫我教
我不知道從何開始 因為課本上面就很夠了
不然你問我答 這樣子比較好
2012-04-28 15:04解凍豬腳：這種東西還是不要太早搶著學
我當初小六的時候是全科都第一
天天在那邊想說不知道國中的數學會教什麼
結果到後來還是有往下掉
不過如果你真的很想要知道國中數學在教什麼
可以去網路上查查看
2012-04-28 15:10解凍豬腳：大致上國中在教的數學有這些：
正負數加減乘除以及四則運算、
最大公因數、最小公倍數、因數、倍數、
圖形座標、一元一次方程式、科學記號、一元一次不等式、
函數及函數圖形、二元一次聯立方程式、一元二次方程式、
多項式乘除、多項式的公式、等差數列、
等差級數、商高定理(勾股定理)、
三角形的內心外心與重心、圖形推理、
根號的運算、統計圖表、圓形或三角形的性質等等。
2012-04-28 15:11解凍豬腳：基本上國中的根號運算部分
只會教到一般用到的二次根號(平方根)
2012-04-28 15:16解凍豬腳：至於高中數學的話我是在資優班裡面有學過一點點
沒錯的話高中數學應該是有對數、圓方程式之類的
不過因為我也還沒上高中所以不太清楚
2012-04-28 18:05解凍豬腳：等我把你教到會為止你也早就國中畢業了
我教人是只教題目不教課綱的
2012-08-15 16:13解凍豬腳：ㄏㄏㄏ
2012-08-28 16:13解凍豬腳：頗ㄏ
我很不喜歡就是那種｢只想學新的東西｣的態度，
因為這樣子一看就知道絕對不是完全出自於興趣，
教起來絕對會有一堆問題產生。
2013-01-24 18:22解凍豬腳：沒有差
LINE