как писать прогу про деревья ?

[now2]

1Бинарные деревья. Итеративный алгоритм обработки-Преобразование дерева в список в соответствии с симметричным порядком прохождения.
2Бинарные деревья. Рекурсивный алгоритм обработки-Создание списка с значениями элементов, находящимися на заданном уровне дерева

[now2]

вообще ноль в деревьях(((((((( помогите плиз

[min@y™]

матчасть есть?

[now2]

что есть ?

[now2]

вот такаие же как то должны получится проги
Пример реализации задания:

program ds_04;
uses ds_unit;
var t:   ptree;
    cnt: integer;

procedure cnt_node(t:ptree; var cnt:integer);
{ Входы:     t     - бинарное дерево;
  Выходы:    cnt   - кол. элементов в дереве;
  Гл. имена: ptree - тип указателя на дерево;
             llink,rlink - поля связи элемента дерева;
  Функция: Определение кол. эл-тов cnt в дереве t.}
const m=32;                      { Размер стека }
var st:    array[1..m] of ptree;         { Стек }
    sp:    integer;           { Указатель стека }
    p:     ptree;    { Указатель текущего эл-та }
    empty: Boolean;     { Индикатор "Стек пуст" }
begin
    cnt:=0; sp:=0; p:=t;
    repeat
        while p<>nil do
        begin
            inc(sp); st[sp]:=p;
            p:=p^.llink;
        end;
        empty:=sp=0;
        if empty then exit;
        p:=st[sp]; dec(sp);
        inc(cnt);
        p:=p^.rlink;
    until false;
end; {cnt_node}

begin
    gentree(t);
    puttree(t);
    cnt_node(t,cnt);
    writeln('Количество элементов в дереве: ',cnt);
    escwait;
end.

с использованием модуля

[now2]

хоть как нито с ошибками пусть будет

[min@y™]

что есть ?

Матчасть!



Книжка по деревьям, блин! Читал, не?