Бинарное дерево

@Соколиный глаз · Регистрация: 25.07.2014

Студворк — интернет-сервис помощи студентам

Извиняюсь, если все плохо, но вот код, который следует подправить:

Python
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
class Tree:
  def __init__ (self, n):
    self.Name = n
    self.Left, self.Right = None, None
    
  def AddLeft(self, n):
    t = Tree(n)
    if self.Left == None:
      self.Left = t
    else:
      t.Left = self.Left
      self.Left = t
  
  def AddRight(self, n):
    t = Tree(n)
    if self.Right == None:
      self.Right = t
    else:
      t.Right = self.Right
      self.Right = t
  
  def Print(self, n):
    s = ' ' * n
    print(s + 'Имя корня: {0}'.format(self.Name))
    if self.Left != None:
      print(s + 'Левый потомок: {0}'.format(self.Left.Name))
    else:
      print(s + 'Левый потомок: ссылка равна nil.')
    
    if self.Right != None:
      print(s + 'Правый потомок: {0}'.format(self.Right.Name))
    else:
      print(s + 'Правый потомок: ссылка равна nil.')
  
  @classmethod
  def SeachBool(t, n):
    Result = False
    if t != None:
      if t.Name == n:
        Result = True
      else:
        Result = SeachBool(t.Left, n) or SeachBool(t.Right, n)
  
  def SeachSelf(self, n):
    SeachBool(self, t, n)

Ругается в строках: 39, 42, 45.

Образец кода (мною написан):

Pascal
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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
type
  Tree = class
    Name: string;
    Left, Right: Tree;
    
    constructor(n: string);
    begin
      Name := n;
      Left := nil;Right := nil;
    end;
    
    procedure AddLeft(n: string);
    begin
      var t := new Tree(n);
      if Left = nil then
        Left := t
      else
      begin
        t.Left := Left;
        Left := t;
      end;
    end;
    
    procedure AddRight(n: string);
    begin
      var t := new Tree(n);
      if Right = nil then
        Right := t
      else
      begin
        t.Right := Right;
        Right := t;
      end;
    end;
    
    procedure Print(n: integer);
    begin
      var str := ' ' * n;
      WritelnFormat(str + 'Имя корня: {0}', Name);
      if Left <> nil then
        WritelnFormat(str + 'Левый потомок: {0}', Left.Name)
      else
        Writeln(str + 'Левый потомок: ссылка равна nil.');
      
      if Right <> nil then
        WritelnFormat(str + 'Правый потомок: {0}', Right.Name)
      else
        Writeln(str + 'Правый потомок: ссылка равна nil.');
    end;
    
    class function Seach(t: Tree; n: string): boolean;
    begin
      Result := false;
      if t <> nil then
      begin
        if t.Name = n then
          Result := true
        else
          Result := Seach(t.Left, n) or Seach(t.Right, n);
      end;
    end;
    
    function Seach(n: string) := Seach(self, n);
    
    class function SeachT(t: Tree; n: string): Tree;
    begin
      if t = nil then Result := nil
      else if n = t.Name then Result := t
      else 
      begin
        result := SeachT(t.Left, n);
        if result = nil then result := SeachT(t.Right, n);
      end;
    end;
    
    class procedure PrintRecursive(t: Tree; n: integer);
    begin
      if t <> nil then
      begin
        t.Print(n);
        n := n + 3;
        PrintRecursive(t.Left, n);
        PrintRecursive(t.Right, n);
      end;
    end;
    
    class function operator +(s: string; t: Tree): Tree;
    begin
      t.AddLeft(s);
      result := t
    end;
    
    class function operator +(t: Tree; s: string): Tree;
    begin
      t.AddRight(s);
      result := t
    end;
  end;
 
begin
  var T := new Tree('A');
  T := 'B' + T + 'C';
  T.Left := 'D' + T.Left + 'E';
  T.Right := 'F' + T.Right + 'G';
  
  Tree.PrintRecursive(T, 0);
end.

@easybudda · 17.09.2017, 02:21

Сообщение от Volobuev Ilya

Ругается

А так?

Python
1
2
3
4
5
6
7
8
def SeachBool(t, n):
  if t != None:
    if t.Name == n:
      return True
    else:
      return SeachBool(t.Left, n) or SeachBool(t.Right, n)
  else:
    return False

@Соколиный глаз · 17.09.2017, 08:24 **[ТС]**

Python
1
2
    def SeachSelf(self, n):
      return SeachBool(self, n) # ругается тут

@easybudda · 17.09.2017, 17:50

Volobuev Ilya, честно говоря, я и в нужности функции SeachBool сильно сомневаюсь. Лучше возвращать либо сам объект, если ключ совпадает с искомым, либо рекурсивно вызывать для левого/правого поддеревьев, либо возвращать None, если поиск в лист уткнулся...

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@easybudda Модератор 12843 / 7592 / 1766 Регистрация: 25.07.2009 Сообщений: 13,973
	17.09.2017, 17:50
	Volobuev Ilya, честно говоря, я и в нужности функции SeachBool сильно сомневаюсь. Лучше возвращать либо сам объект, если ключ совпадает с искомым, либо рекурсивно вызывать для левого/правого поддеревьев, либо возвращать None, если поиск в лист уткнулся... 1

Бинарное дерево

Решение