Выписать слова в алфавитном порядке Опции

[Даша]

Добрый день! Помогите пожалуйста со следующей задачей:
Дан текстовый файл, состоящий из слов, разделенных пробелами и запятыми. Слова по строкам не переносятся.
Необходимо упорядочить слова в алфавитном порядке с указанием строк, в которых они встречаются. Реализовать
всё надо с помощью деревьев.

[volvo]

По ссылке, которую я привел, ходила? Там приведено описание бинарного дерева. Для твоей задачи я бы сделал так:

const
  StrLen = 15;
type
  T = record
    s: string[StrLen];
    tree: TIntTree; { Это - тип "дерево целых" }
  end;

  TTree = ^TNode;
  TNode = record
    value: T;
    Left, Right: TTree; { Потомки }
  end;

var Root: TTree;

(в принципе, в программе, результаты работы которой я показывал выше, я так и сделал)

Если тебя интересует именно дерево строк -

const
  StrLen = 15;
type
  T = string[StrLen];

  TTree = ^TNode;
  TNode = record
    value: T;
    Left, Right: TTree;
  end;

, дерево будет хранить строки... Но это ничего не даст, потому что надо кроме строк хранить еще информацию...