Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Бинарное дерево

Автор: Alerna 22.02.2004 18:50

Здравствуйте, у меня проблема с бинарным деревом. Мне надо посчитать сумму введённых элементов и их среднее значение. Как это можносделать? Спасибо за совет.

Автор: Atos 25.02.2004 12:32

Нужна процедура обхода дерева.
Скажем, если нужна сумма элементов дерева {s изначально присваиваем  ноль}

Код

procedure Обход(D:Дерево; var s:real);
begin
if D непусто then
  begin
  Обход(правая ветвь D, s);
  Обход (левая ветвь D, s);
  s:=s+D.Data; {элемент в узле D}
  end;
end;


Конкретные детали зависят от реализации.