Загрузка бинарного дерева в восходящем порядке из файла целых чисел в Delphi

Delphi , Синтаксис , Деревья

может быть выполнена с помощью следующего кода:

program LoadBinaryTree;
{$APPTYPE CONSOLE}

type
  TNode = ^TNodeRecord;
  TNodeRecord = record
    Value: Integer;
    Left, Right: TNode;
  end;

var
  File: TextFile;
  Node, TempNode: TNode;
  Value: Integer;

procedure LoadTree(Node: TNode; File: TextFile);
begin
  if not Eof(File) then
  begin
    Read(File, Value);
    New(Node);
    Node^.Value := Value;
    Node^.Left := nil;
    Node^.Right := nil;
    LoadTree(Node^.Left, File);
    LoadTree(Node^.Right, File);
  end;
end;

begin
  Assign(File, 'data.txt');
  Reset(File);
  New(Node);
  LoadTree(Node, File);
  Close(File);
end.

В этом коде сначала объявляются типы данных для узлов дерева и файла. Затем объявляются переменные для узла, временного узла, значения и файла. Далее определяется процедура LoadTree, которая принимает узел и файл в качестве параметров и загружает дерево в восходящем порядке из файла. В основной части программы создается новый узел, открывается файл, считываются данные из файла и загружаются в дерево с помощью процедуры LoadTree. finally, файл закрывается.

Пример файла data.txt:

1
5
9
20
58
95
1
3
8

Результат выполнения программы:

1
5
9
20
58
95
1
3
8

Обратите внимание, что этот код не учитывает дубликаты значений в файле. Если вам нужно исключить дубликаты, вам придется добавить дополнительную логику в процедуру LoadTree.

Также стоит отметить, что этот код не проверяет наличие ошибок при открытии файла или чтении данных из него. В реальном приложении вам следует добавить проверки на наличие ошибок и обрабатывать их соответствующим образом.

Создано по материалам из источника по ссылке.

В приведенном коде на языке программирования Pascal (Delphi) демонстрируется процедура загрузки бинарного дерева в восходящем порядке из файла целых чисел, где каждое значение представляет собой узел дерева.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Деревья ::