Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/30: Рейтинг темы: голосов - 30, средняя оценка - 5.00
1 / 1 / 1
Регистрация: 04.06.2010
Сообщений: 10
1

Поиск по бинарному дереву, построение бинарного дерева

04.06.2010, 18:56. Показов 5583. Ответов 1
Метки нет (Все метки)

Сделал 3 процедуры:
1. строит бинарное дерево
2. рекурсивная процедура помогает 1-ой найти необходимую позицию (она то и неправильно работает)
3. рекурсивная процедура обхода для поиска по бинарному дереву

никак не могу исправить чтобы дерево строилось правильно.
есть type
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
  ptree=^tree;
  tree=record
    id:integer;
    key:string;
    left,right: ptree;
    end;
var
  Form2: TForm2;
     tt: boolean;
     head,root,q,p: ptree;
     cs:integer;
 
procedure preorder (treee: ptree;ls:string); //рекурсивная процедура для поиска по бинарному дереву
begin
  if treee<>nil then //если дерево не пусто, то
  begin
    if ls=treee^.key then (если то, что мы ищем равно key текущего листа, то выводим на стринггрид)
            begin
            Form1.StringGrid1.RowCount:=cs+1;
            Form1.StringGrid1.Cells[0,cs]:=inttostr(treee^.id);
            Form1.StringGrid1.Cells[1,cs]:=bibl[treee^.id].avtor;
            Form1.StringGrid1.Cells[2,cs]:=bibl[treee^.id].name;
            Form1.StringGrid1.Cells[3,cs]:=bibl[treee^.id].izdat;
            Form1.StringGrid1.Cells[4,cs]:=bibl[treee^.id].god;
            //showmessage ('найдено id='+inttostr(treee^.id));
            cs:=cs+1;
            end;
    preorder(treee^.left,ls);
    preorder(treee^.right,ls);
  end;
end;
 
 
procedure vstavka(var l: ptree; k:string);//процедура поиска места для вставки следующего листа - она то и не работает. постоянно указатель на голове и дерево в результате строится неправильно.
begin
  if k>l^.key then begin //если то, что нам нужно вставить больше чем l^.key, то
    if l^.right<>nil then begin //если не пусто идеи вправо
      vstavka(l^.right,k);
      exit;
      end;
    end
  else
    if l^.left<>nil then //иначе влево
      vstavka(l^.left,k);
end;
 
procedure NewTree_avtor(var kol:integer);//построение дерева, пусть для начала только по автору
var sr:integer;
begin
  new(p);
  p^.key:=bibl[1].avtor; //строим головной элемент
  p^.id:=1;
  p^.left:=nil;
  p^.right:=nil;
  head:=p;
  sr:=2;
    while sr<=kol do //kol - текущий размер записей в массиве
    begin
        p:=head; //кидаем указатель на голову
       new(q);
        q^.key:=bibl[sr].avtor; //создаем новый лист, заполняем его поля
        q^.id:=sr;
        q^.left:=nil;
        q^.right:=nil;
        vstavka(p,bibl[sr].avtor); //вызываем процедуру для поиска места дял вставки
          if bibl[sr].avtor<p^.key then //после нахождения места если меньше - идем влево, 
            p^.left :=q
            else
            p^.right:=q; //если больше - вправо
    sr:=sr+1;
    end;
end;
помогите переделать процедуру procedure vstavka, а то когда она рекурсивно обращается сама к себе, то всегда с головы почему то получается.
http://www.188.ru/352352 - полностью весь проект. эти процедуры в unit2
сортировка если что пока не сделана
0
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.06.2010, 18:56
Ответы с готовыми решениями:

Поиск по бинарному дереву целочисленных значений
Здравствуйте! Очень нужна помощь данном, надеюсь что простом, задании. Заранее спасибо!:-[ ...

Итератор по бинарному дереву
Всем привет! Помогите пожалуйста! Пишу бинарное дерево, нужно реализовать итератор по нему. Не...

Построение бинарного дерева на основе не бинарного
В лабораторной работе есть такое задание: Создайте процедуру построения бинарного дерева на основе...

Подключение к бинарному дереву списка
Вот есть такой вот код. Не могу подключить к моему узлу бинарного дерева односвязный список ...

1
1 / 1 / 1
Регистрация: 04.06.2010
Сообщений: 10
24.06.2010, 22:53  [ТС] 2
сам нашел в чем проблема - решил сделав из процедуры вставки - функцию. ну и в процедуре создания дерева немного поменял.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.06.2010, 22:53

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Построение бинарного дерева. Обход дерева
Построить дерево поиска с элементами – числами. С использованием операций Locate и DeleteLeft найти...

Итератор для обхода по бинарному дереву
Кхм. Попытался реализовать итератор для обхода по бинарному дереву... Наткнулся на запару. Дерево...

Довести до ума программу про бинарному дереву
Здравствуйте. Помогите пожалуйста привести до ума задачу: организовать бинарное дерево по заданной...

Построение бинарного дерева
Написать программу построения бинарного дерева с помощью связных структур и поиска в дереве при...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.