返回列表下一主題上一主題發帖

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

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 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)