Pascal

Вопрос

Как создать дерево с неопределенным количеством ветвей, чтобы самому в процессе работы задавать их количество?

Ответ

Для каждого узла дерева создаешь динамический список, в котором хранишь адреса дочерних к данному узлов.

Главное — корректно освобождать память и не запутаться какой указатель куда указывает :)

Из конференции Expert_FAQ

TYPE
UK=^DER;
DER=RECORD
INF:INTEGER;
LEFT:UK;
RIGHT:UK;
END;
VAR
ROOT,P,Q:UK;

а потом вводите(читаете) нужное значение и включаете в нужное место :) Если нужен алгоритм формирования дерева.

moorka_ru