Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: как программировать бинарнаю дереву на VBasic Добавлено: 23.01.09 13:35  

Автор вопроса:  Шавкат
помогите если кто знает программу сортировка массива по возрастанию (методом Уильямса Флойда) бинарная дерева,
нужна сама программа на V.Basic.

Ответить

  Ответы Всего ответов: 25  

Номер ответа: 1
Автор ответа:
 Arseny



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
  Профиль | | #1 Добавлено: 23.01.09 14:01
Палаа-а-ач?! ты где?!

Ответить

Номер ответа: 2
Автор ответа:
 Sharp


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
  Web-сайт: sharpc.livejournal.com
 Профиль | | #2 		Добавлено: 23.01.09 17:02
Мой меч это власть
Мой меч закон!

Приди, Палач!

Ответить

Номер ответа: 3
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #3 		Добавлено: 23.01.09 18:42
Покажите регистрацию сначала

Ответить

Номер ответа: 4
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #4 Добавлено: 23.01.09 19:40
Winand пишет
Покажите регистрацию сначала
Кому, кто и как???

Ответить

Номер ответа: 5
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #5 		Добавлено: 23.01.09 20:21
>Кому, кто и как???
палачу, автор темы и как нибудь так.

Ответить

Номер ответа: 6
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #6 Добавлено: 23.01.09 20:44
  1. (Палач = Executioner) = True
Шавкат может об этом и не знать (имеет право).
Вопрос прозвучал вполне внятно. А искусство связывать слова в самом сложном языке этого мира приходит не сразу (и не всем).

Ответить

Номер ответа: 7
Автор ответа:
 Arseny



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
  Профиль | | #7 Добавлено: 23.01.09 21:52
fAndOrIn пишет:
Шавкат может об этом и не знать (имеет право).
 


а создавать вторую ветку, раз в первой не ответили за целых четыре(!) минуты, имеет? Я конечно понимаю, что невнимание в течении такого длительного времени, вызывает негодование, но все же....

Ответить

Номер ответа: 8
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #8 Добавлено: 23.01.09 22:04
Чел на форуме (а может и в НЕТе) первый раз.
м.б., пытался исправить свои ошибки. Ну не получилось. А теперь что он будет думать о таком гостеприимстве?

Ответить

Номер ответа: 9
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #9 Добавлено: 23.01.09 23:16
http://school87.kubannet.ru/pascal/6_3.html#6325Есть пример на Паскале. Попробовал перевести на васика, но что-то не получилось.
  1. Option Explicit
  2. Option Base 1
  3.  
  4. Sub Piramida()
  5. Dim t%, k%, i%, Y% ' as Integer
  6. Const n% = 10
  7. Dim X() As Integer
  8. ReDim X(n)
  9. For i = 1 To n
  10.   X(i) = Int(Rnd * n)
  11. Next i
  12. For i = 2 To n
  13.  t = i:
  14.  While t <> 1
  15.    k = t \ 2:
  16.    If X(k) >= X(t) Then
  17.      t = 1
  18.    Else
  19.      Y = X(k): X(k) = X(t): X(t) = Y: t = k
  20.    End If
  21.  Wend
  22. Next i
  23. For i = n - 1 To 1 Step -1
  24.  Y = X(i + 1): X(1 + 1) = X(i): X(i) = Y: t = 1:
  25.  While t <> 0
  26.    k = t + t:
  27.    If k > i Then
  28.      t = 0
  29.    Else
  30.      If k < i Then If X(k + 1) > X(k) Then k = k + 1:
  31.      If X(t) >= X(k) Then
  32.        t = 0
  33.      Else
  34.        Y = X(k): X(k) = X(t): X(t) = Y: t = k
  35.      End If
  36.    End If
  37.  Wend
  38. Next i
  39. End Sub

Может быть знает кто, в чем проблема? Жаль, не про QuickSort вопрос...

Ответить

Номер ответа: 10
Автор ответа:
 Arseny



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
  Профиль | | #10 Добавлено: 23.01.09 23:41
fAndOrIn пишет:
А теперь что он будет думать о таком гостеприимстве?

