http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net%2FData_Structure%2FTree_YoursVB.Net/Data Structure/Tree Yours - История изменений2026-04-06T02:40:58ZИстория изменений этой страницы в викиMediaWiki 1.30.0http://www.vbex.ru/index.php?title=VB.Net/Data_Structure/Tree_Yours&diff=1000&oldid=prev в 16:40, 26 мая 20102010-05-26T16:40:06Z<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>http://www.vbex.ru/index.php?title=VB.Net/Data_Structure/Tree_Yours&diff=1001&oldid=prevAdmin: 1 версия2010-05-26T12:45:43Z<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Our Tree Structure==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Public Class MainClass<br />
Public Shared Sub Main()<br />
Dim tree As Tree = New Tree()<br />
Dim insertValue As Integer<br />
Dim i As Integer<br />
Dim randomNumber As Random = New Random()<br />
For i = 1 To 10<br />
insertValue = randomNumber.Next(100)<br />
Console.Write(insertValue & " ")<br />
tree.InsertNode(insertValue)<br />
Next<br />
Console.WriteLine("Preorder Traversal")<br />
tree.PreorderTraversal()<br />
Console.WriteLine("Inorder Traversal")<br />
tree.InorderTraversal()<br />
Console.WriteLine("Postorder Traversal")<br />
tree.PostorderTraversal()<br />
End Sub<br />
End Class<br />
Public Class TreeNode<br />
Private mLeftNode As TreeNode<br />
Private mData As Integer<br />
Private mRightNode As TreeNode<br />
Public Sub New(ByVal nodeData As Integer)<br />
mData = nodeData<br />
mRightNode = Nothing <br />
LeftNode = Nothing <br />
End Sub <br />
Public Property LeftNode() As TreeNode<br />
Get<br />
Return mLeftNode<br />
End Get<br />
Set(ByVal value As TreeNode)<br />
mLeftNode = value<br />
End Set<br />
End Property <br />
Public Property Data() As Integer<br />
Get<br />
Return mData<br />
End Get<br />
Set(ByVal value As Integer)<br />
mData = value<br />
End Set<br />
End Property <br />
Public Property RightNode() As TreeNode<br />
Get<br />
Return mRightNode<br />
End Get<br />
Set(ByVal value As TreeNode)<br />
mRightNode = value<br />
End Set<br />
End Property <br />
Public Sub Insert(ByVal insertValue As Integer)<br />
If insertValue < mData Then<br />
If mLeftNode Is Nothing Then<br />
LeftNode = New TreeNode(insertValue)<br />
Else<br />
LeftNode.Insert(insertValue)<br />
End If<br />
ElseIf insertValue > mData Then<br />
If RightNode Is Nothing Then<br />
RightNode = New TreeNode(insertValue)<br />
Else<br />
RightNode.Insert(insertValue)<br />
End If<br />
End If<br />
End Sub <br />
End Class <br />
<br />
Public Class Tree<br />
Private root As TreeNode<br />
Public Sub New()<br />
root = Nothing<br />
End Sub " New<br />
Public Sub InsertNode(ByVal insertValue As Integer)<br />
SyncLock (Me)<br />
If root Is Nothing Then<br />
root = New TreeNode(insertValue)<br />
Else <br />
root.Insert(insertValue)<br />
End If<br />
End SyncLock<br />
End Sub<br />
Public Sub PreorderTraversal()<br />
SyncLock (Me)<br />
PreorderHelper(root)<br />
End SyncLock<br />
End Sub <br />
Private Sub PreorderHelper(ByVal node As TreeNode)<br />
If node Is Nothing Then<br />
Return<br />
End If<br />
Console.Write(node.Data & " ")<br />
PreorderHelper(node.LeftNode)<br />
PreorderHelper(node.RightNode)<br />
End Sub <br />
Public Sub InorderTraversal()<br />
SyncLock (Me)<br />
InorderHelper(root)<br />
End SyncLock<br />
End Sub <br />
Private Sub InorderHelper(ByVal node As TreeNode)<br />
If node Is Nothing Then<br />
Return<br />
End If<br />
InorderHelper(node.LeftNode)<br />
Console.Write(node.Data & " ")<br />
InorderHelper(node.RightNode)<br />
End Sub <br />
Public Sub PostorderTraversal()<br />
SyncLock (Me)<br />
PostorderHelper(root)<br />
End SyncLock<br />
End Sub <br />
Private Sub PostorderHelper(ByVal node As TreeNode)<br />
If node Is Nothing Then<br />
Return<br />
End If<br />
PostorderHelper(node.LeftNode)<br />
PostorderHelper(node.RightNode)<br />
Console.Write(node.Data & " ")<br />
End Sub <br />
End Class <br />
<br />
</source></div>Admin