　暱稱: 熱狗慶

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2021-7-27 01:12 | 只看該作者

[發問] 請問堆積排序遞迴完全二元樹的範例如何修正

本帖最後由 singo1232001 於 2021-7-27 01:21 編輯

小弟目前在學演算法
因為非本科,許多概念要重新學習
先參考了其他語言的寫法改寫成VBA
正好練習建構概念

但當中遇到一個問題計算"葉子節點位"時會超過陣列大小
問題在堆積排序遞迴.Function heapify 裡面的註解位置
只要把這四行
If c1 > n Or c2 > n Then
heapify = tree
Exit Function
End If
取消掉就會出錯

原始的範例程式上並沒有需要另外建置這段,此相關的問題監看後(原始範例設6  第三次遞迴時,C1算到7)

由於也是剛開始試著寫 Function 沒多久 ,有很多不會寫的地方

若有語法不對概念錯誤原則錯誤的部分煩請高手們指點一下

這份檔案如何修改比較符合原始範本的想法呢? (檔案內有youtube的影片連結可以參考)

堆積排序堆排序堆樹完全二元樹.zip (405.39 KB)

樓主熱帖

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2021-7-27 08:01 | 只看該作者

回復 1# singo1232001
自己回復自己問題
找到問題所在
原因在於此題AB兩者之間有相關性,他會先用A判斷B是否異常,而無法一起同時 if A and B 一起判斷
步驟改為 if A =true then :if B=true then xxxx
避免B本身異常

另外附上檔案參考

堆積排序堆排序堆樹完全二元樹.zip (802.22 KB)

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

3^#

發表於 2021-7-28 00:34 | 只看該作者

回復 2# singo1232001

感謝分享

'一個從10變成1的遞迴(台) 遞歸(陸)，我修改如下

Sub 基礎遞迴測試()
Debug.Print Time
Debug.Print factorial(10) & "END"
End Sub

Function factorial(n)
Debug.Print n
If n > 1 Then factorial = factorial(n - 1)
End Function

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

4^#

發表於 2021-7-28 04:47 | 只看該作者

本帖最後由 n7822123 於 2021-7-28 04:51 編輯

回復 2# singo1232001

原因在於此題AB兩者之間有相關性,他會先用A判斷B是否異常,而無法一起同時 if A and B 一起判斷
步驟改為 if A =true then :if B=true then xxxx
避免B本身異常

VB6是比較舊的語法摟~ IF A and B then .....

程式會 A 跟 B都先判斷，再用And邏輯計算，不管 A 是 True 還是 False

VB.Net 幾乎都用 AndAlso 了(要用And也是可以)，亦即前面先判斷，前面若為 False 則不往後判斷

等同你拆兩行寫~ 你可以用以下程式分出區別，在VBA會跳出錯誤，在VB.Net 用AndAlso不會跳錯誤

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

5^#

發表於 2021-7-28 04:57 | 只看該作者

本帖最後由 n7822123 於 2021-7-28 05:01 編輯

回復 2# singo1232001

看你用遞歸寫階層函數

那我來考考你~ 如何只使用1個 For 迴圈，且不能用乘法運算子 "*"

只靠加法運算子，寫出一個計算階層的函數

Ex:
輸入參數 1,5 會反饋 120 (1*2*3*4*5)
輸入參數2,6 會反饋 720 (2*3*4*5*6)

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2021-7-28 09:54 | 只看該作者

本帖最後由 singo1232001 於 2021-7-28 10:05 編輯

Function addZ(m, n)
If m = 0 Then Exit Function
If i <= n Then addZ = addZ(m + (-1), n) + n
End Function
Function Mu(m, n)
If n = m Then
Mu = m
Else
Mu = addZ(m, Mu(m + 1, n))
End If
End Function
Sub main()
Debug.Print Mu(2, 6)
End Sub

複製代碼

回復 5# n7822123

這道題目真好有夠刺激

直接突破我的盲腸

我目前是亂寫的概念上還是有問題

解題讓我更加熟悉遞迴的玩法

還獲得了許多的思路感謝感謝

目前我的答案有兩個缺點 1.找不到地方插入迴圈 2.用上了一個負號

研究了三個小時多堅持不下去了

求大神解答

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

7^#

發表於 2021-7-28 12:11 | 只看該作者

回復 6# singo1232001

你的答案也不錯，用了兩個遞歸~

Function Factorial(A, B) As Long
Dim S&
If A > B Then Factorial = 1: Exit Function
For i = 1 To A
S = S + Factorial(A + 1, B)
Next i
Factorial = IIf(S = 0, 1, S)
End Function

Sub Test()
MsgBox Factorial(2, 6)
End Sub

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

singo1232001