Он будет думать, что митуевцы настолько суровы, что зовут палача при любом удобном случае. :)
А вообще - митуй по сравнению с линуксовыми форумами просто офигенно гостеприимен... Я бы сказал даже, что сам к себе приглашает...

Ответить

Номер ответа: 11
Автор ответа:
 Arseny



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
  Профиль | | #11 Добавлено: 23.01.09 23:49
ребятки, а поиск вообще кто-нибудь пользовал? первая ссылка в яндексе: http://alglib.sources.ru/sorting/heapsort.php (хотя может просто поисковики не могли найти "бинарную дереву"?)
Так как мы предположили, что человек первый раз в нете, взял на себя смелость скачать, разархивировать и даю внутренности:
  1. 'Routines
  2. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  3. 'Процедура для упорядочивания массива пирамидальной сортировкой
  4. '
  5. 'Входные параметры:
  6. '    Arr -   сортируемый массив.
  7. '            Нумерация элементов от 0 до N-1
  8. '    N   -   размер массива
  9. '
  10. 'Выходные параметры:
  11. '    Arr -   массив, упорядоченный по возрастанию.
  12. '            Нумерация элементов от 0 до N-1
  13. '
  14. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  15. Public Sub HeapSort(ByRef Arr() As Double, ByVal N As Long)
  16.     Dim I As Long
  17.     Dim J As Long
  18.     Dim K As Long
  19.     Dim T As Long
  20.     Dim Tmp As Double
  21.  
  22.     If N = 1# Then
  23.         Exit Sub
  24.     End If
  25.     I = 2#
  26.     Do
  27.         T = I
  28.         Do While T <> 1#
  29.             K = T \ 2#
  30.             If Arr(K - 1#) >= Arr(T - 1#) Then
  31.                 T = 1#
  32.             Else
  33.                 Tmp = Arr(K - 1#)
  34.                 Arr(K - 1#) = Arr(T - 1#)
  35.                 Arr(T - 1#) = Tmp
  36.                 T = K
  37.             End If
  38.         Loop
  39.         I = I + 1#
  40.     Loop Until Not I <= N
  41.     I = N - 1#
  42.     Do
  43.         Tmp = Arr(I)
  44.         Arr(I) = Arr(0#)
  45.         Arr(0#) = Tmp
  46.         T = 1#
  47.         Do While T <> 0#
  48.             K = 2# * T
  49.             If K > I Then
  50.                 T = 0#
  51.             Else
  52.                 If K < I Then
  53.                     If Arr(K) > Arr(K - 1#) Then
  54.                         K = K + 1#
  55.                     End If
  56.                 End If
  57.                 If Arr(T - 1#) >= Arr(K - 1#) Then
  58.                     T = 0#
  59.                 Else
  60.                     Tmp = Arr(K - 1#)
  61.                     Arr(K - 1#) = Arr(T - 1#)
  62.                     Arr(T - 1#) = Tmp
  63.                     T = K
  64.                 End If
  65.             End If
  66.         Loop
  67.         I = I - 1#
  68.     Loop Until Not I >= 1#
  69. End Sub

Ответить

Номер ответа: 12
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #12 Добавлено: 24.01.09 20:41
Шавкат, в прошлом году я помогал тут на форуме парню с какой-то деревянной сортировкой.

Посмотри в той теме:
http://www.vbnet.ru/forum/show.aspx?id=167397&page=1
может тебе это нужно, хотя не факт.

Ответить

Номер ответа: 13
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #13 Добавлено: 24.01.09 20:44
"Гостеприимные" митуевцы и в мыслях не допускают, что для ТС русский язык может быть иностранным.

Ответить

Номер ответа: 14
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #14 Добавлено: 24.01.09 20:45
А у Палача походу иммунитет выработался к разного рода фобиям :)

Ответить

Номер ответа: 15
Автор ответа:
 Arseny



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
  Профиль | | #15 Добавлено: 24.01.09 21:12
Smith: А как может выглядеть парень с деревянной сортировкой? ;-)
Smith пишет:
русский язык может быть иностранным.

Русский язык не может быть иностранным. :) Сайты про VB вообще вроде на всех языках есть. У нас тут тоже с примесью албанского...
P.S. Палач по ходу на выездной сессии... машет где-то топором....

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам