VPF::построить двоичное дерево - Форум программистов

GOSHA_KOF

Дата 8.12.2006, 23:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 8.12.2006

Репутация: нет
Всего: нет

В файле N целых чисел в двоичной системе счисления (M бит каждое). Построить двоичное дерево, в котором числам соответствуют листья дерева, а путь по дереву определяет значение информационного поля этого листа.

Нужно решить эту задачу.

Не понятно то как организовать пути по веткам(как показано в примере)??????????

Присоединённый файл ( Кол-во скачиваний: 13 )

______.JPG 7,79 Kb

TaNK

Дата 8.12.2006, 23:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 669
Регистрация: 29.10.2006
Где: Краснодар

Репутация: нет
Всего: 1

Цитата(GOSHA_KOF @ 8.12.2006, 23:00)

я сильно подзабыл работу с деревьями...но могу привести парочку примеров, в универе когда стряпал

Код


{Тема: Двоичные деревья.
 Описать function, которая подсчитывает число вершин на N-ом уровне непустого
 дерева. (корень вершина 0-го уровня)}

program trees;
type
     Tree_ptr=^Tree;
     Tree=record
                info : integer;
                nur : integer;
                L,R : tree_ptr;
          end;

var
     T : tree_ptr;
     N : integer;
     p,q : tree_ptr;
     kol,c,u,i,y : integer;

function KolVerUrN(T : tree_ptr; N : integer):integer;
var
     s : integer;

procedure obhod(T : tree_ptr; N : integer);
begin
     if T<>nil then
     begin
          if T^.nur=N then s:=s+1;
          obhod(T^.L,N);
          obhod(T^.R,N);
     end;
end;
begin
     s:=0;
     obhod(T,N);
     KolVerUrN:=s;
end;

begin
     write('Vvedite kolichestvo elementov dereva kol=');
     readln(kol);

     writeln('Vvedite elementy dereva dvoichnogo poiska :');
     readln(c);
     new(T);
     with T^ do
     begin
          info:=c;
          nur:=0;
          L:=nil;
          R:=nil;
     end;

     readln(c);
     for i:=2 to kol do
     begin
          p:=T;
          u:=0;
          while p<>nil do
          begin
               q:=p;
               if c<p^.info then
               begin
                    p:=p^.L;
                    u:=u+1;
               end
                            else
               begin
                    p:=p^.R;
                    u:=u+1;
               end;
          end;

          new(p);
          with p^ do
          begin
               info:=c;
               nur:=u;
               L:=nil;
               R:=nil;
          end;

          if c<q^.info then q^.L:=p
                       else q^.R:=p;

          if i<>kol then readln(c);
     end;

     write('Vvedite nomer urovnya N=');
     readln(N);

     y:=KolVerUrN(T,N);
     write('Kolichestvo vershin ',N,'-m urovne ravno ',y);
     readln;
end.

может поможет

--------------------

Oracle 11.2.0.3.0
FireBird 1.0-2.5

GOSHA_KOF

Дата 12.12.2006, 20:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 8.12.2006

Репутация: нет
Всего: нет

спасибо, но я уже решил!

Если нужно, то могудать решение.

TaNK

Дата 12.12.2006, 21:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 669
Регистрация: 29.10.2006
Где: Краснодар

Репутация: нет
Всего: 1

Цитата(GOSHA_KOF @ 12.12.2006, 20:40)

спасибо, но я уже решил!

Если нужно, то могудать решение.

выложи конечно, может кому в будущем понадобиться!

--------------------

Oracle 11.2.0.3.0
FireBird 1.0-2.5

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »