Pascal/Turbo Pascal - Longitud rama arbol binario

   
Vista:

Longitud rama arbol binario

Publicado por Juan (20 intervenciones) el 06/10/2013 02:27:27
Hola, mi problema es el siguiente: Tengo que calcular la longitud de la mayor rama de un arbol binario. La rama es el camino desde el nodo raiz hasta el ultimo nodo. Por ejemplo en el siguiente arbol ordenado la longitud de la mayor rama es 7


-----------------------------------------------------8----------------------------------------------
------------------------------------------------- / ----- \
---------------------------------------------- 5 ------ 10
------------------------------------------ - / -- \ ----/ --- \
----------------------------------------- 4 ---- 6 --9 -----15
---------------------------------------- / ------ \ ----------/ ---\
-------------------------------------- 3 --------- 7 ------14 ---- 17
------------------------------------------------------------/ ----------\
----------------------------------------------------------13-----------20
----------------------------------------------------------/ ------------- \
--------------------------------------------------------12 ------------- 21
--------------------------------------------------------/ ----------------------
------------------------------------------------------11-----------------------
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Longitud rama arbol binario

Publicado por ramon (2072 intervenciones) el 09/10/2013 20:58:04
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
{Mira si esto te sirve}
 
uses
  crt;
 type
  elarbol = ^elnodo;
  elnodo = record
       valor : Integer;
    izq, der : elarbol;
  end;
 
 var
   nl, l, t, i : integer;
   nu : array[1..30] of integer;
   esiste : boolean;
   aux, nodo : elarbol;
   paizq, pader : integer;
 
 procedure nodoacero;
 begin
     fillchar(nodo,sizeof(elnodo),0);
 end;
 
 procedure presentanodo(p : elarbol);
 begin
    write(' ',p^.valor);
 end;
 
 procedure preorden(a : elarbol);
 begin
  if a <> nil then
  begin
    presentanodo(a);
    preorden(a^.izq);
    preorden(a^.der);
  end;
 end;
 
 
 procedure inorden(a : elarbol);
 begin
   if a <> nil then
   begin
    inorden(a^.izq);
    presentanodo(a);
    inorden(a^.der)
   end;
 end;
 
 
 procedure postorden(a : elarbol);
 begin
   if a <> nil then
   begin
    postorden(a^.izq);
    postorden(a^.der);
    presentanodo(a);
   end
 end;
 
 procedure insertar(var a : elarbol; va : Integer);
 begin
    if a = nil then
    begin
       new(a);
       a^.valor := va;
       a^.izq := nil;
       a^.der := nil;
     end
  else
     if a^.valor < va then
     insertar(a^.der, va)
  else
     insertar(a^.izq, va);
  end;
 
  procedure asignavalores(var n : elarbol);
  begin
     randomize;
     nl := 0;
     for t := 1 to 10 do
     begin
         i := random(10) + 1;
         esiste := false;
        for l := 1 to t - 1 do
        if nu[l] = i then
        begin
          esiste := true;
          t := t - 1;
        end;
          if esiste = false then
          nu[t] := i;
        end;
     clrscr;
         paizq := 0;
         pader := 0;
         nl := nu[1];
         for l := 1 to 10 do
         begin
            write(' ',nu[l],' - ');
            if l > 1 then
            begin
            if nl > nu[l] then
            paizq := paizq + 1
          else
            pader := pader + 1;
            end;
            insertar(n,nu[l]);
         end;
     end;
 
   procedure entradavaloresmanuales(var n : elarbol);
   var
      tomo : integer;
   begin
         paizq := 0;
         pader := 0;
         l := 1;
         writeln('*** Entrando [0] Termina Entradas ****');
         writeln;
       repeat
            write('   Entre Numero Entero : ');
            readln(nl);
          if nl > 0 then
          begin
            if l = 1 then
            tomo := nl;
            if l > 1 then
            begin
            if tomo > nl then
            paizq := paizq + 1
          else
            pader := pader + 1;
            end;
            insertar(n,nl);
            nu[l] := nl;
            l := l + 1;
          end;
       until nl = 0;
   end;
 
 
 
  procedure tamanoramas(rr : elarbol);
  var
     segi : integer;
     nnn, nsi : elarbol;
  begin
    clrscr;
    writeln('Los Valores Tomados Son');
    writeln;
    for l := 1 to 10 do
    write(' ',nu[l]);
    writeln;
    writeln('****** Eltama¤o De Las Ramas Es *******');
    writeln;
    writeln('   Rama Izquierda  = ',paizq);
    writeln('   Rama Derecha    = ',pader);
    if pader > paizq then
    writeln('   La Mas Larga Es = ',pader)
  else
    writeln('   La Mas Larga Es = ',paizq);
    writeln;
    writeln('<<<<< Pulse Una Tecla >>>>>>');
  end;
 
  procedure menu;
  var
     tecla : char;
     sal : boolean;
  begin
     sal := false;
   repeat
       clrscr;
       writeln('   ***** Memu Jeneral *****');
       writeln;
       writeln('   1 = Entrada Valores Manuales');
       writeln('   2 = Entrada Valores Automatico');
       writeln('   3 = Ver Resultados');
       writeln('   4 = Salir');
       writeln;
       writeln('   <<<<< Elija Opcion >>>>>');
    repeat
        tecla := readkey;
    until tecla in['1','2','3','4'];
    clrscr;
    case tecla of
  '1' : begin entradavaloresmanuales(nodo);  end;
  '2' : begin asignavalores(nodo);  end;
  '3' : begin tamanoramas(nodo); readkey; end;
  '4' : sal := true;
    end;
   until sal = true;
  end;
 
 
  begin
      nodoacero;
      menu;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar