Guest
Новичок
|
   
нужно сделать функцию которая рекурсивно удаляет элемент из бинарного дерева кто может помочь ?
есть UNIT с некоторыми функциями здесь :
внешняя ссылка удалена
а также алгоритм :
Algorithm Delete(element e, tree t)
This returns the original tree with e removed
1. If t is empty return t
2. If e > root node element
2.1 Set tnew = Delete(e, right subtree of t)
2.2 Set the right subtree of t to tnew
3. If e < root node element
3.1 Set tnew = Delete(e, left subtree of t)
3.2 Set the left subtree of t to tnew
4. (e equals root node element)
If left subtree of t is empty
4.1 Return right subtree of t
5. If right subtree of t is empty
5.1 Return left subtree of t
6. (both subtrees are non-empty)
Get smallest element, s, in right subtree
7. Change root node element from e to s
8. Set tnew = Delete(s, right subtree of t)
9. Set the right subtree of t to tnew
10. Return t
но как все это селать на паскале ?
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 25 июля 2005 21:20 | IP
|
|
Guest
Новичок
|
Такую программу иожете найти здесь: внешняя ссылка удалена
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 26 мая 2007 17:02 | IP
|
|
Sedjj
Новичок
|
Здравствуйте!!!!!
Помогите пожалуйста решить задачку))))
Имеется n населенных пунктов, перенумерованные от 1 до n(n-10). Некоторые пары пунктов присоединены к дорогам. Определить, можно ли попасть по этим дорогам из 1-го пункта в n-й. Информация о дорогах задается в виде последовательности пар чисел i и j (i<j), указывающих, что i-й и j-й пункты соединены дорогой; признак конца этой последовательности – пара нулей.
Ее надо решить при помощи РЕКУРСИИ!!!!!!!
За ранее спасибо)))
|
Всего сообщений: 7 | Присоединился: ноябрь 2009 | Отправлено: 16 нояб. 2009 20:22 | IP
|
|
|
Форум
паскаль рекурсивное удаление
