Консультация № 178615
24.05.2010, 19:52
42.84 руб.
0 1 0

здавствуйте уважаемые эксперты! помогите реализовать программу на Delphi. Дан файл с идентификаторами всего около 200 (например):
asgsg
hgrhrw
hgrasd
qwrhgfhxd
gjedr
jrerjew
qfwqf
azz
zaa

необходимо загрузить идентификаторы из файла и построить бинарное дерево по алгоритму :
1.Выбрать очередной идентификатор из входного файла. Если очередного идентификатора нет, то построение дерева завершено.
2.сделать текущим узлом дерева корневую вершину.
3.сравнить имя очередного идентификатора с именем идентификатора , содержащегося в текущем узле дерева.
4. если имя очередного идентификатора меньше, то перейти к шагу 5, если равно – прекратить выполнение алгоритма (двух одинаковых идентификаторов быть не должно), иначе – перейти к шагу 7.
5. если у текущего узла существует левая вершина, то сделать ее текущим узлом и вернуться к шагу 3, иначе перейти к шагу 6.
6 создать новую вершину , поместить в нее информацию об очередном идентификаторе, сделать эту новую вершину левой вершиной текущего узла и вернуться к шагу 1.
7 если у текущего узла существует правая вершина, то сделать ее текущим узлом и вернуться к шагу 3, , иначе перейти к шагу 8.
8. создать новую вершину, поместить в нее информацию об очередном идентификаторе, сделать эту новую вершину правой вершиной текущего узла и вернуться к шагу 1.
необходимо вывести это деревочерез компонент TreeView.




Приложение:
.

Обсуждение

Неизвестный
26.05.2010, 15:51
общий
вывести дерево через компонент treeview или нарисовать. Очень надеюсь на вашу помощь.
Форма ответа